這種依時間運算的巨集要如何寫??

　暱稱: PKKO

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2014-11-16 01:33 | 顯示全部帖子

本帖最後由 PKKO 於 2014-11-16 01:36 編輯

回復 1# 藍天麗池

試試看

Public i As interger
Sub test1()
i = 1
Application.OnTime TimeValue("08:46:00"), "test2" '特定時間呼叫程式
End Sub
Sub test2()
Range("e" & i) = Application.WorksheetFunction.Sum(Range("A" & i & ":" & "C" & i + 2)) '輸入值
If Hour(Time) = 13 Then '判斷小時
If Minute(Time) = 45 Then '判斷分
MsgBox "結束" '相同時分則不再進行
Else
Application.OnTime Now + TimeValue("00:01:00"), "test2" '一分鐘後運行
End If
Else
Application.OnTime Now + TimeValue("00:01:00"), "test2" '一分鐘後運行
End If
i = i + 1
End Sub

複製代碼

PKKO

靜思自在 : 不怕事多，只怕多事。