Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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 dagen gratis parcours)


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 voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    CSherrod · 6 months ago
    Hi there!  What would I add to the above code to get the cell to change color when the check box is added?
  • To post as a guest, your comment is unpublished.
    leoflute · 1 years ago
    Is there a way to loop this code so that it is on a lot of worksheets in one workbook?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi leoflute,
      After pressing the Alt + F11 keys to open the Microsoft Visual Basic for Applications window, please double click ThisWorkbook to open the ThisWorkbook(Code) window, and then copy the below code into the code window. Don't forget to change the sheet names and the cell range in the code.
      Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'Updated by Extendoffice 20201012 Dim xStrRg, xStrWs, xStrWsName As String Dim xEEBol, xWSNBol, xBol As Boolean Dim xArrWs Dim xArrRg Dim xI, xJ As Integer Dim xWs As Worksheet Dim xRg As Range xStrWs = "Sheet5,Sheet1,Sheet2" 'The specific worksheet names xStrRg = "B3:B10" 'The range of cells you will insert check marks xArrWs = Split(xStrWs, ",") xArrRg = Split(xStrRg, ",") xEEBol = Application.EnableEvents Application.EnableEvents = False On Error Resume Next xStrWsName = Sh.Name xBol = False xWSNBol = False For xI = 0 To UBound(xArrWs) If xStrWsName = xArrWs(xI) Then xWSNBol = True Exit For End If Next xI If xWSNBol Then Set xWs = Application.Worksheets.Item(xArrWs(xI)) For xJ = 0 To UBound(xArrRg) Set xRg = Sh.Range(xArrRg(xJ)) If Not Intersect(Target, xRg) Is Nothing Then xBol = True Exit For End If Next xJ End If If xBol Then If ActiveCell.Value = ChrW(&H2713) Then ActiveCell.ClearContents Else ActiveCell.Value = ChrW(&H2713) End If Cancel = True End If Application.EnableEvents = xEEBol End Sub

  • To post as a guest, your comment is unpublished.
    Luiz Carlos Dias · 2 years ago
    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 ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer apagar a marca, eu dou duplo clique novamente e a célula voltaria ao normar (continuaria apenas o número).
    • To post as a guest, your comment is unpublished.
      Tadao Kano · 2 years ago
      Ola Luiz, tente essa alteracao. Ira funcionar nas celulas A2:A10 e D2:D5, altere conforme sua necessidade.

      Tadao


      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Not Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) Is Nothing Then
      Application.EnableEvents = False
      If Left(ActiveCell.Value, 1) = ChrW(&H2713) Then
      ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
      ActiveCell.HorizontalAlignment = xlRight
      Else
      ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
      End If
      Cancel = True
      End If
      Application.EnableEvents = True
      End Sub