OfficeType

VBA~シートの枠線の色を変更しよう~Excel

VBAでセルの枠線の色を変更したい場合はWindow.GridlineColorIndexプロパティまたはWindow.GridlineColorプロパティを設定します。

Window.GridlineColorIndexプロパティ

Window.GridlineColorIndexプロパティでは枠線の色はカラーパレットのインデックス番号で設定します。

下のコードを実行すると枠線の色が赤になります。

Sub test1()

ActiveWindow.GridlineColorIndex = 3

End Sub

image-01

Window.GridlineColorプロパティ

Window.GridlineColorプロパティでは枠線の色はRGB関数で設定します。

下のコードを実行すると枠線の色が赤になります。

Sub test2()

ActiveWindow.GridlineColor = RGB(255, 0, 0)

End Sub

image-02

枠線の色を標準に戻す

枠線の色を標準に戻したい場合はWindow.GridlineColorIndexプロパティをxlColorIndexAutomaticに設定します。

下のコードを実行すると枠線の色が標準になります。

Sub test3()

ActiveWindow.GridlineColorIndex = xlColorIndexAutomatic

End Sub

image-03

image-04

指定したシートの枠線の色を変更する

指定したシートの枠線の色を変更したい場合は、まず枠線の色を変更したいシートをアクティブにします。

下のコードを実行するとSheet2の枠線の色が赤になります。

Sub test4()

Worksheets("Sheet2").Activate
ActiveWindow.GridlineColor = RGB(255, 0, 0)

End Sub

image-05

ブックを指定して枠線の色を変更する

ブックを指定して枠線の色を変更したい場合は、まず枠線の色を変更したいブックのシートをアクティブにします。

Book1.xlsxというブックが開いた状態で下のコードを実行するとBook1.xlsxのSheet1の枠線の色が赤になります。

Sub test5()

Workbooks("Book1.xlsx").Worksheets("Sheet1").Activate
ActiveWindow.GridlineColor = RGB(255, 0, 0)

End Sub