返回列表 上一主題 發帖

請問，特定時間執行程式的程式碼，要如何改?

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-5-4 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2024-4-4 20:46 | 顯示全部帖子
本帖最後由 singo1232001 於 2024-4-4 20:48 編輯

回復 1# 藍天麗池


    Sub test()
          I = TimeValue("08:45:00")  '起
Do While I <= TimeValue("13:45:00")  '終
    If Format(I, "ss") = "57" Then   '秒數為57
    Application.OnTime Date + I, "工作表1.當57秒時要執行的程序"
    End If
    If Format(I, "ss") = "01" Then   '秒數為01
    Application.OnTime Date + I, "工作表1.當01秒時要執行的程序"
    End If
   
    I = DateAdd("s", 1, I)
Loop
End Sub

Sub 當57秒時要執行的程序()
       Debug.Print "執行57秒程序"
End Sub

Sub 當01秒時要執行的程序()
       Debug.Print "執行01秒程序"
End Sub

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題