Hoe voeg ik een vinkje toe in een cel door te dubbelklikken in Excel?

Normaal gesproken moet u voor het invoegen van een vinkje in een cel het dialoogvenster Symbool openen, het vinkje zoeken en het handmatig invoegen. Maar het is niet zo eenvoudig om het vinkje in het dialoogvenster Symbool te vinden, omdat er talloze symbolen in staan. Hoe voeg ik snel een vinkje toe aan een cel in Excel? Dit artikel toont u een VBA-methode om eenvoudig een vinkje in een cel toe te voegen door alleen te dubbelklikken.

Dubbelklik om een vinkje toe te voegen in een cel met VBA-code

Dubbelklik om een vinkje toe te voegen in een cel met VBA-code

De volgende VBA-code kan u helpen een vinkje in een cel toe te voegen door te dubbelklikken. Ga als volgt te werk.

1. Open het werkblad waarvoor u een vinkje in de cel wilt plaatsen, klik met de rechtermuisknop en selecteer Bekijk code vanuit het rechtsklikmenu.

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

VBA-code: dubbelklik om een vinkje in een cel te plaatsen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Opmerking:: In de code is B1: B10 het bereik dat u door dubbelklikken wilt aanvinken. Wijzig het op basis van uw behoefte.

3. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster en keer terug naar het werkblad.

Dubbelklik nu op een cel in het bereik B1: B10, het vinkje wordt automatisch ingevoerd. En als u nogmaals op de cel dubbelklikt, wordt het ingevoegde vinkje verwijderd.

Als u de vinkjes vaak moet gebruiken in uw dagelijkse Excel-werk, raad ik hier de Auto-tekst Nut van Kutools for Excel. Met deze functie kunt u een vinkje opslaan als automatische tekstinvoer en deze in de toekomst opnieuw plaatsen met slechts één klik in Excel, zoals de onderstaande demo laat zien.
Download en probeer het nu! (30-dag vrij parcours)

De beste tools voor kantoorproductiviteit

Kutools for 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-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop...

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 honderden muisklikken voor u elke dag!

Lees verder... Gratis download... Aankoop...

Heb je vragen? Stel ze hier. (12)

Nog geen beoordelingen. Beoordeel als eerste!

Luiz Carlos Dias

ongeveer 4 jaar geleden

#27122

Deze opmerking is gemaakt door de moderator op de site

como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela of seja, a marca sairia na frente do número quando eu der duplo clique... en quando eu quizer clique novamente ea célula voltaria en normar (continuaria apenas o número).

Antwoorden

Tadao Kano Luiz Carlos Dias

ongeveer 4 jaar geleden

#27123

Deze opmerking is gemaakt door de moderator op de site

Ola Luiz, tene essa alteracao. Ira funcionar nas celulas A2:A10 en D2:D5, verander conforme sua necessidade.

tadao

Privé subwerkblad_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
Indien niet Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) is niets dan
Application.EnableEvents = False
If Left(ActiveCell.Value, 1) = ChrW(&H2713) Dan
ActiveCell.Value = Rechts(ActieveCell, Len(ActieveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
Anders
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
End If
Annuleren = Waar
End If
Application.EnableEvents = Waar
End Sub

Antwoorden

Elizabeth

ongeveer 2 jaar geleden

#34106

Deze opmerking is gemaakt door de moderator op de site

Is er een manier om deze code in een lus te plaatsen, zodat deze op veel werkbladen in één werkmap staat?

Antwoorden

Rapport

crystal Elizabeth

ongeveer 2 jaar geleden

#34107

Deze opmerking is gemaakt door de moderator op de site

Hallo leoflute, Na het indrukken van de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster, dubbelklik Dit Werkboek om de te openen ThisWorkbook (code) venster en kopieer vervolgens de onderstaande code naar het codevenster. Vergeet niet de bladnamen en het celbereik in de code te wijzigen. Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'Bijgewerkt door' Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName als tekenreeks
Dim xEEBol, xWSNBol, xBol Als Boolean
Dim xArrWs
Dim xArrRg
Dim xI, xJ Als geheel getal
Dim xWs als werkblad
Dim xRg als bereik

xStrWs = "Blad5,Blad1,Blad2" 'De specifieke werkbladnamen
xStrRg = "B3: B10" 'Het celbereik waarin u vinkjes invoegt
xArrWs = Splitsen(xStrWs, ",")
xArrRg = Splitsen(xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = False
On Error Resume Next
xStrWsName = Sh.Naam
xBol = Onwaar
xWSNBol = Onwaar
Voor xI = 0 Naar UBound(xArrWs)
Als xStrWsName = xArrWs(xI) Dan
xWSNBol = Waar
Afsluiten voor
End If
Volgende xI

Als xWSNBol Dan
Stel xWs = Application.Worksheets.Item (xArrWs(xI)) in
Voor xJ = 0 Naar UBound(xArrRg)
Stel xRg = Sh.Bereik(xArrRg(xJ)) in
Als niet snijden (doel, xRg) is niets dan
xBol = Waar
Afsluiten voor
End If
Volgende xJ
End If

Als xBol Dan
Als ActiveCell.Value = ChrW(&H2713) Dan
ActiveCell.ClearContents
Anders
ActiveCell.Value = ChrW(&H2713)
End If
Annuleren = Waar
End If
Application.EnableEvents = xEEBol
End Sub

Antwoorden

Rapport

CSerrod

ongeveer 2 jaar geleden

#35215

Deze opmerking is gemaakt door de moderator op de site

Hallo daar! Wat zou ik aan de bovenstaande code toevoegen om de cel van kleur te laten veranderen wanneer het selectievakje wordt toegevoegd?

Antwoorden

Dan

ongeveer 1 jaar geleden

#36632

Deze opmerking is gemaakt door de moderator op de site

Hallo kristal
is er een manier om vinkjes te hebben in A1:A10 samen met B3:B10?

Antwoorden

Michael

ongeveer 1 jaar geleden

#36920

Deze opmerking is gemaakt door de moderator op de site

Hoe herhaal ik dit voor meerdere kolommen?
Ik heb het bijvoorbeeld nodig in het volgende:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

Antwoorden

Ulisses Nonato

ongeveer 10 maanden geleden

#38841

Deze opmerking is gemaakt door de moderator op de site

Eu gostaria de saber se é possível adicionar a marca com apenas um clique oa invés de dois.

Antwoorden

crystal Ulisses Nonato

ongeveer 10 maanden geleden

#38900

Deze opmerking is gemaakt door de moderator op de site

Hallo Ulisses Nonato,
Als u met slechts één muisklik een vinkje aan een cel wilt toevoegen, kan de volgende VBA-code u een plezier doen.
U moet op de klikken rechter muis knop om de code te activeren.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Antwoorden

Rapport

Sora

ongeveer 6 maanden geleden

#41276

Deze opmerking is gemaakt door de moderator op de site

Hoe zorg ik ervoor dat het een tijdstempel toevoegt aan de aangrenzende cel na dubbelklikken?

Antwoorden

crystal Sora

ongeveer 6 maanden geleden

#41491

Deze opmerking is gemaakt door de moderator op de site

Hallo Sora,
De volgende VBA-code kan u een plezier doen. Probeer het alsjeblieft. Dank je.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

Antwoorden

Rapport

anne

ongeveer 4 maanden geleden

#42923

Deze opmerking is gemaakt door de moderator op de site

Hallo,

Een van de fois ces cases cochées, j'aimerais qu'une cellule x m'additionne les chiffres d'une suree colonne, is het mogelijk?

Merci à vous, bonne soiree

Antwoorden

Er zijn nog geen reacties geplaatst