今天教大家用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”。

至此，小程序就制作完成了，最后点击上一步设置的“开始点名”按钮，来测试下程序运行的效果吧！