1. 新建一個Excel檔案，命名為“隨機點名”後儲存。在A1中輸入姓名，在B1中輸入“每組人數”，在C1中輸入“分組”，在A2、A3……中輸入學員名子。
2. 單擊“工具”宏Visual Basic，後進入編輯視窗。
3. 右擊“Microsoft Excel物件”，選擇“插入”“模組”。
4. 雙擊“模組1”，將以下程式碼輸入右側的程式碼編輯區：
Sub rollcall()
Dim class As Range
Set class = Range("A2", Range("A2").End(xlDown))
n = class.Rows.Count
Randomize
MsgBox class(Int((n + 1) * Rnd + lowerbound), 1)
End Sub
5. 關閉Visual Basic編輯器，回到Excel視窗。
6. 單擊“檢視”工具欄窗體，彈出“窗體工具箱”。
8. 再次儲存Excel檔案，並關閉“窗體工具箱”。至此，該程式就可以使用了。
1. 新建一個Excel檔案，命名為“隨機點名”後儲存。在A1中輸入姓名，在B1中輸入“每組人數”，在C1中輸入“分組”，在A2、A3……中輸入學員名子。
2. 單擊“工具”宏Visual Basic，後進入編輯視窗。
3. 右擊“Microsoft Excel物件”，選擇“插入”“模組”。
4. 雙擊“模組1”，將以下程式碼輸入右側的程式碼編輯區：
Sub rollcall()
Dim class As Range
Set class = Range("A2", Range("A2").End(xlDown))
n = class.Rows.Count
Randomize
MsgBox class(Int((n + 1) * Rnd + lowerbound), 1)
End Sub
5. 關閉Visual Basic編輯器，回到Excel視窗。
6. 單擊“檢視”工具欄窗體，彈出“窗體工具箱”。
8. 再次儲存Excel檔案，並關閉“窗體工具箱”。至此，該程式就可以使用了。