V tomto článku použijeme udalosť dvojitého kliknutia na hárku na kontrolu a zrušenie začiarknutia bunky.
Surové údaje pozostávajú z niektorých potravín. Chceme zaškrtnúť tie položky, ktoré sme kúpili.
Po dvojitom kliknutí na bunku sa do nej pridá značka začiarknutia. Rovnakým spôsobom ho možno odstrániť opätovným dvojitým kliknutím.
Vysvetlenie kódu
Ak Target.Column = 3 Potom
Vyššie uvedený kód sa používa na obmedzenie spustenia udalosti dvojitého kliknutia iba vtedy, keď dvakrát kliknete na bunku v 3. stĺpci.
Zrušiť = Pravda
Vyššie uvedený kód slúži na zabránenie tomu, aby sa bunka dostala do režimu úprav.
Target.Font.Name = "Marlett"
Vyššie uvedený kód sa používa na priradenie písma Marlett k cieľovej bunke.
Ak Target = "" Potom
Cieľ = "a"
Inak
Cieľ = ""
Koniec Ak
Vyššie uvedený kód sa používa na vloženie začiarkavacieho políčka a jeho odstránenie. V Marlettovom písme „a“ predstavuje značku začiarknutia a na odstránenie značky začiarknutia sa používa prázdne miesto.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Možnosť Explicitný súkromný čiastkový pracovný list_BeforeDoubleClick (ByVal Cieľ ako rozsah, Zrušiť ako booleovský) „Kontrola, či je cieľová bunka v treťom stĺpci Ak Target.Column = 3 Potom“ Zabrániť prechodu bunky do režimu úprav Zrušiť = Pravda ”Zmena typu písma bunky Cieľ. Font.Name = "Marlett" 'Kontrola, či je hodnota cieľovej bunky prázdna, potom začiarknutím políčka If Target = "" Then Target = "a" Else Target = "" End If End If End Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku