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

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! (Gratis parcours van 30 dagen)


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 (7)
Nog geen beoordelingen. Beoordeel als eerste!
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).
Deze opmerking is gemaakt door de moderator op de site
Ola Luiz, tente essa alteracao. Ira funcionar nas celulas A2:A10 e D2:D5, altere 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
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?
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 As String
Dim xEEBol, xWSNBol, xBol As 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 = False
xWSNBol = False
Voor xI = 0 Naar UBound(xArrWs)
Als xStrWsName = xArrWs(xI) Dan
xWSNBol = True
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

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?
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?
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
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties