セルをダブルクリックして、Excelでそのセルの値に1を追加するにはどうすればよいですか？

この記事では、Excelでセル値をダブルクリックしてセル値に1を自動的に追加する方法を説明します。

セルをダブルクリックし、VBAコードで1を追加します

セルをダブルクリックし、VBAコードで1を追加します

次のVBAコードは、ダブルクリックした後にセルの値に1を追加するのに役立ちます。 次のようにしてください。

1.ダブルクリックして1を追加する必要のあるセル値が表示されているシートタブを右クリックします。 次に、をクリックします コードを表示 右クリックメニューから。

2.ポップアップで アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のVBAコードをコピーしてコードウィンドウに貼り付けます。

VBAコード：ダブルクリックしてセル値に1を追加します

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("A1").Value = Range("A1").Value + 1
      Cancel = True
    End If
End Sub

Note：コードでは、A1はダブルクリックで番号1を追加するセルです。

3。 プレス 他の + Q キーを同時に押して、Microsoft Visual Basic forApplicationsウィンドウを閉じます。

次に、セルA1をダブルクリックすると、以下のスクリーンショットに示すように、既存の値に1が追加されます。

関連記事:

• Excelでダブルクリックしてセルに現在の日付/時刻を自動追加/入力するにはどうすればよいですか？
• Excelでダブルクリックしてセルにチェックマークを追加するにはどうすればよいですか？