Salt la conținutul principal

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

Autor: Siluvia Ultima modificare: 2024-11-13

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

O captură de ecran a ferestrei de cod VBA pentru adăugarea 1 la valoarea unei celule la dublu clic

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.

O captură de ecran a celulei Excel A1 după ce ați folosit dublu clic pentru a adăuga 1


Articole pe aceeași temă:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools Ajutor AI: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  invoca Kutools funcţii...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele
Utilizare Kutools în limba preferată – este compatibilă cu engleză, spaniolă, germană, franceză, chineză și peste 40 de alte limbi!

Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...


Office Tab Aduce interfața cu file la 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!