返回列表 上一主題 發帖

如何寫DDE觸價警示VBA程式

李皓

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
window2000 
軟體版本
office2000 
閱讀權限
10 
性別
男 
註冊時間
2011-7-7 
最後登錄
2011-7-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-7-7 21:01 | 只看該作者

如何寫DDE觸價警示VBA程式

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 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

  3. Public Sub 播放wav()

  5.     Dim soundName As String

  7.     soundName = "C:\WINDOWS\Media\Windows XP 啟動.wav"    '指定?音文件

  9.     PlayWaveSound soundName, 1

  11. End Sub
複製代碼

TOP

enhrulee

帖子
10 
主題
4 
精華
0 
積分
20 
點名
0  
作業系統
windows xp 
軟體版本
vb2008 
閱讀權限
10 
註冊時間
2011-1-28 
最後登錄
2011-8-2 
3#
發表於 2011-7-14 17:55 | 只看該作者
回復 2# oobird


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

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題