Hvordan dobbeltklikker du på en celle og tilføjer 1 til den celleværdi i Excel?
Denne artikel viser dig metode til automatisk at tilføje 1 til en celleværdi ved at dobbeltklikke på den i Excel.
Dobbeltklik på en celle og tilføj 1 med VBA-kode
Dobbeltklik på en celle og tilføj 1 med VBA-kode
Følgende VBA-kode kan hjælpe dig med at tilføje 1 til en celleværdi efter dobbeltklik. Gør som følger.
1. Højreklik på arkfanen, hvor celleværdierne du skal tilføje 1 med dobbeltklik. Klik derefter på Vis kode fra højreklikmenuen.
2. I popping up Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående VBA-kode i kodevinduet.
VBA-kode: Føj 1 til en celleværdi med dobbeltklik
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
Bemærk: I koden er A1 den celle, du vil tilføje nummer 1 til med dobbeltklik.
3. Tryk på andre + Q taster samtidigt for at lukke vinduet Microsoft Visual Basic til applikationer.
Dobbeltklik nu på celle A1 vil tilføje 1 til den eksisterende værdi som vist nedenstående skærmbillede.
Relaterede artikler:
- Hvordan tilføjes / indtastes den aktuelle dato / tid automatisk i en celle med dobbeltklik i Excel?
- Hvordan tilføjes flueben i en celle med dobbeltklik i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!