請問EXCEL與DDE的連結寫入問題

請問各位高手,我想在讀取DDE的數值之後
在EXCEL依序寫入目前時間與DDE的值
網路上爬文,修改出這一段VBA的程式碼
請問在EXCEL中應該怎麼寫
才能在Ring(2)的值大於40的時候
就自動呼叫這個程式?謝謝幫忙

Sub updateFollow()
Dim Rng As Range

On Error Resume Next
'If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub

With 工作表1
.Range("L6:M6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Set Rng = .[L6].Resize(1, 2)
Rng(1) = "=NOW()"
Rng(2) = "=CATDDE|'FUTOPTTXFH9 '!TickVol"
Rng.Value = Rng.Value ' 將公式以欄值取代
Rng(1).NumberFormat = "hh:mm:ss"
End With
'If timerEnabled Then Call timerStart
End Sub
2019-08-06 12:16 發佈
限制級
您即將進入之討論頁 需滿18歲 方可瀏覽。
根據「電腦網路內容分級處理辦法」修正條文第六條第三款規定,已於該限制級網頁,依台灣網站分級推廣基金會規定作標示。
評分
複製連結