セルの色を変更

セルの色を変更します。

【カラー定数】
VBであらかじめ用意されている変数の色です。

Sub CellBackColor()
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ThisWorkbook
    Set ws = wb.Sheets(1)

    ' https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/color-constants
    ws.Range("A1").Interior.Color = vbBlack     ' 黒
    ws.Range("A2").Interior.Color = vbRed       ' 赤
    ws.Range("A3").Interior.Color = vbGreen     ' 緑
    ws.Range("A4").Interior.Color = vbYellow    ' 黄
    ws.Range("A5").Interior.Color = vbBlue      ' 青
    ws.Range("A6").Interior.Color = vbMagenta   ' 紫
    ws.Range("A7").Interior.Color = vbCyan      ' シアン
    ws.Range("A8").Interior.Color = vbWhite     ' 白
    ws.Range("A9").Interior.ColorIndex = xlNone ' 塗りつぶし無し

End Sub

---

【RGB指定】
RGB関数を使用して、任意の色を指定します。
RGBの組み合わせで、16,777,216通りの色を指定できます。

RGB(red,green,blue)
red 色の赤色成分。0 から 255 の数値
green 色の緑色成分。0 から 255 の数値
blue 色の青色成分。0 から 255 の数値

Sub CellBackColorRGB()
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ThisWorkbook
    Set ws = wb.Sheets(1)

    ws.Range("A11").Interior.Color = RGB(0, 0, 0)       ' 黒
    ws.Range("A12").Interior.Color = RGB(255, 0, 0)     ' 赤
    ws.Range("A13").Interior.Color = RGB(0, 255, 0)     ' 緑
    ws.Range("A14").Interior.Color = RGB(255, 255, 0)   ' 黄
    ws.Range("A15").Interior.Color = RGB(0, 0, 255)     ' 青
    ws.Range("A16").Interior.Color = RGB(255, 0, 255)   ' 紫
    ws.Range("A17").Interior.Color = RGB(0, 255, 255)   ' シアン
    ws.Range("A18").Interior.Color = RGB(255, 255, 255) ' 白

End Sub

【セルの指定方法】
範囲で指定することもできます。例：Range(“A1:C1”)
Cellsでも指定することができるので、for文でループしたい場合にも使用できます。

Sub CellBackColor2()
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ThisWorkbook
    Set ws = wb.Sheets(1)

    ' 範囲での指定
    ws.Range("A1:C1").Interior.Color = RGB(255, 0, 0)

    ' セルでの指定
    ws.Cells(3, 3).Interior.Color = RGB(255, 0, 0)

End Sub