帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-10-18 21:33 | 只看該作者

請各位先進幫忙改我的VBA

之前朋友幫我寫的VBA
因為數據一有變化就會記錄
所以數據有時多有時少
我想每隔10秒記錄1次
但是我又是門外漢
所以想請各位先進幫幫忙謝謝
Private Sub CommandButton1_Click()

End Sub

Private Sub Worksheet_Calculate()

If TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("08:44:00") Then

Range("A2:J50000") = ""

Else

If TimeValue(Format(Now, "hh:mm:ss")) >= TimeValue("08:45:00") And TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("13:45:00") Then
ar = Array([A1], [B1], [C1], [D1], [E1], [F1], [G1], [H1], [I1], [J1])
[A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar

End If
End If
End Sub

skyage

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-11-11
最後登錄: 2014-6-9

31^#

發表於 2010-12-3 09:41 | 只看該作者

Worksheet_Calculate() <==== 問題在這邊, dde 數據一改變就會觸發下面的程式碼
If TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("08:44:00") Then

Range("A2:J50000") = ""

Else

If TimeValue(Format(Now, "hh:mm:ss")) >= TimeValue("08:45:00") And TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("13:45:00") Then
ar = Array([A1], [B1], [C1], [D1], [E1], [F1], [G1], [H1], [I1], [J1])
[A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar

End If
End If

所以你要的間格時間無效
清空後, 就不會一直跑(或著你可以在原代碼中增加時間判斷 10sec,60sec 要執行的事項)

TOP

junsean

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

30^#

發表於 2010-10-22 21:44 | 只看該作者

今天終於可以用了

太感謝您了GBKEE

還有oobird
也要謝謝您

TOP

junsean

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

29^#

發表於 2010-10-21 22:07 | 只看該作者

測試ok

可是盤中真的一次記錄3筆
我明天再試試

謝謝GBKEE

TOP

junsean

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-10-18
最後登錄: 2011-2-20

28^#

發表於 2010-10-21 21:54 | 只看該作者

應該不是錯覺

請看今天記錄的圖

Noname.png (36.33 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

27^#

發表於 2010-10-21 21:36 | 只看該作者

回復 26# junsean
一次記錄3筆重複的數據不會呀! 會不會是你的數據沒有變動的錯覺.
已加上時間欄,你現在到23:45:00前可測試看看.

Sub yy()
With Sheet1
If Time <= TimeValue("08:44:50") Then
.Range("A3:G50000") = ""
Application.OnTime TimeSerial(8, 45, 0), "yy"
End If
If Time >= TimeValue("08:45:00") And Time <= TimeValue("23:45:00") Then
ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2], Time)
.[A65536].End(xlUp).Offset(1, 0).Resize(, 8) = ar
Application.OnTime Time + TimeSerial(0, 0, 10), "yy"
End If
End With
End Sub
Sub xx()
With Sheet2
If Time <= TimeValue("08:59:50") Then
.Range("A3:J50000") = ""
Application.OnTime TimeSerial(9, 0, 0), "xx"
End If
If Time >= TimeValue("09:00:00") And Time <= TimeValue("23:32:10") Then
ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2], .[H2], .[I2], .[J2], Time)
.[A65536].End(xlUp).Offset(1, 0).Resize(, 11) = ar
Application.OnTime Time + TimeSerial(0, 1, 0), "xx"
End If
End With
End Sub