Cum să faceți dublu clic pe o celulă și să adăugați 1 la acea valoare a celulei în Excel?

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

Faceți dublu clic pe o celulă și adăugați 1 cu codul VBA

Faceți dublu clic pe o celulă și adăugați 1 cu codul VBA

Uimitor! Utilizarea unor file eficiente în Excel, cum ar fi Chrome, Firefox și Safari!

Economisiți 50% din timp și reduceți mii de clicuri de mouse pentru dvs. în fiecare zi!

---

Următorul cod VBA vă poate ajuta să adăugați 1 la o valoare a celulei după dublu clic. Vă rugăm să faceți următoarele.

1. Faceți clic dreapta pe fila foaie pe care valorile celulei pe care trebuie să le adăugați 1 făcând dublu clic. Apoi apasa 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.

Cod VBA: Adăugați 1 la o valoare a celulei făcând dublu clic

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 la care veți adăuga numărul 1 cu dublu clic.

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

Acum, faceți dublu clic pe celula A1 va adăuga 1 la valoarea existentă așa cum este prezentat 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?

---

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
• Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
• Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
• Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
• Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
• Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
• Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
• Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
• Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

• Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
• Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
• Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...