DDE動態資料如何定時篩選？

4^# 跳轉到 »

發表於 2015-11-19 05:24 | 只看該作者

本帖最後由 c_c_lai 於 2015-11-19 09:30 編輯

回復 3# corcovado886
是否如此結果？

Sub 自動記錄()
Dim cts As Integer
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
Sht1.[W4] = "已過收盤"
uMode = 0
Exit Sub
End If
With Sht1
.Range("W2") = Time '當前時間（時間碼表）
'----------------------------------------------------------
'每１分鐘記錄，５分鐘則改為 Mod 5
If Second(Time) Mod 3 = 0 Then
xRow = .Range("A65536").End(xlUp).Row + 1 '從最後一格往上尋找有資料的儲存格, 是在第幾列，然後再加1列
If xRow < 11 Then xRow = 11 '如果列數小於11，則從第11列開始
.Range("A" & xRow & ":V" & xRow).Value = .Range("A2:V2").Value
For cts = 1 To 22
.Range(Chr(64 + cts) & xRow).Font.Color = IIf(.Range(Chr(64 + cts) & xRow).Value >= 9, vbRed, vbBlack)
Next
.Range("W" & xRow).Value = Time 'W欄位的時間值往下記錄
'------------------------------------------------
If ActiveSheet.Name = .Name And xRow > 20 Then
ActiveWindow.ScrollRow = xRow - 12 '讓最新資料保持在可見視窗中
End If
End If
End With
Application.OnTime Now + TimeValue("00:00:01"), "自動記錄" '每一秒遞迴一次
End Sub