Excel VBA質問箱 IV

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

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


12514 / 13644 ツリー ←次へ | 前へ→

【10127】break文 クレア 04/1/8(木) 14:48 質問
【10128】Re:break文 ichinose 04/1/8(木) 15:14 回答
【10129】Re:break文 クレア 04/1/8(木) 15:23 お礼

【10127】break文
質問  クレア  - 04/1/8(木) 14:48 -

引用なし
パスワード
   While Len(true)
 If (strSakiNAME = "") Then
   MsgBox "検索終了"
   break
 End If
Wend

上記のプログラムを実行しようとすると「break」にラインが引かれ、
コンパイルエラーが出てしまいます。
「SubまたはFunctionが定義されていません」とのことです。
VBAでは、breakは使えないのでしょうか?
また、使えない場合何を使用すれば、ループを抜けられるのでしょうか?
どなたかわかる方、是非お返事ください。

【10128】Re:break文
回答  ichinose  - 04/1/8(木) 15:14 -

引用なし
パスワード
   ▼クレア さん:
こんにちは。

>While Len(true)
> If (strSakiNAME = "") Then
>   MsgBox "検索終了"
>   break
> End If
>Wend
>
>上記のプログラムを実行しようとすると「break」にラインが引かれ、
>コンパイルエラーが出てしまいます。
>「SubまたはFunctionが定義されていません」とのことです。
>VBAでは、breakは使えないのでしょうか?
使えませんよ。

>また、使えない場合何を使用すれば、ループを抜けられるのでしょうか?
>どなたかわかる方、是非お返事ください。

While〜Wend文を使用した投稿をこのサイトでは初めて見ました。
私もN88Basicの時代以来なので、はっきり覚えていませんが、
これ使ってしまうとなかったような気がします。

do While Len(true)
> If (strSakiNAME = "") Then
>   MsgBox "検索終了"
    exit do
> End If
loop

こっちを使用してください。Exit Doで抜ける事ができます。

【10129】Re:break文
お礼  クレア  - 04/1/8(木) 15:23 -

引用なし
パスワード
   なるほど!
すんなり流れました!
助かりました。どうもありがとうございました!!

12514 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free