中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

這幾天朋友圈都在曬年會(huì)，看到各位抽到的大獎(jiǎng)，異常羨慕。

反正我從來(lái)都中不到，閑極無(wú)聊，索性用 VBA 做個(gè)九宮格抽獎(jiǎng)器自己抽著玩。

喜歡的話文末點(diǎn)個(gè)“好看”，謝謝支持！

運(yùn)行效果：

按“開(kāi)始”開(kāi)始隨機(jī)抽獎(jiǎng)，按“停止”結(jié)束抽獎(jiǎng)。

制作方法：

1. 在 Excel 中選取九宮格區(qū)域，填寫(xiě)?yīng)勂?/p>

2. 按 Alt+F11 打開(kāi) VBE，代碼及釋義如下：

Dim lucky As Integer '將lucky定義為模塊級(jí)別變量

Sub 開(kāi)始抽獎(jiǎng)

Dim i As Integer, j As Integer'i 和 j分別為行和列的值

Randomize '初始化隨機(jī)數(shù)生成器

start:

lucky = 0 ' 初始化 lucky 的值為 0

Range('B2:D4').Interior.ColorIndex = 15 ' 初始底色為淺灰

i = (4 - 2) * Rnd + 2' 生成 2 到 4 之間的隨機(jī)數(shù)值

j = (4 - 2) * Rnd + 2 ' 因?yàn)楸纠男辛兄刀荚?到4之間

Cells(i, j).Interior.ColorIndex = 6 ' 抽中的底色為黃色

DoEvents'將控制權(quán)傳給操作系統(tǒng),即在程序執(zhí)行中，略作停頓，

DoEvents '讓系統(tǒng)處理完一定的事件后，再繼續(xù)程序

DoEvents

If lucky = 1 Then Exit Sub' 當(dāng) lucky 為1，則退出

GoTo start

End Sub

Sub 停止抽獎(jiǎng)

lucky = 1 ' 將 lucky 賦值為1

End Sub

3. 現(xiàn)在回到表格界面，點(diǎn)擊“開(kāi)發(fā)工具”-->'插入'-->'按鈕' 分別制作兩個(gè)按鈕

4. 將按鈕的文本分別改為“開(kāi)始”和“結(jié)束”

5. 右鍵單擊按鈕，分別給兩個(gè)按鈕指定我們已經(jīng)編輯好的宏，就完成了：

“開(kāi)始”按鈕對(duì)應(yīng)“開(kāi)始抽獎(jiǎng)”宏

“停止”按鈕對(duì)應(yīng)“停止抽獎(jiǎng)”宏

請(qǐng)注意：

如果宏無(wú)法運(yùn)行，可以點(diǎn)擊“開(kāi)始”-->'Excel 選項(xiàng)'-->“信任中心”-->“信任中心設(shè)置”-->“宏設(shè)置”-->“啟用所有宏”