用Excel的VBA实现一行代码随机点名

用VBA实现对学生的随机点名

一、学生名单

二、打开微软的Excel,本演示用的是2016版，当然其他版本也可以。

三、步骤

1、在Excel中配置 开发工具

2、文件选项

3、Excel选项中的自定义功能区 勾选开发工具

4、打开开发工具 点 Visual Basic

5、在开发中 插入窗体

6、在窗体中添加一个按钮，将按钮命名为“谁最幸运”，双击此按钮，在按钮代码中输入Msgbox Sheet1.Cells((Rnd()*22)+2,1)

7、点工具栏的运行

8、在运行窗体中，点击“谁最幸运”的按钮

9、如果下次还要用，需要保存为.xlsm格式。

四、这一行代码的意思是什么？？

 MsgBox 对话框窗体

Sheet1.Cells(x,y) 获取单元格的行x,列y。

行x=(Rnd() * 22) + 2,Rnd()随机生成0-1的随机数，Rnd()*22就是随机生成0-22的数，因为单元格具体姓名是从第二行开始，所以+2。

列y=1

连接起来就是 MsgBox Sheet1.Cells((Rnd() * 22) + 2, 1)

五、关于Excel的VBA

   用好VBA可以解决无法使用Excel函数解决的很多问题。要修炼成专家级，需要看很多本VBA的参考书。本着够用，其实些会简单的VBA就够用了。