Excel VBA質問箱 IV

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

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


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

4660 / 76732

←次へ　｜　前へ→


	【77690】Re:無限ループから他のマクルへの分岐

β - 15/11/29(日) 22:34 -


	引用なし

	パスワード

▼茶―坊さん：

γさんの回答を拝見して、あぁ、そうだと。
何も、βがアップしたような、とってつけたようなコード処理は不要でしたね。

以下のようなコードにして、ChangeStatusに　たとえば　ショートカットキー a、
StopLoop に　ショートカットキー z を割り振っておけば、Ctrl/a で　Proc1 と Proc2 の切り替え。
Ctrl/z で終了になりますね。

Dim flag As Boolean
Dim DoLoop As Boolean

Sub test()
　　DoLoop = True
　　flag = True
　　Do
　　　　If flag Then
　　　　　　proc1
　　　　Else
　　　　　　Proc2
　　　　End If
　　　　
　　　　DoEvents
　　　　
　　Loop While DoLoop
　　
　　Range("A1").Value = "終了"
　　
End Sub

Sub proc1()
　　Range("A1").Value = 1
End Sub

Sub Proc2()
　　Range("A1").Value = 2
End Sub

Sub ChangeStatus()　'Ctrl/a
　　flag = Not flag
End Sub

Sub StopLoop()
　　DoLoop = False　'Ctrl/z
End Sub

4 hits

▼

【77682】無限ループから他のマクルへの分岐 茶―坊 15/11/28(土) 21:00