Excel中使用vba讓程序說話的制作方法

Excel中使用vba讓程序說話的制作方法

　　excel中使用vba讓程序說話的代碼，如何在操作進行的呢?今天，學習啦小編就教大家在Excel中使用vba讓程序說話的制作方法。

　　Excel中使用vba讓程序說話的制作步驟如下：

　　首先我們打開一個工作樣表作為例子。

　　使用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