EXCEL VBA 指定した時刻に実行・指定した時刻まで止める（Waitメソッドの使い方)

EXCEL VBA 指定した時刻に実行・指定した時刻まで止める（Waitメソッドの使い方)

Sub 指定時刻()
 
    Application.Wait "12:00:00"
 
    MsgBox "時間になりました。"
 
End Sub


Sub 現在時刻時刻から10秒後()

    Application.Wait Now + TimeValue("00:00:10")  '現在時刻から１０秒待つ
    
    MsgBox "時間になりました。"

End Sub

文字列を順番に表示します（１秒ごと：Application.Wait）

Sub 文字列順番表示()

    Dim Moji As String
    Dim I, L As Integer

    
    Moji = Cells(1, "A") 'セル「A1」の文字をMojiへ代入

    L = Len(Moji)  '代入されたMojiの文字数をLへ
    
    For I = 1 To L  '文字数分繰り返す。
    
        Application.Wait Now + TimeValue("00:00:01")  '現在時刻から一秒待つ
        Cells(3, "A") = Cells(3, "A") & Mid(Moji, I, 1)  'セルA3に一文字ずつ順番に表示させる。（文字を加える）
        
    Next I
    

End Sub

実行時間を指定してタイムスケジュール管理（指定時刻：Application.Wait）

Sub タイムスケジュール管理()
    
    Dim Hantei As Integer '
    Dim Moji As String
    Dim I, L, lRow As Long
    
    lRow = Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行取得
    
    MsgBox "スケジュール管理スタート"
    
    For I = 2 To lRow
        Application.Wait Cells(I, "C") '現在時刻＋次の作業までの時間
        
        Hantei = MsgBox(Cells(I, "B") & "完了したか？(Yes/No）", vbYesNo)
        
        If Hantei = vbYes Then
            Cells(I, "D") = "処理済み"  'Yesボタンを押した場合（D列に処理済み）
        Else
            Cells(I, "D") = "未処理"  'Noボタンを押した場合（D列に未処理）
        End If
        
    Next I
    
End Sub