【ＶＢＡ】セル塗りつぶし色は、RGBやColorIndexを使わず凡例でもよい

運動会特別時間割作成シートで使った手法です。

凡例を作り、同じように塗りつぶしをかければ、ＲＧＢ等でコードを書く必要がなく、色も自由に変えられます。

【コード】標準モジュール

Sub 塗りつぶしフォントカラー凡例コピー()

Dim rng, rngR As Range
Dim c, r As Integer

Set rng = Range("C1") '凡例

　For c = 0 To 10 Step 2
　For r = 0 To 10 Step 2

　Set rngR = Range("C6").Offset(r, c) '適用先

With rngR
　.Interior.Color = rng.Interior.Color '★
　.Font.Color = rng.Font.Color '★
　.Font.Bold = True '太字
　.VerticalAlignment = xlCenter '上下中央
　.HorizontalAlignment = xlCenter '左右中央
　.Borders.LineStyle = xlContinuous '格子描画
End With

Next
Next

End Sub

---------------------------------------------

rngR.Interior.Color = rng.Interior.Color '★

のところがミソですね。

では、また(^^)/