セルの文字色と背景色を反転したい
チェックリストなど、ダブルクリックしてチェック完了を、色で区別をしたい場合があります。
ダブルクリックで簡単に変更可能です。
セルをダブルクリックでセル値を変更するサンプルコード
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】
注意事項
- 標準モジュールでは動作しません。ワークシートモジュールに記載しましょう。
コメント