如何寫DDE觸價警示VBA程式

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-7-7 21:01 | 只看該作者

高手們大家好
我透過券商看盤系統提供的DDE功能,將台指即時行情轉載至Excel
針對即時變動的台指成交價,我想設定觸價警示功能
例如:台指即時成交價在C1持續變動,當C1價位碰觸到F1(8700或其他我指定價格)時,電腦會啟動我指定的音效聲音
請問這種VBA程式該怎麼寫?

3^#

發表於 2011-7-14 17:55 | 只看該作者

回復 2# oobird

如果條件想要放寬鬆一點
可以隨意指定某個欄位的值大於或者小於或者等於另一欄的話
要怎麼去改這個程式碼呢

　頭銜: 街友一族

論壇貢獻勳章

2^#

發表於 2011-7-7 22:49 | 只看該作者

工作表模組：

複製代碼

一般模組：

Private Declare Function PlayWaveSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszsoundname As String, ByVal uflags As Long) As Long
Public Sub 播放wav()
Dim soundName As String
soundName = "C:\WINDOWS\Media\Windows XP 啟動.wav" '指定?音文件
PlayWaveSound soundName, 1
End Sub

複製代碼

靜思自在 : 君子如水，隨方就圓，無處不自在。