VBATips

ダブルクリックでセルの文字色と背景色を反転する(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】

注意事項

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

関連記事

コメント

タイトルとURLをコピーしました