違うシートの同じ番号を色付けするマクロ

質問

シート1とシート２のA列それぞれに数字が振ってあります。
ここで、シート２のA列の任意のセルを塗りつぶしたとします。
それがシート１の同じ数字のセルも同じ色で塗りつぶされるマクロを作りたいのですが
なかなか作れません。教えていただければ非常に助かります。。

シート１　　　　　シート２
A列　　　　　　　A列
2 　　　　　　　　　5←塗りつぶすとシート１の5と入力された数字も塗りつぶされるようにしたい
4 　　　　　　 　　 9
5← 　　　　　　　 6

回答No.2

imogasi

考えるべきこと
（１）VBAでセルが塗りつぶされているかどうかの判別は、どういうコードになるか
（２）塗りつぶされている場合そのセルの値（ｘ）はどうして掴めるか
（３）Ｓｈｅｅｔ１の（Ａ列）セルで、Ｘのセルを見つけるのはどういうコードになるか
（４）見つかったセルのセル色を設定はどういうコードになるか。
こういう風に１歩１歩すべきことを分解して、書き上げて、本やＷＥＢ記事で勉強したか。丸投げに近い質問だ。
（１）は色は色々な色で設定されて居るか。この点を書いてないのは、しっかり考えて無い証拠。
その色を設定する条件（ルール）が簡単なら、シート１に対してＶＢＡで同じ条件で設定することも１方法だろう。
（１）は１色なら検索操作の条件で書式条件が使えるかもしれないから、マクロの記録が参考として使えるかも。
（３）（４）はマクロの記録が大いに参考になる。
＝＝
既に１回答が出ているがこれに頼っていると進歩は無いよ。
まずマクロの記録が参考になるところまではやって、行き詰まった点で質問すべきだろう。
（１）はＧｏｏｇｌｅででも「エクセル　セル　色づけ　判別」ででも照会
http://okwave.jp/qa/q3244298.htmlほか
＞If .ColorIndex = xlNone Thenの　 = xlNoneを <> xlNoneで使えるだろう。
＝＝
シート２に関しては、後の検索処理のことも考えて各（全）セル１つづつの判別になるだろう

回答No.1

keithin

作成例：
sub macro2()
　dim h as range, hh as range
　for each h in worksheets("Sheet1").range("A1:A" & worksheets("Sheet1").range("A65536").end(xlup).row)
　set hh = worksheets("Sheet2").range("A:A").find(what:=h.value, lookin:=xlvalues, lookat:=xlwhole)
　if hh is nothing then
　　h.interior.colorindex = xlnone
　else
　　h.interior.color = hh.interior.color
　end if
　next
end sub

自動云々は先日回答したとおりです。

＃それと先日は割愛しましたが，セルの色塗りを含めてマクロの書きぶりもご利用のエクセルのバージョンに応じて少し変わる場合があります。
ご相談投稿時には，ご利用のソフト名は元よりご利用のソフトのバージョンまでしっかり明記することを憶えてください。