如何寫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

複製代碼

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。