返回列表 上一主題 發帖

[發問] 請教此程序如何改?

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-8-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-9 11:40 | 顯示全部帖子

[發問] 請教此程序如何改?

本帖最後由 t8899 於 2013-10-9 11:47 編輯

Public Runtime
Sub a123()
If [U1] <> 1 Then
On Error Resume Next
Application.OnTime EarliestTime:=TimeValue(Runtime), _
    Procedure:="a123", Schedule:=False
  Exit Sub
On Error GoTo 0
End If
zzzzz
If Range("V14") = 1 Then mytime = "00:01:00"
If Range("V14") = 2 Then mytime = "00:02:00"
If Range("V14") = 3 Then mytime = "00:00:30"
If Range("V14") = 4 Then mytime = "00:00:15"
'--------------------------------------
Runtime = Now + TimeValue(mytime)
Range("I15").Value = Format(Runtime, "hh:mm:ss")
'------------------------------------------------------
Application.OnTime Runtime, "Sheet6.a123"
End Sub

---------------------------------------------------------------------

第一次執行
Runtime = Now + TimeValue(mytime)
Range("I15").Value = Format(Runtime, "hh:mm:ss")
之後皆為
Runtime = Range("I15").Value + TimeValue(mytime)
Range("I15").Value = Format(Runtime, "hh:mm:ss")
收藏 分享

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-8-15 
2#
發表於 2013-10-13 09:58 | 顯示全部帖子
本帖最後由 t8899 於 2013-10-13 10:08 編輯
回復  t8899
試試看
GBKEE 發表於 2013-10-12 16:25


謝謝指導,vb 正學習當中，多日無人回應，小弟想出的簡單的方法,提供參考
Public Runtime
Sub a123()
If Range("U1").Value <> 1 Then
On Error Resume Next
Application.OnTime EarliestTime:=TimeValue(Runtime), _
    Procedure:="a123", Schedule:=False
Cells(15, 9).Interior.ColorIndex = 2   '退出色彩還原
Range("u1").Value = 1
Range("z1").Value = 1
  Exit Sub
On Error GoTo 0
End If
zzzzz
If Range("V14") = 1 Then mytime = "00:01:00"
If Range("V14") = 2 Then mytime = "00:02:00"
If Range("V14") = 3 Then mytime = "00:00:30"
If Range("V14") = 4 Then mytime = "00:00:15"

If Range("z1").Value = 1 Then
Cells(15, 9).Interior.ColorIndex = 8     '執行中變色
Runtime = Now + TimeValue(mytime)
Range("I15").Value = Format(Runtime, "hh:mm:ss")
Range("z1").Value = 2  
Else
Runtime = Range("I15").Value + TimeValue(mytime)
Range("I15").Value = Format(Runtime, "hh:mm:ss")
End If
Application.OnTime Runtime, "Sheet6.a123"
End Sub

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-8-15 
3#
發表於 2013-10-13 10:21 | 顯示全部帖子
回復  t8899
試試看
GBKEE 發表於 2013-10-12 16:25


On Error Resume Next  =========>這句應可拿掉??
u1 不等於1 時並不等於"錯誤"??

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題