I denne artikkelen skal vi bruke hendelsen før du dobbeltklikker på regnearket for å kontrollere og fjerne merket for cellen.
Rådata består av noen matvarer. Vi ønsker å krysse av for varene vi har kjøpt.
Når du dobbeltklikker på en celle, blir det merket med kryss. På samme måte kan den fjernes ved å dobbeltklikke på den igjen.
Kode forklaring
Hvis Target.Column = 3 Da
Koden ovenfor brukes til å begrense dobbeltklikk-hendelsen til å kjøres bare når cellen i den tredje kolonnen er dobbeltklikket.
Avbryt = sant
Koden ovenfor brukes til å forhindre at en celle kommer i redigeringsmodus.
Target.Font.Name = "Marlett"
Koden ovenfor brukes til å tilordne Marlett -skrift til målcellen.
Hvis Target = "" Da
Mål = "a"
Ellers
Mål = ""
Slutt om
Koden ovenfor brukes til å sette inn et kryss og fjerne det også. I Marlett -skrift representerer "a" haken og blank brukes for å fjerne haken.
Følg koden nedenfor
Option Explicit Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean) 'Kontrollere om målcellen er i tredje kolonne Hvis Target.Column = 3 Deretter' Forhindre at cellen går i redigeringsmodus Cancel = True 'Endring av skrifttype for cellemålet. Font.Name = "Marlett" 'Kontrollerer om målcelleverdien er tom, og sett inn kryss Hvis Target = "" Then Target = "a" Else Target = "" End If End If End Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post