Note: The other languages of the website are Google-translated. Back to English

Hoe dubbelklikt u op een cel en voegt u 1 toe aan die celwaarde in Excel?

Dit artikel laat je zien hoe je 1 automatisch aan een celwaarde toevoegt door erop te dubbelklikken in Excel.

Dubbelklik op een cel en voeg er 1 toe met VBA-code


Dubbelklik op een cel en voeg er 1 toe met VBA-code


De volgende VBA-code kan u helpen 1 toe te voegen aan een celwaarde na dubbelklikken. Ga als volgt te werk.

1. Klik met de rechtermuisknop op de bladtab waaraan u de celwaarden moet toevoegen 1 door te dubbelklikken. Dan klikken Bekijk code vanuit het rechtsklikmenu.

2. In het opduiken Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code in het codevenster.

VBA-code: voeg 1 toe aan een celwaarde door te dubbelklikken

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

Opmerking:: In de code is A1 de cel waaraan u nummer 1 toevoegt door te dubbelklikken.

3. druk de anders + Q toetsen tegelijkertijd om het venster Microsoft Visual Basic for Applications te sluiten.

Dubbelklik nu op cel A1 voegt 1 toe aan de bestaande waarde zoals hieronder afgebeeld.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (16)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Kunnen we een getal van twee cijfers toevoegen aan het einde van de datum? ik moet bijvoorbeeld dubbelklikken en de huidige datum en het volgende tweecijferige nummer toevoegen (20171030-01, dan toont de volgende cel 20171030-02 bij dubbelklikken)
Deze opmerking is gemaakt door de moderator op de site
Beste Matt,
De code ondersteunt alleen de cel met getalnotatie. Het kan werken omdat uw gegevens 20171030-01 een tekstindeling zijn. Sorry daarvoor.
Deze opmerking is gemaakt door de moderator op de site
Beste Matt,
De code ondersteunt alleen de cel met getalnotatie. Het kan niet werken omdat uw gegevens 20171030-01 een tekstindeling zijn. Sorry daarvoor.
Deze opmerking is gemaakt door de moderator op de site
Dit is geweldig! Hoe doe ik dit voor meerdere cellen? Ik typ "A1,A2" in plaats van "A1", het maakt beide cellen gelijk en voegt tegelijkertijd 1 toe aan beide cellen. Ik wil dat de cellen onafhankelijk handelen.
Deze opmerking is gemaakt door de moderator op de site
Sorry dat ik je punt niet begreep.
Deze opmerking is gemaakt door de moderator op de site
Hallo - ben het met Steve eens, dit is geweldig. Ik denk dat wat hij zou willen (en ik ook) is om de waarde van meerdere verschillende cellen op hetzelfde tabblad toe te voegen door erop te dubbelklikken. Hij heeft de VBA-formule aangepast zodat er "A1,A2" staat in plaats van alleen "A1", maar dubbelklikken op "A1" voegt 1 toe aan beide cellen. Is het mogelijk om de formule te wijzigen zodat meerdere cellen worden opgenomen, waarbij de waarde van elk alleen wordt verhoogd als u er rechtstreeks op klikt?
Deze opmerking is gemaakt door de moderator op de site
Kortom, met de bovenstaande code, als u dubbelklikt op A1, zou het 1 toevoegen aan A1. Als ik A1 in A1:A2 in het doelbereik zou veranderen, zou als ik dubbelklik op A1 of A2 1 toevoegen aan A1. Wat ik wilde was 1 toevoegen aan A1 alleen als ik dubbelklik op A1 en 1 toevoegen aan A2 alleen als ik dubbelklik op A2. Ik wilde ook geen 1 toevoegen aan beide cellen.

Ik denk dat ik heb gevonden wat ik zocht:

Privé subwerkblad_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
Indien niet snijden (doel, bereik ("D5:BC56")) is dan niets
Annuleren = Waar
Bereik(Target.Address).Waarde = Val(Bereik(Target.Address).Waarde) + 1
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Beste Steve,
Ik begrijp je punt eindelijk, en bedankt voor het delen.
Deze opmerking is gemaakt door de moderator op de site
Deze code lijkt bij mij niet te werken. Moet ik niet specificeren wat het Target.Adress is?
Deze opmerking is gemaakt door de moderator op de site
misschien door een tabel te maken met een bereiknaam. en het bijwerken van de formule om dat op te nemen?
Deze opmerking is gemaakt door de moderator op de site
Als u een cel in een werkmapcel wilt verhogen door op die cel te dubbelklikken, maar alleen op die cel, werkt deze code:

Privé subwerkblad_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Als niet snijden (doel, bereik (actieve cel. adres)) is niets dan
ActiveCell.Value = ActiveCell.Value + 1
Annuleren = Waar
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Beste Bill,
Dank je wel voor het delen.
Deze opmerking is gemaakt door de moderator op de site
Bedankt! dat heeft mij erg geholpen!
Deze opmerking is gemaakt door de moderator op de site
Ik kan dit niet in meerdere cellen laten werken
Geprobeerd te gebruiken, maar het werkte niet


Privé subwerkblad_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Indien niet snijden (doel, bereik ("B2:L14")) is dan niets
Bereik ("B2:L14"). Waarde = Bereik ("B2: L14"). Waarde + 1
Annuleren = Waar
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo Stella,
Pas de onderstaande VBA toe om het probleem op te lossen.

Privé subwerkblad_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)

On Error Resume Next

Indien niet snijden (doel, bereik ("B2:L14")) is dan niets

Doelwaarde = Doelwaarde + 1

Annuleren = Waar

End If

End Sub
Deze opmerking is gemaakt door de moderator op de site
Welke code zou ik gebruiken als ik 1 aan meerdere cellen wil toevoegen, laten we zeggen E5:E15, maar dan .5 of een ander nummer toevoegen aan een andere groep cellen zoals G5:515?
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties