Excel マクロ

質問

c が 10 になるまで加算し続けるテキストで書いたスクリプトです

c = 1

while c <= 10

if c < 10 then
msgbox c
else
msgbox"終了します"
end if

wscript.sleep(500)

c = c + 1

wend

これをExcel上のsheet1のA1で実行させるにはどうしたらいいですか？

回答No.1

DOUGLAS_ · ベストアンサー

こういうことでしょうか？

Sub TEST()
　Dim c as Integer
　c = 1
　While c <= 10
　　If c < 10 Then
　　　Range("A1").Value = c
　　Else
　　　MsgBox "終了します"
　　End If
　　Application.Wait (Now + TimeValue("0:00:01"))
　　c = c + 1
　Wend
End Sub

　ただし、「Excel　マクロ」で 500 ミリ秒を待たせようとすると、API の [Sleep 関数] を呼ばないといけませんので、[Wait メソッド] で１秒待つことにしてあります。

お礼

ご回答ありがとうございました。　勉強になります

回答No.2

watabe007

結果的に1づつ増やすだけならFor.Nextステートメントを使う方法もアリかな
Sub Test()
　　Dim c As Integer
　　Dim Start As Single

　　For c = 1 To 9
　　　　Worksheets("Sheet1").Range("A1").Value = c
　　　　Start = Timer
　　　　Do While (Timer - Start < 0.5): Loop '0.5秒待ち
　　Next
　　MsgBox "終了します"
End Sub

お礼

ご回答ありがとうございました。　勉強になります