ExitでIFステートメントを抜けたい

質問

Sub test()
Dim n As Byte, i As Byte

For i = 0 To 5
　 If n = 0 Then
　　 n = n + 1
　 Else
　　 Exit For '（1）ここから
　 End If
i = i + 1 '（2）ここへ来たい（ＩＦステートメントだけ抜けたい）
Next i
End Sub

のように（1）から（2）へ行きたいのですが
このコードを実行すると
Forステートメントを抜けてしまい、マクロが終了してしまいます。

「Exit If」にするとエラーになってしまいます。
Exitを使用してIFステートメントだけ抜け、
Forステートメントに戻るにはどうすればいいでしょうか？

ご教授よろしくお願いします。

回答No.5

okdeath · ベストアンサー

こんにちわ。
VBAを使わないので書き方のルールがよくわからないのでエラーがでるかもしれませんが、i=i+1の場所がよくないんじゃないでしょーか？

ｎが０の時だけiに２を足したい。
nが０以外のときはiに１を足したい。
このようにしたいと考えているのではないでしょーか？

↓こんな感じに変えたらどうでしょう？（素人なんで変だったらごめんなさい。）

Sub test()
Dim n As Byte, i As Byte　←よくわからないのでそのまま＾＾；

For i = 0 To 5
　 If n = 0 Then
　　 n = n + 1
i = i + 1 ←ここに入れたらどーでしょー？（elseは不要っぽい）
　 End If
Next i
End Sub

あとは書き方分かる方おねがいします。

お礼

ありがとうございます。

回答No.6

nattocurry

If ～ End If は、ループじゃないので、Elseで何もしなければ、そのまま(2)に行きますよ。

ちなみに、Exit For で Forステートメント(Forループ)を抜けるのは、当たり前ですね。そういう命令なので。

お礼

If ～ End Ifはループじゃないんですね。
ありがとうございます。

回答No.4

imogasi

>Dim n As Byte, i As Byte
バイト型のこと
http://www.sdls.jp/~barista/tech/vba/g0.html
に初心者は使わないと。
これを使えるレベルなら、本質問など、出ないだろう。
ーー
コードだけ書くのでなく、何がやりたいのか「文章で」書くべき。書かないから、回答者から推測的な回答が出ているように思う。
それにエクセルの処理に絡んだ問題を抱えているのではないか。
そうであればセルとの関連で質問を書くべき。
例
Sub test01()
Dim i, j As Integer
For i = 1 To 10
For j = 1 To 5
'MsgBox i & "-" & j & Worksheets("Sheet4").Cells(i, j)
If Worksheets("Sheet4").Cells(i, j) <> "" And Worksheets("Sheet4").Cells(i, j) = 0 Then
Worksheets("Sheet4").Cells(i, j) = 1
Exit For
End If
Next j
Next i
End Sub
ーーー
例データ　A1:F5
結果元は１のところは０、－は空白セル。
1 ー ー 0 ー
ー ー ー ー ー
ー ー 1 ー ー
ー ー ー ー ー
ー ー 1 0 ー
ーーーーー
最悪、Gotoステートメントも使うぐらいの融通性を持ったら。
--
＞i = i + 1
Forループの中でカウンタ変数をいじくるのは、追跡をややこしくする。
ーー
Nが０ならば、Nを１にするでよいのでは。 n = n + 1なんて書かず。
ーー
ｎが０出なければこの処理をやめる、のだから
If n=0 then n=1

お礼

バイト型は使わないほうがいいのですね。
勉強になりました。
ありがとうございます。

回答No.3

zap35

一般的にFor～Nextのなかで i を加工することはあまりしません。それは後からわかりにくくなるからです。
（例外的に強制的にFor～Nextを抜けるために i に大きな値をセットすることはありますが、VBAではExit For文があるので必要性は薄いです）

質問文を単純に書き直すと以下になりますが、正直なところ何をしたいのかよく分からないので、これで良いか自信はありません。

Sub test()
Dim n , i As Integer
For i = 0 To 5 Step 2
　 If n = 0 Then
　　 n = n + 1
　 End If
Next i
End Sub

お礼

ありがとうございます。

回答No.2

noname#96023

forの条件は例なのでしょうか？

2回目のループでは必ずnが0じゃないので
そもそもforは不要なんですが

お礼

一度見直してみます。

回答No.1

KDASH-XP

上述の場合Else文が不要になるのではないでしょうか？
分岐処理の条件を記述するのがIf文ですので、抜けるのではなく、始めから入らない、が正解です。

お礼

あれ？
確かにそうですね。
ちょっとコードを見直してみます。