|
「同じ」は = で比較したとき 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
などとしておけば良いでしょう。
|
|