|
こんにちは。かみちゃん です。
>ABCDEの5つのマクロを1分ごとに動作させ、止める命令があるまでは繰り返す
以下のような感じでいかがでしょうか?
止める命令というものが、何を示すのかわからないのですが、
基本的には、無限ループにしておきます。
ただし、以下のコードでは、Exit Do で、念のためループを抜けるようにしています。
Option Explicit
Sub Macro1()
Dim i As Integer
Do
For i = 1 To 5
Application.Wait (Now + TimeValue("0:01:00"))
Select Case i
Case 1
Call A
Case 2
Call B
Case 3
Call C
Case 4
Call D
Case 5
Call E
End Select
Next
Exit Do
Loop
MsgBox "終了しました"
End Sub
Sub A()
MsgBox "Aを実行します"
End Sub
Sub B()
MsgBox "Bを実行します"
End Sub
Sub C()
MsgBox "Cを実行します"
End Sub
Sub D()
MsgBox "Dを実行します"
End Sub
Sub E()
MsgBox "Eを実行します"
End Sub
|
|