Jak dvakrát kliknout na buňku a přidat 1 k této hodnotě buňky v aplikaci Excel?

Tento článek vám ukáže způsob automatického přidání 1 k hodnotě buňky dvojitým kliknutím v aplikaci Excel.

Poklepejte na buňku a přidejte 1 s kódem VBA

Poklepejte na buňku a přidejte 1 s kódem VBA

Následující kód VBA vám pomůže po dvojitém kliknutí přidat 1 k hodnotě buňky. Postupujte prosím následovně.

1. Klikněte pravým tlačítkem na záložku listu, na kterou hodnoty buněk, které potřebujete přidat 1, dvojitým kliknutím. Poté klikněte Zobrazit kód z nabídky pravého tlačítka myši.

2. Ve vyskakovacím okně Microsoft Visual Basic pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Dvojitým kliknutím přidejte 1 k hodnotě buňky

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

Pozor: V kódu je A1 buňka, do které přidáte číslo 1 dvojitým kliknutím.

3. zmáčkni Další + Q současně zavřete okno Microsoft Visual Basic pro aplikace.

Nyní dvojitým kliknutím na buňku A1 přidáte 1 k existující hodnotě, jak je uvedeno níže.

Související články:

• Jak automaticky přidat / zadat aktuální datum a čas v buňce dvojitým kliknutím v aplikaci Excel?
• Jak přidat zaškrtnutí do buňky dvojitým kliknutím v aplikaci Excel?