ここから本文です

エクセル(2010) マクロについてです。

blu********さん

2013/2/2519:39:21

エクセル(2010) マクロについてです。

下記のようなマクロがあるのですが、下記だとテキストボックスに入力したデータが、指定した範囲(B9~B508)のデータとひとつも一致しない場合エラーとなるのですが、逆にこれを指定した範囲にひとつでもある場合に(重複してしまった場合に)エラーとなるようにはどのように入力すればよいのでしょうか?

ご回答お願い致します。


Target = TextBox2
Set SearchArea = Worksheets("製番別一覧").Range("b9:b508")
Set FoundCell = SearchArea.Find(What:=Target, LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False, MatchByte:=False)
If FoundCell Is Nothing Or TextBox2.Value = "" Then
MsgBox "一致する製番がありません"

閲覧数:
351
回答数:
1

違反報告

ベストアンサーに選ばれた回答

kou********さん

編集あり2013/2/2519:51:23

Target = TextBox2
Set SearchArea = Worksheets("製番別一覧").Range("b9:b508")
If WorksheetFunction.CountIf(SearchArea, Target) > 0 Then
MsgBox "重複してます"
End If

質問した人からのコメント

2013/2/26 09:24:37

降参 ありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる