vba

' 魔法の言葉
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As Long)

' スタート！
Sub Start()
    ' i を定義する
    Dim i
    ' 1 から 3 まで i に数字を代入しながら繰り返す
    For i = 1 To 3
        ' H3 セルに i の数字を入れる
        Range("H3").Value = i
        ' 1000ミリ秒休む
        Sleep 1000
    ' 次の i に行く
    Next i
    ' 最後に H3 セルを 0 にする。
    Range("H3").Value = 0
' おしまい
End Sub