vba While ～ Wendは抜ける方法はないのですか？

質問

While　～　Wendを使っているのですが
途中で抜けたいです。

Sub test1()
Dim i As Long, j As Long
　While i < 5
　　　　　　 If j = 1 Then Exit Do
　　 i = i + 1
　　 Wend
’続きの処理
End Sub

だとエラーになるのでExit　subにしていますが、
やはりWhile　～　Wendでは途中で抜けられないのでしょうか？

それと
検索したところ
http://questionbox.jp.msn.com/qa2600400.html
がヒットしたのですが
もうWhile　～　Wendは使わない方がいいのでしょうか？
もしそうなら結構な数の書き換えが必要なので
出来れば途中で抜ける方方が知りたいです。

アドバイス宜しくお願い致します。

回答No.1

nza49739 · ベストアンサー

Exit Do を利用する場合は、do whileが必須です。
While ～ Wendがあるのは過去からの互換性の確保のためのようです。ということは、将来は利用できなくなるという意味です。
While ～ Wendで抜ける場合は、goto文を使って抜けます。

例
While a<>0
if b = 0 then goto WNext
(ループ内の処理)
Wend
WNext:
(次の処理)

あと、While～Wendをdo whileに置き換えるには一括置換で置き換えればいいので、別段時間がかかることはないと思いますよ。

お礼

将来は利用できなくなるのですね。
なるべく使わないように心がけます。
それに一括置換で対応できそうです。
有難うございました。

回答No.3

hige_082

＞やはりWhile　～　Wendでは途中で抜けられないのでしょうか？
抜けられますよね？？？？？？？？？？？？？？？？？
＞検索したところ
＞http://questionbox.jp.msn.com/qa2600400.html
＞がヒットしたのですが
リンク先は見たんですよね？
答えが出てると思うのですが？
＞出来れば途中で抜ける方方が知りたいです。
Sub test1()
Dim i As Long, j As Long
　While i < 5
　　　　　　 If j = 1 Then i = 5
　　 i = i + 1
　　 Wend
’続きの処理
End Sub
ですがダメなの？

参考？まで

お礼

例えが悪かったです。有難うございました。

回答No.2

2kaku34

プログラムのことは、よく分かりませんが。（とくに文法）
初期値は、どうなっているのですか？
変数 i と j との関連が分かりません。
変数 j は、変化しないのですか？たとえば偶数とか、奇数とか。i*2j とか。

i = 1 : j = 100
While i < 5
If j = 0 Then Exit Do
Ans = i * 2;guusuu
If j = 0 Then Exit Do
printf("変数ans = %d" , ans);
total = Toal + ans
i = i + 1
j = J - 2
Wend
printf("変数total = %d" , total);

お礼

すいません。多分例えが悪かったです。
有難うございました。