【エクセルマクロ】ダブルクリックでセルの色を変更：簡単解説

エクセルマクロで、ダブルクリックでセルの色が変わるVBAコードをご紹介します。

私は、お客様に商品の納品日をメールで連絡する業務を行っていました。

その際にお客様への連絡が完了した注文については、店舗名のセルを色付けして判別できるようにしています。

エクセルの”リボン”から、背景色を変更することはできますが、
1日に何度もセルに色をつける作業をするので、マクロで自動化しました。
業務効率アップになりました！

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

ダブルクリックでセルの色を変更する

以下のマクロを実行すると、ダブルクリックしたセルの背景色を黄色に変更します。


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    With Target
        Cells(Target.Row, Target.Column).Interior.Color = 65535
        Cancel = True    
    End With
    
End Sub

特定の列をダブルクリックしたときのみマクロを実行したい時は？

下記コードのように、IF文を追加します。

[If .Column = 6 Then] は、6列目（F列）をダブルクリックしたときのみ、

マクロが実行されるように設定しています。


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
           
     With Target
        If .Column = 6 Then  
           Cells(Target.Row, Target.Column).Interior.Color = 65535
           Cancel = True
       End If   
    End With
    
End Sub

今回のマクロの場合は、手作業でやっても、作業時間に大きな差はないかもしれません。
しかし、日々やる業務のマウスのクリック数が少し減るだけでも、心的負担が少し軽減される、と個人的には思います。