Excel・VBAで役に立つ情報を発信していきます。

Excelでダブルクリックしたセルを選択する方法

↓ここからコピー&ペースト

'A列をダブルクリックした時に、そのセルに文字が入っていない場合は0を表示させる。文字が入っている場合は、その文字を消す

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

    ' A列の1セルのみ対象

    If Target.Column = 1 And Target.Cells.Count = 1 Then

        If Trim(Target.Value & "") = "" Then

            ' 空白なら0を入力

            Target.Value = 0

        Else

            ' 値が入っているなら消す

            Target.ClearContents

        End If

        ' 編集モードに入らない

        Cancel = True

    End If

End Sub