今天教大家用Excel制作一个自动语音点名的小程序,先来看看效果吧!
由于是GIF动图,没有声音,实际上这个小程序会自动朗读每一个姓名,根据大家电脑系统的不同,可能声音也不太一样。
这个小程序是怎么做的呢?
1. 首先,准备好数据表格,并找到“开发工具”菜单。如果找不到“开发工具”菜单,可以到“文件”、“选项”、“自定义功能区”窗口找到。
2. 然后,打开“开发工具”菜单的“Visual Basic”选项,插入一个新模块,并输入如下代码:
Sub DianMing()
Dim xm
For Each xm In Range("A2:A9")
xm.Speak
If MsgBox("是否缺席?", vbYesNo) = vbYes Then
xm.Offset(0, 1) = "缺席"
Else
xm.Offset(0, 1) = ""
End If
Next
End Sub
这段宏代码的功能是循环朗读A2至A9单元格中的内容,然后弹出消息框询问是否缺席。如果对应的人员缺席,则给其右侧的单元格赋值“缺席”,如果没有缺席则右侧单元格值为空。一直循环,直到朗读结束。
3. 关闭VBA编辑器,回到工作表。选择“开发工具”菜单,插入一个“按钮”组件,并为其绑定之前定义好的VBA宏代码“DianMing”。
至此,小程序就制作完成了,最后点击上一步设置的“开始点名”按钮,来测试下程序运行的效果吧!