返回列表下一主題上一主題發帖

[發問] 問一下如何做即時資料我這個只能1秒跑1次無法1秒內多筆

h713107

小學生 Rank: 1

帖子: 1
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 10
註冊時間: 2015-1-3
最後登錄: 2015-1-14

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-1-13 14:27 | 只看該作者

[發問] 問一下如何做即時資料我這個只能1秒跑1次無法1秒內多筆

問一下如何做即時資料我這個只能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]