標題: 如何寫DDE觸價警示VBA程式 [打印本頁]

---

作者: 李皓    時間: 2011-7-7 21:01     標題: 如何寫DDE觸價警示VBA程式

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

---

作者: oobird    時間: 2011-7-7 22:49

工作表模組：

1. Private Sub Worksheet_Calculate()
   
2. If [c1] >= [f1] Then 播放wav
   
3. End Sub

複製代碼

一般模組：

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

複製代碼

---

作者: enhrulee    時間: 2011-7-14 17:55

回復 2# oobird


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)