In dit artikel zullen we de dubbelklikgebeurtenis van het werkblad gebruiken om de cel aan en uit te vinken.
Ruwe data bestaat uit enkele voedingsmiddelen. We willen die items die we hebben gekocht aanvinken.
Als u dubbelklikt op een cel, wordt er een vinkje aan toegevoegd. Op dezelfde manier kan het worden verwijderd door er nogmaals op te dubbelklikken.
Code uitleg
Als Doelkolom = 3 Dan
De bovenstaande code wordt gebruikt om te voorkomen dat een dubbelklikgebeurtenis alleen wordt uitgevoerd wanneer op de cel in de 3e kolom wordt gedubbelklikt.
Annuleren = Waar
De bovenstaande code wordt gebruikt om te voorkomen dat een cel in de bewerkingsmodus komt.
Target.Font.Name = "Marlett"
De bovenstaande code wordt gebruikt om het Marlett-lettertype aan de doelcel toe te wijzen.
Als Doel = "" Dan
Doel = "een"
Anders
Doel = ""
Stop als
De bovenstaande code wordt gebruikt om een vinkje in te voegen en ook te verwijderen. In Marlett-lettertype staat "a" voor vinkje en blanco wordt gebruikt om het vinkje te verwijderen.
Volg hieronder voor de code:
Optie Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Controleren of doelcel in derde kolom staat If Target.Column = 3 Then 'Voorkomen dat cel in bewerkingsmodus gaat Cancel = True 'Lettertype van cel wijzigen Target. Font.Name = "Marlett" 'Controleren of de doelcelwaarde leeg is, dan vinkje invoegen If Target = "" Then Target = "a" Else Target = "" End If End If End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite