思考與投資

上班族投資股票最麻煩的是隨時得分心看盤，如果可以在達到設定值就提出警示訊息，最好是聲音，那就更好了。

以下，將使用Excel 的VBA來達到這樣的目的，步驟如下述：

【前置作業】請先完成技資技術應用(1)的內容

Step 1、加入「目標價」欄位

Step 2、編輯VBA

1. 啟動VBA編輯器：Ctrl +F11
2. 建立sndPlaySoundA函式：點擊 「插入>模組」即可開啟程式碼視窗，複製下列程式並存檔即可

A、電腦為32位元時

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Function SndPlay(Pathname As String) As Long

SndPlay = sndPlaySound(Pathname, SND_ASYNC)

End Function

B、電腦為64位元時

Private Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Function SndPlay(Pathname As String) As Long

SndPlay = sndPlaySound(Pathname, SND_ASYNC)

End Function

Step 3、在excel的後方欄位加入「=IF(D2 < G2,sndplay("C:\Windows\Media\Windows Ringin.wav"),0)」之文字

1. 此段程式之內容為「先判斷儲存格D2與儲存格G2之大小，當D2小於G2時，則滿足條件並執行Windows Ringin.wav音效檔，否則顯示0
2. 可視停利或停損需求設定欄位格之報價、對應的音效檔案

備註：WINDOWS作業系統預設有多種音效檔案，可以自行更換