Excel VBA質問箱 IV

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

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


44295 / 76732 ←次へ | 前へ→

【37457】Re:Exit Forについて
質問  Koharu  - 06/5/8(月) 18:44 -

引用なし
パスワード
   ▼かみちゃん さん Kein さん:

大変勉強させていただきました。
丁寧なサンプルと説明でよく理解できました。

自分なりに、Exit Forを試みました。
For〜Nextから抜け出ることが出来ました。

しかし、下の例で同じでない場合のMsgBoxが上手く働きませんが
どのような処理をすると良いのでしょうか。 
For 〜Nextでない方法が必要なのでしょうか。

For i = 6 To Cells(65536, 1).End(xlUp).Row
 If Cells(i, 1) = Range("B6").Value Then
   MsgBox Range("B6").Value & "がありました"
   Exit For
 End If
Next i

この下のコードを働かしたいのですが・・・B6と同じでない場合に
   MsgBox Range("B6").Value & "はありません"

アドバイスをお願いします。
 
1 hits

【37449】Exit Forについて Koharu 06/5/7(日) 15:53 質問
【37450】Re:Exit Forについて かみちゃん 06/5/7(日) 16:03 発言
【37451】Re:Exit Forについて Kein 06/5/7(日) 16:47 発言
【37457】Re:Exit Forについて Koharu 06/5/8(月) 18:44 質問
【37459】Re:Exit Forについて ハチ 06/5/8(月) 19:01 発言
【37498】Re:Exit Forについて Koharu 06/5/9(火) 20:17 お礼
【37461】Re:Exit Forについて Kein 06/5/8(月) 19:13 回答
【37499】Re:Exit Forについて Koharu 06/5/9(火) 20:22 質問
【37506】Re:Exit Forについて ゆみ 06/5/9(火) 21:19 発言
【37517】Re:Exit Forについて Koharu 06/5/9(火) 22:07 お礼
【37523】Re:Exit Forについて ハチ 06/5/10(水) 8:31 発言
【37531】Re:Exit Forについて Koharu 06/5/10(水) 18:37 お礼

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