請各位先進幫忙改我的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

junsean

小學生 Rank: 1

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

2^#

發表於 2010-10-19 08:28 | 顯示全部帖子

謝謝oobird
我今天來試試

另外請問如果
sheet1 想每隔10秒記錄1次
sheet2 想每隔1分鐘記錄1次

那要怎麼選module1 module2

TOP

junsean

小學生 Rank: 1

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

3^#

發表於 2010-10-19 12:20 | 顯示全部帖子

我試了
還是一樣數據一有變動就自動記錄
沒有間隔1分鐘1次

是我哪裡搞錯了嗎

我是這樣做
原本VBA的不動再將oobird您教的
放在module1
這樣對嗎?

TOP

junsean

小學生 Rank: 1

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

4^#

發表於 2010-10-19 17:12 | 顯示全部帖子

本帖最後由 junsean 於 2010-10-19 20:46 編輯

因為原來的會在
08:44:00以前刪除昨日的記錄
並且在
08:45:00到13:45:00自動記錄

如果刪掉原來的不就沒有這些功能了
想上傳檔案
卻無法上傳

TOP

junsean

小學生 Rank: 1

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

5^#

發表於 2010-10-19 21:02 | 顯示全部帖子

Sub yy()

With Sheet1

If TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("08:59:00") Then
Range("A3:I50000") = ""

Else

If TimeValue(Format(Now, "hh:mm:ss")) >= TimeValue("09:00:00") And TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("13:32:30") Then
ar = Array([A2], [B2], [C2], [D2], [E2], [F2], [G2], [H2], [I2])
[A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
Application.OnTime Now + TimeSerial(0, 0, 10), "yy"

End If
End If
End With
End Sub

Sub xx()

With Sheet2

If TimeValue(Format(Now, "hh:mm:ss")) <= TimeValue("08:44:00") Then
Range("A3: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([A2], [B2], [C2], [D2], [E2], [F2], [G2])
[A65536].End(xlUp).Offset(1, 0).Resize(, 7) = ar
Application.OnTime Now + TimeSerial(0, 0, 10), "xx"

End If
End If
End With
End Sub

TOP

junsean