W tym artykule użyjemy przed dwukrotnym kliknięciem zdarzenia arkusza roboczego, aby sprawdzić i odznaczyć komórkę.
Surowe dane składają się z niektórych artykułów spożywczych. Chcemy zaznaczyć te przedmioty, które kupiliśmy.
Po dwukrotnym kliknięciu komórki zostanie do niej dodany znacznik. W ten sam sposób można go usunąć, ponownie klikając go dwukrotnie.
Wyjaśnienie kodu
Jeśli kolumna docelowa = 3 Wtedy
Powyższy kod służy do ograniczenia zdarzenia podwójnego kliknięcia do wykonania tylko wtedy, gdy komórka w trzeciej kolumnie zostanie dwukrotnie kliknięta.
Anuluj = Prawda
Powyższy kod służy do uniemożliwienia przechodzenia komórki w tryb edycji.
Target.Font.Name = "Marlett"
Powyższy kod służy do przypisania czcionki Marlett do komórki docelowej.
Jeśli cel = „” Wtedy
Cel = „a”
W przeciwnym razie
Cel = ""
Zakończ, jeśli
Powyższy kod służy do wstawiania i usuwania znacznika. W Marletcie czcionka „a” oznacza znak haczyka, a puste miejsce służy do usuwania znaku haczyka.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Sprawdzanie, czy komórka docelowa znajduje się w trzeciej kolumnie If Target.Column = 3 Then 'Zapobiegaj przechodzeniu komórki do trybu edycji Cancel = True 'Zmiana typu czcionki w komórce Target. Font.Name = "Marlett" 'Sprawdzanie, czy wartość komórki docelowej jest pusta, a następnie wstawianie znacznika If Target = "" Then Target = "a" Else Target = "" End If End If End Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail