Hi~大家好，我是愛(ài)學(xué)?Excel 的田田~

又到了每周一準(zhǔn)時(shí)開(kāi)課的【0 基礎(chǔ)學(xué) Excel 函數(shù)】時(shí)間啦~

上節(jié)課學(xué)習(xí)了?Randbetween 函數(shù)的基本用法，今天我們?cè)倮^續(xù)深挖一下，這個(gè)函數(shù)在工作當(dāng)中的具體應(yīng)用~

最近很多公司都會(huì)舉辦年中會(huì)議，年會(huì)上必不可少的當(dāng)然是抽獎(jiǎng)活動(dòng)，那么我就教大家用 Randbetween 函數(shù)來(lái)制作一個(gè)年會(huì)抽獎(jiǎng)工具。?

案例是一份年會(huì)抽獎(jiǎng)名單，我們要從中隨機(jī)抽取一位員工。

要實(shí)現(xiàn)這個(gè)效果，除了使用Randbetween函數(shù)以外，還要用到另一個(gè)我們已經(jīng)學(xué)過(guò)的函數(shù)—— index函數(shù)。

我們先來(lái)復(fù)習(xí)一下，index 函數(shù)可以根據(jù)行號(hào)和列號(hào)來(lái)返回一個(gè)區(qū)域中對(duì)應(yīng)單元格中的內(nèi)容。

???在【L2】單元格中輸入=index 函數(shù)，第一個(gè)參數(shù)選中整個(gè)姓名區(qū)域【G2:J18】。第二個(gè)參數(shù)輸入數(shù)字【3】，表示第三行。

第三個(gè)參數(shù)輸入數(shù)字【2】，表示第二列，打上反括號(hào)，按下回車鍵，那么姓名區(qū)域中第三行第二列的“秦秋”，就被顯示出來(lái)了。?

那么制作成抽獎(jiǎng)工具，就只需要把行號(hào)和列號(hào)變成隨機(jī)數(shù)，通過(guò)刷新，我們就能得到隨機(jī)姓名了。

理清了這個(gè)思路之后，我們就可以開(kāi)始著手修改公式了。

???雙擊【L2】單元格進(jìn)入公式編輯模式，選中代表行數(shù)的第二個(gè)參數(shù)，將它替換為 randbetween 函數(shù)，將最小值設(shè)置為【1】。

雙擊【L2】單元格進(jìn)入公式編輯模式，選中代表行數(shù)的第二個(gè)參數(shù)，將它替換為 randbetween 函數(shù)，將最小值設(shè)置為【1】。

員工名單一共有17行，因此將最大值設(shè)置為【17】，打上反括號(hào)。

再選中代表列數(shù)的第三個(gè)參數(shù)，將它替換為 randbetween 函數(shù)，將最小值設(shè)置為【1】，員工名單一共有4列，因此將最大值設(shè)置為【4】，打上反括號(hào)。

完整公式如下：

• =INDEX(G2:J18,RANDBETWEEN(1,17),RANDBETWEEN(1,4))
  

按下回車鍵，這樣我們就得到了一個(gè)隨機(jī)姓名。按住鍵盤上的【F9】鍵不放持續(xù)刷新公式，當(dāng)我們松開(kāi)【F9】鍵時(shí)，獲獎(jiǎng)的員工就能隨機(jī)抽取出來(lái)啦。

使用鍵盤控制刷新的方式雖然可行，但是還不夠方便，能否用【按鈕】的方式來(lái)執(zhí)行抽獎(jiǎng)的動(dòng)作呢？

當(dāng)然可以，我們來(lái)試著用控件來(lái)進(jìn)行抽獎(jiǎng)！

???打開(kāi)【開(kāi)發(fā)工具】選項(xiàng)卡，點(diǎn)擊【插入】-切換按鈕，用鼠標(biāo)繪制一個(gè)【長(zhǎng)方形】的按鈕。

???點(diǎn)擊鼠標(biāo)右鍵，找到【切換按鈕對(duì)象】， 選擇【編輯】，將切換按鈕的名稱修改為【開(kāi)始抽獎(jiǎng)】，修改完畢后退出編輯模式。

?? 鼠標(biāo)左鍵雙擊切換按鈕打開(kāi)【宏編輯器】，【ToggleButton1】表示我們剛才插入的按鈕，在第二行輸入代碼【iF ToggleButton1. value=true,then 】。

? ?我們希望按下按鈕的時(shí)候，公式能夠刷新，所以，在第三行我們輸入一個(gè)【calculate】表示公式刷新。?

我們要讓calculate，也就是刷新公式這個(gè)動(dòng)作，持續(xù)循環(huán)下去，直到切換按鈕的值變成false。

?? 所以我們要在 calculate 這一行上下插入兩個(gè)空白行，在上方輸入【do】，在下方輸入【loop until】，執(zhí)行刷新公式這個(gè)動(dòng)作循環(huán)。

???同時(shí)，我們要循環(huán)刷新到【切換按鈕】的值變成【false】。因此我們繼續(xù)在后面輸入 ?【togglebutton1.value=false】。

???但是當(dāng)表格持續(xù)刷新的時(shí)候，還是無(wú)法進(jìn)行其他操作的，為了能夠進(jìn)行后續(xù)操作，我們還要在【calculate】下方補(bǔ)上一個(gè)代碼：【doevents】。表示取回對(duì)軟件的控制權(quán)。

???最后，由于這里的代碼是從IF開(kāi)始的，因此在代碼結(jié)束之前，我們要輸入一個(gè)【end if】作為結(jié)尾，這樣整個(gè)代碼就有始有終了。?

代碼輸入完畢后，我們關(guān)閉宏編輯器。然后點(diǎn)擊開(kāi)發(fā)工具下的【設(shè)計(jì)模式】按鈕，退出控件的編輯模式。?

完整代碼如下：

• Private Sub ToggleButton1_Click()

• If ToggleButtonl.Value = True Then

• Do

• Calculate

• DoEvents

• Loop Until ToggleButton1.Value = False

• End IfEnd Sub
  

再點(diǎn)擊開(kāi)始抽獎(jiǎng)按鈕，抽獎(jiǎng)程序就已經(jīng)開(kāi)始運(yùn)行了，當(dāng)我們?cè)俅吸c(diǎn)擊抽獎(jiǎng)按鈕，抽獎(jiǎng)結(jié)果就顯示出來(lái)啦。

這個(gè)隨機(jī)抽獎(jiǎng)工具你學(xué)會(huì)了嗎？趕緊動(dòng)手試試吧~

除了?用?Randbetween 函數(shù)可以制作抽獎(jiǎng)工具，你還知道哪些好用好玩的函數(shù)呢？
評(píng)論區(qū)留言告訴大家吧╰(*°▽°*)╯

除了今天介紹的?Randbetween?函數(shù)，Excel 里還有很多的函數(shù)，比如 Vlookup、Xlookup、Sumif 等等。

如果你想學(xué)習(xí)更多關(guān)于函數(shù)的知識(shí)，更多 Excel 小技巧！

那我推薦你參加秋葉《3 天 Excel 集訓(xùn)營(yíng)》，大神帶你學(xué)習(xí)表格飛速排版、數(shù)據(jù)高效整理、圖表美化設(shè)計(jì)……！！和志同道合的小伙伴一起交流進(jìn)步~

僅需 3 天

你就可能成為 Excel 高手！

趕緊掃碼搶課吧?。?/strong>

??????

↑↑↑

優(yōu)惠名額有限，先到先得！

現(xiàn)在掃碼報(bào)名

還能免費(fèi)領(lǐng)《35 個(gè)函數(shù)使用手冊(cè)》！

*廣告