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

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

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。