Q&A
返答ありがとうございます。
すみません。
「良く消し忘れるので出来ることならば
イミディエイトウィンドウを使いたいのです。」
とゆうのも 実際はとってつけた理由で
好奇心からの質問です。
ですので「イミディエイトウィンドウで「分岐のあるループ処理」を実行したい」の部分がミソなので
そのあたりが知りたいです。
Excel VBA イミディエイトウィンドウで「分岐のあるループ処理」を実行したい
VBA
1For i = 1 To Sheets.Count 2 If InStr(1, Sheets(i).Name, "変更") <> 0 Then 3 Sheets(i).Activate 4 End If 5Next i
上記のコードを改行の代わりに「:」(コロン)を使って、
イミディエイトウィンドウに書いて実行してみたのですが、
コンパイルエラー: 行頭のみ許されるステートメントです。
と表示されて実行できません。
このようなケースの場合はイミディエイトは使えないのでしょうか?
###試したこと
標準モジュールに改行を「:」(コロン)に変える前のコードを書いて
一行ずつ改行を「:」(コロン)に変えてみたのですが、
for文 の行の後に if文 が来るとエラーになってしまうようです。
ifをやめてsheets(i).Activateだけの時は問題なく動作しました。
補足情報（FW/ツールのバージョンなど）
--追記--
良く 使い捨てのコードを 書いて消し忘れてしまうので
イミディエイトウィンドウで実行出来たら...
と思っての投稿です。
Excel 2013
VBA: Retail 7.1.1078
回答3件
0
ベストアンサー
下記の構文でも、コンパイルエラーになります。
vba
1If 1=1 then: MsgBox "test!": End If
If構文は : で１行にできないようです。
代わりにSelect Case を使うとエラーなく動作ました。
vba
1For i = 1 To 3: Select Case InStr(1, Sheets(i).Name, "変更") <> 0: Case True: Sheets(i).Activate: End Select: Next
ただ、複数行で書いて、それを１行につなげてなどと、するほうが面倒のような気がします。
使い捨て用モジュールを作成しておいて、一時的なものはそこに記述するようにすればどうでしょうか。
投稿2018/01/27 05:49
総合スコア33715
0
単純にモジュール名に規則を持たせて用意し、完成後に検索しては、削除かコメントアウトかするといいでしょう。
投稿2018/01/27 05:33
総合スコア2285
0
試していませんが、デバッグ中のイミディエイトウィンドウ内でのコマンドは、回数カウントのためのスタック記憶場所を用意していないのではないでしょうか。
モジュールに示されたコードを組み込んだプロシージャを作っておいて、そのプロシージャをcallとかすることになるでしょう。
投稿2018/01/27 04:50
総合スコア2285
返答ありがとうございます。
実行するタイミングは デバック中 ではありません。
普通に標準モジュールなどに記載すれば問題ないのですが
良く消し忘れるので出来ることならば
イミディエイトウィンドウを使いたいのです。
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/01/27 06:00
2018/01/27 06:40
2018/01/27 07:26