如何使用Excel VBA發出聲音(警訊聲)

用VBA做程式交易時

常常需要出現訊號時 讓程式自動發出警示聲響

以下為vbaexpress.com所提供的程式碼：

Option Explicit 

 'API Class to take care of playing the file
Public Declare Function sndPlaySound32 Lib "winmm.dll" _ 
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ 
ByVal uFlags As Long) As Long 

Sub VBASound() 
     'Call Api to play LoadIt.wav which is in the same folder as
     'the active document!
    Call sndPlaySound32(ActiveDocument.Path & "\LoadIt.WAV", 0) 
End Sub 





(出處：http://www.vbaexpress.com/kb/getarticle.php?kb_id=461)

而需要的WAV檔素材

可以至以下網站下載

http://billor.chsh.chc.edu.tw/sound/alarm.htm

我的一畝田--心得

1. 企業行銷：

可以和便利商店，或是各種餐飲業合作，將台灣米的特色推廣出去，
讓更多人在透過購買食物時，也能了解正港的台灣米，
並進一步以人傳人的方式，將『我的一畝田』這樣的理念行銷出去。

2. 舉辦活動：

舉辦各種公益慈善活動，將『我的一畝田』這樣的理念提升成公益事業，亦可增加此理念的正面形象。

3. 影片有獎徵答：

我們可以透過拍攝一些短片，並將影片放置Youtube等平台，
讓民眾看完後，以有獎徵答的放式，和人們互動，並進一步提升社群討論度。

4. FB成立社團：

由於現在FB的普及率越來越高，因此透過FB的行銷方式也越來越多，
所以我們亦可以成立社團，讓許多人能藉由分享連結的形式，將理念推廣出去。