excel的随机

发布网友发布时间：2024-09-30 09:42

共1个回答

热心网友时间：2024-10-06 09:35

要创建一个Excel随机点名的工具，首先，新建一个名为“随机点名”的Excel文件，表格结构包括：在A1单元格输入学员姓名，B1单元格写明每组人数，C1单元格标记分组。接着，从“工具”菜单进入宏Visual Basic编辑器。

在宏编辑器中，右键点击“Microsoft Excel对象”，选择“插入”>“模块”，然后在弹出的“模块1”中，复制并粘贴以下代码到代码编辑区域：

vb
Sub rollcall()
Dim classRange As Range
Set classRange = Range("A2", Range("A2").End(xlDown))
Dim numRows As Long
numRows = classRange.Rows.Count
Randomize
MsgBox classRange(Int((numRows + 1) * Rnd + LBound(classRange.Rows))), vbInformation
End Sub

完成代码后，关闭Visual Basic编辑器，回到Excel主窗口。点击“视图”选项卡，选择“窗体”工具，从工具箱中添加一个按钮。双击新按钮，弹出“指定宏”对话框，选择刚才创建的rollcall宏，确认后关闭对话框。

最后，保存文件并退出“窗体工具箱”，你的Excel随机点名程序已经准备就绪，只需点击按钮即可随机抽取学员进行点名。