Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12516 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   なるほど！
すんなり流れました！
助かりました。どうもありがとうございました！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12516 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free