Cum se adaugă 1 la valoarea unei celule făcând dublu clic în Excel?

Acest articol vă va arăta o metodă de a adăuga automat 1 la o valoare a celulei făcând dublu clic pe ea în Excel.

Utilizați dublu clic pentru a crește valoarea celulei cu 1 cu codul VBA

Utilizați dublu clic pentru a crește valoarea celulei cu 1 cu codul VBA

Următorul cod VBA vă va ghida prin pașii pentru a adăuga 1 la valoarea din celula A1 făcând dublu clic. Vă rugăm să urmați aceste instrucțiuni.

1. Faceți clic dreapta pe fila foaie unde trebuie să adăugați 1 la valoarea din celula A1 făcând dublu clic. Apoi faceți clic Afișați codul din meniul cu clic dreapta.

2. În fereastra pop-up Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți codul VBA de mai jos în fereastra Cod.

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

notițe: În cod, A1 este celula în care se va adăuga 1 de fiecare dată când faceți dublu clic. Îl puteți ajusta după cum este necesar.

3. apasă pe Alt + Q simultan pentru a închide fereastra Microsoft Visual Basic pentru aplicații.

Acum, dublu clic pe celula A1 va adăuga 1 la valoarea existentă, așa cum se arată în captura de ecran de mai jos.

Articole pe aceeași temă:

• Cum se adaugă automat / se introduce data / ora curentă într-o celulă cu dublu clic în Excel?
• Cum se adaugă bifă într-o celulă cu dublu clic în Excel?