用excel的隨機函數配合index函數可以很方便的實現從一組數據中隨機抽取單個數據，常用于抽獎小程序。但若想讓抽獎時數據跳動一段時間再出現最終的結果，就好像真正的抽獎一樣，只用函數就不好實現了。今天給大家分享一個能控制抽取跳動時間和跳動方式方法，很簡單的vba代碼。

先看看效果

每次抽取3個人，第一種方式為三個名字同時跳動，第二種方式為三個名字依次跳動，第三種方式為未設置跳動方式名字基本同時出現，缺乏抽獎的感覺。

設置數字調節器控制跳動的時間長短，數字越大跳動時間越長，可自由選擇。

第一種方法為先將三個目標單元格在for循環里進行賦值，循環結束后再另外賦值。

For i = 2 To [m2] * 2 Cells(2, 6) = Cells(Application.Max(i Mod 16, 1), 1) Cells(2, 7) = Cells(Application.Max(i Mod 16, 1), 1) Cells(2, 8) = Cells(Application.Max(i Mod 16, 1), 1) Next Cells(2, 6) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16)) Cells(2, 7) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16)) Cells(2, 8) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16))

第二種方法為對每個目標單元格依次進行for循環后賦值，上一個單元格賦值完成后再進行下一個單元格的循環和賦值

For i = 2 To [m2] * 4 Cells(4, 6) = Cells(Application.Max(i Mod 16, 1), 1) Next Cells(4, 6) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16)) For i = 2 To [m2] * 4 Cells(4, 7) = Cells(Application.Max(i Mod 16, 1), 1) Next Cells(4, 7) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16)) For i = 2 To [m2] * 4 Cells(4, 8) = Cells(Application.Max(i Mod 16, 1), 1) Next Cells(4, 8) = Application.WorksheetFunction.Index(Cells(2, 1).Resize(16, 1), Application.WorksheetFunction.RandBetween(1, 16))

時長數值放在m2單元格，用于在代碼里控制時間長短。

插入數值調節器時盡量選用Active控件，便于設置調節器顏色，利于美觀。插入調節器控件后，設置好相關屬性，

最后給抽取按鈕和重置按鈕指定對應的宏代碼，就完成全部操作了。

總結

本案例只是用了很少也很簡單的代碼就解決了問題，其實vba不難，不要被嚇倒了，只要用心，代碼能給我們解決很多難題，想學代碼或函數的歡迎加入跟著我們一起學習。另外歡迎收藏、關注、點贊、留言，任選一項都行。

總結

以上是生活随笔為你收集整理的dev里timeedit控件如何赋值_抽奖程序里的字节跳动模式和时长控制，让抽奖更有仪式感！...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。