|
>失礼しました。
>また曖昧な質問になりますが・・・
>新たに書いていただいたコードは新鮮に映るんですが・・・
>何故か動作しません・・・何を質問すると良いか分かりませんが・・・
>動かす方法を教えてください。
>>
>>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
>>
>>などとしておけば良いでしょう。
A列にB6の値が無い場合に、Ckの値がErrorになりますので
Ck < 6 の時に数値型にならないので「型が一致しない」と
エラーになるってことでしょうか?
Matchでやると最初に見つかったものを取得してしまうので
5行目以前にはデータを入れないで、
IsErrorだけでチェックするのが無難だと思います。
>>If Ck = Application.Match(Range("B6").Value, Range("A:A"), 0)
の最初のIfは誤記かなぁ と。
|
|