Excel随机点名程序

szwanghai

Excel

随机点名程序

      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.    单击“视图”?工具栏?窗体，弹出“窗体工具箱”。
7.    在窗体工具箱中单击“按钮”，在Excel中拖拉出一个按钮，松开鼠标后，弹出“指定宏”对话框，从中选择rollcall后单击“确定”按钮。
8.    再次保存Excel文件，并关闭“窗体工具箱”。
至此，该程序就可以使用了。