ブログ - macOSでExcelの罫線全部に色をつけたい
Excelシートの全ての罫線の色を一括で変更する機能が,macOS版のExcelには無い.
マクロで修正することにした.
・VBAエディタを開く
・「挿入 → モジュール」で新規モジュールを作成
・以下のコードを貼り付けて保存
・Excelに戻って「ツール → マクロ → マクロの実行」から ChangeBorderColor を実行
・選択範囲の罫線色が一括で変更される.
今ままで,色を変えたいことはあまりなかったのでそんな機能がないなんて気づかなかったな.
マクロで修正することにした.
・VBAエディタを開く
・「挿入 → モジュール」で新規モジュールを作成
・以下のコードを貼り付けて保存
Sub ChangeExistingBordersColor()
Dim rng As Range
Dim c As Range
Dim b As Border
' 選択範囲を対象
Set rng = Selection
For Each c In rng
For Each b In c.Borders
If b.LineStyle <> xlNone Then
b.Color = RGB(173, 216, 255) ' ← 水色に変更(RGBで指定)
End If
Next b
Next c
End Sub
・Excelに戻って「ツール → マクロ → マクロの実行」から ChangeBorderColor を実行
・選択範囲の罫線色が一括で変更される.
今ままで,色を変えたいことはあまりなかったのでそんな機能がないなんて気づかなかったな.
b.Color = RGB(255, 0, 0) ' ← 赤色に変更
b.Color = RGB(0, 0, 255) ' ← 青に変更