Excel VBA質問箱 IV

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

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


44291 / 76732 ←次へ | 前へ→

【37461】Re:Exit Forについて
回答  Kein  - 06/5/8(月) 19:13 -

引用なし
パスワード
   「同じ」は = で比較したとき True が返るわけですから、
「同じでない」は <> で比較したとき True になる場合です。
従ってループ構文の中のコードは

If Cells(i, 1).Value <> Range("B6").Value Then
  MsgBox Cells(i, 1).Value & " が違います"
  Exit For
End If

に、なります。しかし質問文からは、どうもそういうことを聞きたいのでなく、
「A列で B6 の値を検索して、あるかないかをメッセージしたい」という意味
のようですね。曖昧な表現をすると誤解を招くので、注意して欲しいです。
で、もしそのような内容ならば

Dim Ck As Variant

If Ck = Application.Match(Range("B6").Value, Range("A:A"), 0)
If IsError(Ck) Then
  MsgBox Range("B6").Value & " はありません"
End If

と、します。ここで「5行目以前に見つかっても、無かったことにする」なら

If IsError(Ck) Or Ck < 6 Then

などとしておけば良いでしょう。

0 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 お礼

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