エクセルの一致検索マクロについて

質問

申し訳ありません。お力かして下さい。
～～～～～～～～～～～～
◆シート名（役員一覧）
　Ａ列　　　Ｂ列　　　Ｃ列
　田中　　　藤田　　　秋山・・・・
　清水　　　小田　　　北山・・・・

◆シート名（役員名簿）
　Ａ列　　　Ｂ列　　　
　会計　　　田中
　総務　　　秋山
　会計　　　近江
　書記　　　堀田
　・
　・
　・
～～～～～～～～～～～～～
とある時に，シート名（役員一覧）に入力された名前と完全一致する
名前をシート名（役員名簿）のＢ列より検索し，その行を色付けなどで
チェックできるマクロの作成に滞っております。
どなたか何とかお力かしてください！！！

回答No.2

piro19820122

なぜマクロを使われるのでしょうか？
条件付書式ではダメですか？？

役員一覧シートで役員名が入力されている範囲に適当な名前を付けて、数式で指定する条件付書式で、countif関数の返値が1なら色を付けるようにすれば良いかと思うのですが…

本題から逸れますが、VBの質問ではない気がします。

回答No.1

totoro2424

はいよ！
.Color = 65535
のとこを変えれば色を変えれる。

バグってたらごめんなさい

Sub Search()
Dim Row1 As Integer
Dim Col1 As Integer
Row1 = 1
Col1 = 1

Dim Row2 As Integer
Dim Col2 As Integer
Row2 = 1
Col2 = 2

Dim Name As Variant

Worksheets("役員一覧").Activate

Do
Name = Worksheets("役員一覧").Cells(Row1, Col1).Value

Do
Worksheets("役員名簿").Activate
If Name = Worksheets("役員名簿").Cells(Row2, Col2).Value Then
Worksheets("役員名簿").Cells(Row2, Col2).Select
With Selection.Interior
.Color = 65535
End With
End If

Row2 = Row2 + 1
Loop While Worksheets("役員名簿").Cells(Row2, Col2).Value <> ""
Row2 = 1
Row1 = Row1 + 1

Worksheets("役員一覧").Activate
If Worksheets("役員一覧").Cells(Row1, Col1).Value = "" Then
Col1 = Col1 + 1
Row1 = 1
End If

Loop While Worksheets("役員一覧").Cells(Row1, Col1).Value <> ""

End Sub