- 帖子
- 14
- 主題
- 3
- 精華
- 0
- 積分
- 22
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- xp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-7-25
- 最後登錄
- 2011-8-3
|
[發問] 我也想問DDE利用Private Sub Worksheet_Calculate()取資料方式
各位大大你們好
我知道我很嫩
但是近日剛好有需求想要請教各位大大
先在Sheet1(Sheet1)上打上
其他大大的神奇程式(如下)
Private Sub Worksheet_Calculate()
Dim NowDateTime, nowTime, startTime, stopTime
Dim tr As String
NowDateTime = Now '現在的時間值, 去掉整數部份,
nowTime = (NowDateTime - Int(NowDateTime)) '得到現在的時間值
startTime = Range("A6") '開盤時間, 例如: "09:00:00 AM"
stopTime = Range("A8") '收盤時間, 例如: "01:30:00 PM"
If nowTime <= startTime Then '尚未開盤
Exit Sub
ElseIf nowTime > stopTime Then '已經收盤
Exit Sub
Else
If [C2] <> "-" And [C2] <> "###" Then '清盤的狀態, 不取其資料
tr = Int((nowTime - startTime) * 288) + 2 '每差 300 秒就換一列
If Range("D" & tr) = "" Then Range("D" & tr) = Range("C2") '開始價
If Range("E" & tr) = "" Or Range("C2") > Range("E" & tr) _
Then Range("E" & tr) = Range("C2") '最高價
If Range("F" & tr) = "" Or Range("C2") < Range("F" & tr) _
Then Range("F" & tr) = Range("C2") '最低價
Range("G" & tr) = Range("C2") '結束價
End If
End If
End Sub
但最後還是無法存取
不知道哪邊錯誤了 還是要打在ThisWorkbook那邊呢???
我是使用富邦e01 DDE存取資料放在C2
再請各位大大了 我有爬文但是還是不會 感謝 |
|
發表於 2011-7-26 15:08
| 
