量化交易-3(上) EXCEL驚醒夢中人~用EXCEL警示音提醒你停損點到了

別再相信自己會做好停損了，還是要有人盯著你比較安全。

用EXCEL提醒你停損點到了。

接續量化交易-2的教學

步驟1.將第2列和第3列的股票依序變成2376技嘉、2382廣達

步驟2.按下ALT+F11會出現以下附圖一的畫面

步驟3.用滑鼠點擊左上角的”This Workbook”後按右鍵，選擇”插入”模組，請參照以下的附圖二和附圖三

步驟4.將以下這段文字全部COPY上去，如附圖四

#If Win64 Then

Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _

Alias "PlaySoundA" (ByVal lpszName As String, _

ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean

#Else

Private Declare Function PlaySound Lib "winmm.dll" _

Alias "PlaySoundA" (ByVal lpszName As String, _

ByVal hModule As Long, ByVal dwFlags As Long) As Boolean

#End If

Const SND_SYNC = &H0

Const SND_ASYNC = &H1

Const SND_FILENAME = &H20000

Function SoundMe() As String

Call PlaySound("c:\windows\media\ Alarm01.wav ", _

0, SND_ASYNC Or SND_FILENAME)

SoundMe = ""

End Function

Function SoundMe1() As String

'以上SoundMe1是自訂參數,你也可以自訂為SoundMe2或SoundMe3。以下的Alarm01.wav是Windows內建的音樂檔，你也可以改成Alarm02.wav或其他WAV檔。但一定要是WAV檔(這段文字是備註，可以直接貼上，不會影響執行)

Call PlaySound("c:\windows\media\Alarm01.wav", _

0, SND_ASYNC Or SND_FILENAME)

SoundMe1 = ""

End Function