エクセルVBAについて

質問

こんにちは。エクセルVBAを勉強して間もない初心者です。現在、作っているものがありますが、分からなくなってしまったのでご指導をお願いいたします。エクセル2000を使用しています。

《Sheets構成》
Sheets(1)とsheets(5)があります。※Sheets(2)～Sheets(4)はここでは省略します。
Sheets(1)には、Range(cells(19,2),cells(49,8))に、ランダムに商品CDが入力されています。
Sheets(5)には、Range(cells(7,2),cells(31,2))に商品CDが入力されています。

《やりたい事》
Sheets(1)に入力されている商品CDが、Sheets(5)にも入力されているかチェックし、もしSheets(5)に入力されていればSheets(1)の商品CDが入力されているセルに、"○"を表示させ、入力されていなければ、空白にしたいと考えています。

そのため、自分なりにマクロを作成してみましたが、どうしても空白にする事ができませんので、詳しい方のご指導を頂ければと思います。

《作成したマクロ・・・（変数の宣言はここでは省略させて頂きます）》

sub 商品CDチェック()

For n = 2 To 8　　　　　　'Sheets(1)B列～H列の変数
For m = 19 To 49　　'Sheets(1)商品CDが入っている行　
mm = 7　　　　　　　　'Sheets(5)の商品CDが入っている行
Do　　　　　　　　　'Sheets(1)とsheets(5)の商品CDのチェック
If Sheets(1).Cells(m, n).Value = Sheets(5).Cells(mm, 2).Value Then
Sheets(1).Cells(m, n).Value = "○"　　　　　'Sheets(5)に商品CDが入力されていれば○
End If
mm = mm + 1
Loop Until Sheets(5).Cells(mm, 2) = ""
Next m
Next n

《その他》
調べたところ、検索するにはFindメソッドを使用するような事が書いてあるものも見つけましたが、使い方がわかりません。もし、上記のマクロを作りたい時はFindを使ったほうが良い場合は、Findを使ったマクロも教えて頂けると、非常に参考になります。

よろしくお願いいたします。

回答No.2

mt2008 · ベストアンサー

私ならCountifで商品チェックしちゃいますね。

Sub sample()
　　Dim r1 As Range
　　Dim r5 As Range

　　Set r5 = Worksheets(5).Range("B7:B31")
　　For Each r1 In Worksheets(1).Range("B19:H49")
　　　　If Application.WorksheetFunction.CountIf(r5, r1.Value) > 0 Then
　　　　　　r1 = "○"
　　　　Else
　　　　　　r1.Clear
　　　　End If
　　Next r1
End Sub

お礼

早速の回答ありがとうございました。
ご指導の通り、Eachを使用し解決しました。

回答No.1

ShowMeHow

オラ、エクセル使ったことほとんどないから、間違っているかもしれないけど、
else
Sheets(1).Cells(m, n).Value = ""
を加えるとか、、、

なにしたいんだか良くわかんないけど、オラだったらアクセスで作るな。

お礼

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