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

エクセルマクロ:ダブルクリックで文字色変更アイキャッチ エクセルマクロで効率化する

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

 

セルをダブルクリックして、文字色を「黒→赤」に変更するVBAコードと、
さらに文字色を「赤→黒」に戻すVBAコードもご紹介します。

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

ダブルクリックで文字色を変更する

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

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

 

マクロ実行後

シート内のダブルクリックしたセルの文字色が赤色になります。

イベントマクロを記述したシート内のセルであれば、
どのセルをクリックしても、文字色が赤色になります。

 
 

マクロコードを記述する場所

「請求リスト」シート内のセルをダブルクリックしたときに赤文字にするためには、
VBEにて「請求リスト」シートにマクロコードを記述します。


 

ダブルクリックで文字色を変更する(元の色に戻す)

以下のマクロを実行すると、ダブルクリックしたセルの文字色を黒から赤に、赤から黒に変更します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    With Cells(Target.Row, Target.Column).Font

        '黒だったら
        If .Color = black Then

            '赤に変更
            .Color = 255
        
        '赤だったら
        ElseIf .Color = 255 Then
            
            '黒に変更
            .Color = black

        End If

        Cancel = True

    End With

End Sub

 

マクロ実行後

ダブルクリックしたセルの文字色を変更します。

文字色が黒の場合は、赤に変わります。


 

文字色が赤の場合は、黒に変わります。


 

【エクセルマクロ】ダブルクリックで処理を実行:超便利17選
...