Excel VBA イミディエイトウィンドウで「分岐のあるループ処理」を実行したい

Question

Excel VBA イミディエイトウィンドウで「分岐のあるループ処理」を実行したい

For i = 1 To Sheets.Count
    If InStr(1, Sheets(i).Name, "変更") <> 0 Then
        Sheets(i).Activate
    End If
Next i

上記のコードを改行の代わりに「:」(コロン)を使って、
イミディエイトウィンドウに書いて実行してみたのですが、

コンパイルエラー:
行頭のみ許されるステートメントです。

と表示されて実行できません。
このようなケースの場合はイミディエイトは使えないのでしょうか?

###試したこと
標準モジュールに改行を「:」(コロン)に変える前のコードを書いて
一行ずつ改行を「:」(コロン)に変えてみたのですが、
for文 の行の後に if文 が来るとエラーになってしまうようです。
ifをやめてsheets(i).Activateだけの時は問題なく動作しました。

補足情報（FW/ツールのバージョンなど）

--追記--
良く 使い捨てのコードを 書いて消し忘れてしまうので
イミディエイトウィンドウで実行出来たら...
と思っての投稿です。

Excel 2013
VBA: Retail 7.1.1078

Answer 1

下記の構文でも、コンパイルエラーになります。

If 1=1 then: MsgBox "test!": End If  

If構文は : で１行にできないようです。
代わりにSelect Case を使うとエラーなく動作ました。

For i = 1 To 3: Select Case InStr(1, Sheets(i).Name, "変更") <> 0: Case True: Sheets(i).Activate: End Select: Next

ただ、複数行で書いて、それを１行につなげてなどと、するほうが面倒のような気がします。

使い捨て用モジュールを作成しておいて、一時的なものはそこに記述するようにすればどうでしょうか。

Comments

[kmyzr]

返信ありがとうございます。
無事　Select Case　で動きました!
ありがとうございました。
If構文ですが
If 1=1 then: MsgBox "test!"
として「End if」を除くと問題なく実行出来るようです。
「Then」のあと改行してから条件一致時の処理を書いた場合は
「End if」が必要なのに「:」(コロン)の場合はいらないようなので
不思議です ?
ホントにをありがとうございました!!

[hatena19]

If 1=1 then MsgBox "test!"
でも動きますね。もともと、この１行構文はありますので。
ただ、これを For ・・・Next に入れると動かないようです。
不思議ですね。

[kmyzr]

「:」(コロン)はラベル を指定する時に使ったりもあるので
その当たりが絡んでいるのかもしれませんね
又宜しくお願い致します!

Answer 2

単純にモジュール名に規則を持たせて用意し、完成後に検索しては、削除かコメントアウトかするといいでしょう。

Comments

[kmyzr]

返答ありがとうございます。
すみません。
「良く消し忘れるので出来ることならば
イミディエイトウィンドウを使いたいのです。」
とゆうのも 実際はとってつけた理由で
好奇心からの質問です。
ですので「イミディエイトウィンドウで「分岐のあるループ処理」を実行したい」の部分がミソなので
そのあたりが知りたいです。

Answer 3

試していませんが、デバッグ中のイミディエイトウィンドウ内でのコマンドは、回数カウントのためのスタック記憶場所を用意していないのではないでしょうか。
モジュールに示されたコードを組み込んだプロシージャを作っておいて、そのプロシージャをcallとかすることになるでしょう。

Comments

[kmyzr]

返答ありがとうございます。
実行するタイミングは デバック中 ではありません。
普通に標準モジュールなどに記載すれば問題ないのですが
良く消し忘れるので出来ることならば
イミディエイトウィンドウを使いたいのです。