セルの文字色と背景色を反転する【ExcelVBA】

セルの文字色と背景色を反転する

チェックリストや優先順位付けのためセルの色を反転させたい場合があります。
本記事では文字フォントの色と背景色を反転(入替)するコードを紹介します。

セルの文字色と背景色を反転するサンプルコード

Public Sub sample()
    '■文字の色と背景色を反転して入替する
    Dim tmp As Long
    With Range("A1")
        tmp = .Interior.Color
        .Interior.Color = .Font.Color
        .Font.Color = tmp
    End With
End Sub

注意点

関連記事

• セル背景色を設定/取得する【Interior.Colorプロパティ】
• セルの文字色(フォント色)を設定/取得する【Font.Colorプロパティ】
• セルの文字色を背景色と同じにする