問一下如何做即時資料 我這個只能1秒跑1次 無法1秒內多筆
數據一變動就記錄 譬如1秒內動了3次就記錄3次 跪求大大
[sourcecode language=”csharp”]
Sub Atimer()
Dim T As Date
If uMode = "Start" Then
T = Now '取得現在時間
If clsPrice <> Cells(2, 15).Select Then
clsPrice = Cells(2, 15).Select
Sheets(1).[A65536].End(xlUp).Offset(1).Resize(, 32) = Sheets(1).[A2:AF2].Value
End If
Application.OnTime T + TimeValue("00:00:01"), "Atimer" '這是以1秒測試
End If
End Sub
[/sourcecode]作者: diolin 時間: 2015-1-21 10:05
1. 試試用 Worksheet_Change
2. 用 API Sleep, 可以到 Millisecond (千分之一秒)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
