EXCEL 發出聲音 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » EXCEL 發出聲音

返回列表下一主題上一主題發帖

EXCEL 發出聲音

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

1^# 跳轉到 »

發表於 2012-6-29 21:55 | 顯示全部帖子

先要解決的是EXCEL如何能得知你輸入錯誤？
如打一篇文章，打錯字時發聲提醒？

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2012-6-30 10:47 | 顯示全部帖子

本帖最後由 oobird 於 2012-6-30 13:26 編輯

http://www.funp.net/955169
原帖的連結：http://qa.pcuser.com.tw/modules/ ... =41630&forum=24

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2012-7-5 23:08 | 顯示全部帖子

方法太多了，簡單寫幾個常用的：

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Private Const Mic = "C:\Windows\Media\tada.wav"
Sub op()
mciExecute ("play " & Mic)
End Sub
Sub yy()
cmd = "sndrec32 /play /close ""C:\Windows\Media\tada.wav"""
Shell cmd, 6
End Sub
Sub xx()
Beep
Application.Wait (Now + TimeValue("0:00:1"))
Beep
End Sub
Sub ww()
Set oSa = CreateObject("SAPI.SpVoice")
oSa.Speak "misinput"
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2012-7-6 09:07 | 顯示全部帖子

回復 12# oobird

突然想到，BEEP還可以編曲

Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub yy()
f = Array(100, 523, 587, 659, 698, 784, 879, 987, 1030)
d = Array(5, 3, 3, 0, 4, 2, 2, 0, 1, 2, 3, 4, 5, 5, 5, 0, 5, 3, 3, 0, 4, 2, 2, 0, 1, 3, 5, 5, 3, 0, 2, 2, 2, 2, 2, 3, 4, 0, 3, 3, 3, 3, 3, 4, 5, 0, 5, 3, 3, 0, 4, 2, 2, 0, 1, 3, 5, 5, 1)
For i = 0 To UBound(d)
Beep f(d(i)), 500
Next
End Sub

複製代碼

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。

返回列表下一主題上一主題