最簡單的抽獎用rand函數就行，但是這個抽獎器觀眾不會滿意的。
那麽需要做壹個簡單的滾動效果，實現方法也不難，壹列放數據，壹列放=rand()這個公式，把公式這列隱藏掉，然後做個宏，以公式這列排序。VBA寫壹段代碼，每0.1秒調用這個宏壹次，那麽看起來就是數據這列會定時滾動。
然後再做個按鈕，可以中斷這個滾動，並打印輸出結果。簡單的抽獎器模型就出來了。
具體代碼我貼壹個我以前做過的抽簽分組的，修改壹下就是妳要的了：
Private?Declare?Function?timeGetTime?Lib?"winmm.dll"?()?As?Long '此處聲明是調用timeGetTime的時間控制函數
Public?a?As?String
Private?Sub?開始_Click()
開始.Enabled?=?False
停止.Enabled?=?True
a?=?0
Dim?Savetime?As?Double
Do?While?a?=?0
Savetime?=?timeGetTime?'記下開始時的時間
While?timeGetTime?<?Savetime?+?100?'循環等待
DoEvents?'轉讓控制權，以便讓操作系統處理其它的事件
Wend
If?選項1.Value?=?True?Then
Call?bb
Else
Call?aa
End?If
Loop
End?Sub
Private?Sub?停止_Click()
停止.Enabled?=?False
a?=?1
Savetime?=?timeGetTime
While?timeGetTime?<?Savetime?+?1000
DoEvents
Wend
開始.Enabled?=?True
MsgBox?"抽簽完成，請點擊打印"
Sheets(2).Activate
End?Sub
Sub?aa()?'排序部分
Sheets(1).Range("A2:B10").Sort?Key1:=Sheets(1).Range("A2"),?Order1:=xlAscending,?Header:=xlGuess,?_
OrderCustom:=1,?MatchCase:=False,?Orientation:=xlTopToBottom,?SortMethod?_
:=xlPinYin,?DataOption1:=xlSortNormal
Sheets(1).Range("c2:d10").Sort?Key1:=Sheets(1).Range("c2"),?Order1:=xlAscending,?Header:=xlGuess,?_
OrderCustom:=1,?MatchCase:=False,?Orientation:=xlTopToBottom,?SortMethod?_
:=xlPinYin,?DataOption1:=xlSortNormal
Sheets(1).Range("e2:f10").Sort?Key1:=Sheets(1).Range("e2"),?Order1:=xlAscending,?Header:=xlGuess,?_
OrderCustom:=1,?MatchCase:=False,?Orientation:=xlTopToBottom,?SortMethod?_
:=xlPinYin,?DataOption1:=xlSortNormal
Sheets(1).Range("g2:h10").Sort?Key1:=Sheets(1).Range("g2"),?Order1:=xlAscending,?Header:=xlGuess,?_
OrderCustom:=1,?MatchCase:=False,?Orientation:=xlTopToBottom,?SortMethod?_
:=xlPinYin,?DataOption1:=xlSortNormal
End?Sub
Sub?bb()
Sheets(1).Range("A2:h10").Sort?Key1:=Sheets(1).Range("A2"),?Order1:=xlAscending,?Header:=xlGuess,?_
OrderCustom:=1,?MatchCase:=False,?Orientation:=xlTopToBottom,?SortMethod?_
:=xlPinYin,?DataOption1:=xlSortNormal
End?Sub