Excel中使用vba讓程序說(shuō)話的制作方法

Excel中使用vba讓程序說(shuō)話的制作方法

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

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

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

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

　　Sub myProcedure()

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

　　End Sub

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

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

　　實(shí)際運(yùn)行中，我們可以將該代碼設(shè)為開啟工作薄時(shí)自動(dòng)播放，配合上定時(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)前時(shí)間十秒后運(yùn)行播報(bào)程序，我們甚至可以在定時(shí)中進(jìn)行循環(huán)，比如定時(shí)半個(gè)小時(shí)提醒一次工作時(shí)間，我們可以修改代碼如下：

　　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