Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46417 / 76735

←次へ　｜　前へ→


	【35290】Re:サブルーチンについて

かみちゃん - 06/2/25(土) 21:43 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>ＡＢＣＤＥの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

0 hits

▼

【35289】サブルーチンについて yukio 06/2/25(土) 21:29