VBATips

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

2023.01.01

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

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

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

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

注意点

 

関連記事

コメント