VBA～セルの文字色、背景色を取得しよう～Excel

VBAでセルの文字色を取得したい時はRange.Font.Colorプロパティで取得できます。セルの背景色を取得したい時は Range.Interior.Colorプロパティで取得できます。

文字色

下のコードを実行するとセルA1の文字の色番号がメッセージボックスに表示されます。

Sub test1()

Dim a As Long

a = Range("A1").Font.Color

MsgBox a

End Sub

背景色

下のコードを実行するとセルA1の背景色の色番号がメッセージボックスに表示されます。

Sub test2()

Dim a As Long

a = Range("A1").Interior.Color

MsgBox a

End Sub

指定したシートのセルの色を取得

シートを指定するときはWorksheets("シート名")で指定できます。

下のコードを実行するとSheet2のセルA1の背景色の色番号がメッセージボックスに表示されます。

Sub test3()

Dim a As Long

a = Worksheets("Sheet2").Range("A1").Interior.Color

MsgBox a

End Sub

ブックを指定して参照

ブックを指定するときはWorkbooks("ブック名")で指定できます。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1のセルA1の背景色の色番号がメッセージボックスに表示されます。

Sub test4()

Dim a As Long

a = Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Interior.Color

MsgBox a

End Sub