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

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

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

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

　　使用alt+f11組合快捷鍵進(jìn)入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

　　Sub myProcedure()

　　Application.Speech.Speak ("Hello" & Application.UserName)

　　End Sub

　　speech.speak命令需要安裝texttospeech組件，如果沒有安裝過，excel會提示安裝，現(xiàn)在系統(tǒng)中一般都會有安裝，這里只是提一下，記住texttospeech組件可以直接在微軟官方網(wǎng)站進(jìn)行下載。

　　在這個代碼里，tts語音組件只能朗讀文本字符串，或者是值是文本字符串的變量。如括號內(nèi)的字符串“hello”和username這個值為字符串的變量。

　　實(shí)際運(yùn)行中，我們可以將該代碼設(shè)為開啟工作薄時自動播放，配合上定時功能，更能添加更多有趣的設(shè)置。比如將代碼修改如下：

　　Private Sub Workbook_Open()

　　Application.OnTime Now + TimeValue("00:00:10"), "myprocedure"

　　End Sub

　　Sub myprocedure()

　　Application.Speech.Speak ("Hello" & Application.UserName)

　　End Sub

　　上面的代碼是在打開工作薄后以當(dāng)前時間十秒后運(yùn)行播報程序，我們甚至可以在定時中進(jìn)行循環(huán)，比如定時半個小時提醒一次工作時間，我們可以修改代碼如下：

　　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