今天教大家用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”。
至此，小程序就製作完成了，最後點擊上一步設置的“開始點名”按鈕，來測試下程序運行的效果吧！
分享到:
