セルの文字、背景、罫線の色を設定する。

VBAでセルの文字色、背景色、罫線の色を設定するには下記のそれぞれのオブジェクトのColorプロパティまたはColorIndexプロパティを利用することで設定できます。
　・文字色　　→　Fontオブジェクト
　・背景色　　→　Interiorオブジェクト
　・罫線の色　→　Bordersオブジェクト

ColorIndexプロパティに設定する値はカラーパレットと連動しており、1～56までの値を指定することができます。
Colorプロパティに設定する値はRGB関数、RGB関数の取得値(16,777,216通り)、または16進数値(&HFFFFFF形式)やＶＢＡの色定数(vbRedやvbBlack)を指定することができます。

　●文字の色を設定

'******************************************************************
'　文字の色を設定する
'******************************************************************
Sub Main_FontColor()
    
    'Index値 - 設定色：ラベンダー
    Sheets("Sheet1").Range("A1").Font.ColorIndex = 39
    
    'RGB関数の取得値 - 設定色：マゼンタ
    Sheets("Sheet1").Range("A2").Font.Color = RGB(255, 0, 255)
    
    '16進数 - 設定色：青
    Sheets("Sheet1").Range("A3").Font.Color = "&HFF0000"
    
    'VBA定数 - 設定色：赤
    Sheets("Sheet1").Range("A4").Font.Color = vbRed
    
End Sub

　■実行結果

　●背景色を設定

'******************************************************************
'　背景色を設定
'******************************************************************
Sub Main_BackColor()
    
    'Index値 - 設定色：ラベンダー
    Sheets("Sheet1").Range("A1").Interior.ColorIndex = 39
    
    'RGB関数の取得値 - 設定色：マゼンタ
    Sheets("Sheet1").Range("A2").Interior.Color = RGB(255, 0, 255)
    
    '16進数 - 設定色：青
    Sheets("Sheet1").Range("A3").Interior.Color = "&HFF0000"
    
    'VBA定数 - 設定色：赤
    Sheets("Sheet1").Range("A4").Interior.Color = vbRed
    
End Sub

　■実行結果

　●罫線の色を設定

'******************************************************************
'　罫線の色を設定
'******************************************************************
Sub Main_BorderColor()
    
    'Index値 - 設定色：ラベンダー
    Sheets("Sheet1").Range("A1").Borders.ColorIndex = 39
    
    'RGB関数の取得値 - 設定色：マゼンタ
    Sheets("Sheet1").Range("A2").Borders.Color = RGB(255, 0, 255)
    
    '16進数 - 設定色：青
    Sheets("Sheet1").Range("A3").Borders.Color = "&HFF0000"
    
    'VBA定数 - 設定色：赤
    Sheets("Sheet1").Range("A4").Borders.Color = vbRed
    
End Sub

　■実行結果