|
▼ぴの さん:
>"原本"というワークシートに1〜100までの数字がA列に1から100まで順番に入力してあるとします。
>その1〜100までのセルにはそれぞれ色が塗りつぶされています。
>もちろん100色も無いので重複したカラーで塗られているセルもあります。
>
>次に"結果"というワークシートがあるとします。
>そのシートA列にはランダムに1〜100までの数字が入っています。
>行数は決まっていません。100以上あるので重複した数字も入力してあります。
>セルに色は塗られていません。
>
>Worksheet("原本")のデータ(数字と色)を参照して、
>Worksheet("結果")の数字のは入ったセルにWorksheet("原本")のデータの数字と
>同じ色を塗るにはどうすればよろしいでしょうか?
>
>わかりにくいかと思いますが、どうぞ宜しくお願いいたします。
ふつうに回して、一致したら、そのセルの色を取得しています。
Sub test()
Dim r As Range
Dim r2 As Range
Set WS1 = Sheets("原本")
Set WS2 = Sheets("結果")
For Each r In WS2.Range(WS2.Cells(1, 1), WS2.Cells(Rows.Count, 1).End(xlUp))
For Each r2 In WS1.Range(WS1.Cells(1, 1), WS1.Cells(100, 1))
If r.Value = r2.Value Then
r.Interior.ColorIndex = r2.Interior.ColorIndex
End If
Next
Next
End Sub
|
|