В тази статия ще използваме преди двукратно щракване събитие на работния лист, за да проверим и премахнем клетката.
Суровите данни се състоят от някои хранителни продукти. Искаме да маркираме тези артикули, които сме закупили.
При двукратно щракване върху клетка, към нея ще се добави отметка. По същия начин тя може да бъде премахната, като щракнете двукратно върху нея отново.
Обяснение на кода
Ако Target.Column = 3 Тогава
Горният код се използва за ограничаване на събитието с двойно щракване, което да се изпълнява само когато клетката в третата колона е щракната двукратно.
Отказ = Вярно
Горният код се използва за предотвратяване на влизане на клетка в режим на редактиране.
Target.Font.Name = "Marlett"
Горният код се използва за присвояване на шрифт Marlett на целевата клетка.
Ако Target = "" Тогава
Target = "a"
Иначе
Цел = ""
Край Ако
Горният код се използва за поставяне на отметка и премахване. В Marlett шрифт "a" представлява отметка, а празно място се използва за премахване на отметката.
Моля, следвайте кода по -долу
Опция Изрично частен под работен лист_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean) 'Проверка дали целевата клетка е в трета колона If Target.Column = 3 Тогава' Предотвратяване на преминаването на клетката в режим на редактиране Cancel = True 'Промяна на типа шрифт на клетката Target. Font.Name = "Marlett" 'Проверява дали стойността на целевата клетка е празна, след което се вмъква отметка If Target = "" Then Target = "a" Else Target = "" End If End If End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта