ダブルクリックでセルの文字色と背景色を反転する(BeforeDoubleClick)【ExcelVBA】

セルの文字色と背景色を反転したい

チェックリストなど、ダブルクリックしてチェック完了を、色で区別をしたい場合があります。
ダブルクリックで簡単に変更可能です。

セルをダブルクリックでセル値を変更するサンプルコード

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
　 '■文字の色と背景色を反転して入替する
    Dim tmp As Long
    With Target
        tmp = .Interior.Color
        .Interior.Color = .Font.Color
        .Font.Color = tmp
    End With
    Cancel = True
End Sub

今回はダブルクリックですが、シングルクリックで処理する事も可能です。
セルクリックした場合に処理を実行する【SelectionChange】【ExcelVBA】

注意事項

• 標準モジュールでは動作しません。ワークシートモジュールに記載しましょう。

関連記事

• 特定のセルをクリックした場合に処理を実行する【SelectionChange】
• 特定のセルをダブルクリックした場合に処理を実行する【BeforeDoubleClick】
• ダブルクリックで行や列、セルを塗りつぶしする【BeforeDoubleClick】
• 【VBA一覧】ColorIndex(文字色/背景色/見出し色)
• セルの文字色と背景色を反転する