上班族投資股票最麻煩的是隨時得分心看盤，如果可以在達到設定值就提出警示訊息，最好是聲音，那就更好了。
以下，將使用Excel 的VBA來達到這樣的目的，步驟如下述：
【前置作業】請先完成技資技術應用(1)的內容
Step 1、加入「目標價」欄位
Step 2、編輯VBA
- 啟動VBA編輯器：Ctrl +F11
- 建立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)」之文字
- 此段程式之內容為「先判斷儲存格D2與儲存格G2之大小，當D2小於G2時，則滿足條件並執行Windows Ringin.wav音效檔，否則顯示0
- 可視停利或停損需求設定欄位格之報價、對應的音效檔案
備註：WINDOWS作業系統預設有多種音效檔案，可以自行更換
留言列表
投資技術應用 (1)
