返回列表 上一主題 發帖

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

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2024-3-29 21:36 | 只看該作者

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

Dim I As Integer '(短整數)資料型態'Public i As interger => 出現使用者型態尚未定義, 正確: Integer

Sub Ex()
    Dim xTime As Date
    If Time >= #8:45:00 AM# And Time <= #1:30:00 PM# Then
        With Sheets("RTD").Cells(I + 3, "T").Resize(, 6)
            .Offset(-2).Value = .Offset(-2).Value '上一列:將公式回數值
                    'T欄公式=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))
            .Range("A1") = "=MATCH(RC[1],R3C[-19]:R70000C[-19],1)+2"
                    'X欄公式=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
            .Range("E1") = "=SUM(INDIRECT(""B""&R[-1]C[-4]+1):INDIRECT(""B""&RC[-4]))"
                    'Y欄公式=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
            .Range("F1") = "=SUM(INDIRECT(""C""&R[-1]C[-5]+1):INDIRECT(""C""&RC[-5]))"
                    'W欄公式=IF(ISERROR(INDIRECT("O"&T2)),"",INDIRECT("O"&T2))
            .Range("C1") = "=RC[-2]-R[-1]C[-2]"
                    'X欄公式=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
            '.Range("E1") = "=IF(RC[-1]="""","""",IF(RC[-1]>54,-1,IF(RC[-1]<6,1,"""")))"
                    'Y欄公式=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
            '.Range("F1") = "=IF(ISERROR(INDIRECT(""R""&RC[-5])),R[-1]C,INDIRECT(""R""&RC[-5]))"
            '.Resize(, 6) = .Resize(, 6).Value  '將公式回數值
        End With
        I = I + 1
        xTime = Time + #12:01:00 AM#
        If xTime <= #1:45:00 PM# Then Application.OnTime xTime, "EX"
    ElseIf Time < #8:45:00 AM# Then
        Application.OnTime #8:45:00 AM#, "EX"
    Else
        MsgBox "時間已過"
    End If
End Sub

上面是我目前在執行程式的程式碼，請問一下版上前輩，如果要將上述程式碼改成一樣在8:45-13:45分執行，但執行條件改為每分鐘的秒數到57秒執行程式，到下分鐘的01秒將上一個執行的公式寫成值，這樣要如何更改程式碼呢?

例；8:45:57秒執行以下功能，8:46:01秒將8:45:57秒執行的公式轉成值，8:46:57秒一樣執行程式，8:47:01秒一樣轉換成值，依此類推，一直執行到13:45，這樣的程式碼要如何更改?
             .Range("A1") = "=MATCH(RC[1],R3C[-19]:R70000C[-19],1)+2"
                    'X欄公式=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
            .Range("E1") = "=SUM(INDIRECT(""B""&R[-1]C[-4]+1):INDIRECT(""B""&RC[-4]))"
                    'Y欄公式=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
            .Range("F1") = "=SUM(INDIRECT(""C""&R[-1]C[-5]+1):INDIRECT(""C""&RC[-5]))"
                    'W欄公式=IF(ISERROR(INDIRECT("O"&T2)),"",INDIRECT("O"&T2))
            .Range("C1") = "=RC[-2]-R[-1]C[-2]"
                    'X欄公式=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
            '.Range("E1") = "=IF(RC[-1]="""","""",IF(RC[-1]>54,-1,IF(RC[-1]<6,1,"""")))"
                    'Y欄公式=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
收藏 分享

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 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

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題