excel中使用vba讓程式說話的程式碼
工具/原料
excel2013
更多經驗請關注，如果幫到了你，請在上方給個投票謝謝支援。 好人一生平安。
先頂後看年薪百萬，如果幫到了你，幫忙給個好評，這對小編很重要，萬分感謝。
方法/步驟
首先我們開啟一個工作樣表作為例子。
使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模組，並在模組中輸入以下程式碼：
Sub myProcedure()
Application.Speech.Speak ("Hello" & Application.UserName)
End Sub
speech.speak命令需要安裝texttospeech元件，如果沒有安裝過，excel會提示安裝，現在系統中一般都會有安裝，這裡只是提一下，記住texttospeech元件可以直接在微軟官方網站進行下載。
在這個程式碼裡，tts語音元件只能朗讀文字字串，或者是值是文字字串的變數。如括號內的字串“hello”和username這個值為字串的變數。
實際執行中，我們可以將該程式碼設為開啟工作薄時自動播放，配合上定時功能，更能新增更多有趣的設定。比如將程式碼修改如下：
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "myprocedure"
End Sub
Sub myprocedure()
Application.Speech.Speak ("Hello" & Application.UserName)
End Sub
上面的程式碼是在開啟工作薄後以當前時間十秒後執行播報程式，我們甚至可以在定時中進行迴圈，比如定時半個小時提醒一次工作時間，我們可以修改程式碼如下：
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "myprocedure"
End Sub
Sub myprocedure()
Application.Speech.Speak ("Hello" & Application.UserName)
Application.OnTime Now + TimeValue("00:30:00"), "myprocedure"
End Sub
注意事項
謝謝你的投票。