В этой статье мы будем использовать событие перед двойным щелчком на листе, чтобы проверять и снимать отметку с ячейки.

Исходные данные состоят из некоторых продуктов. Мы хотим отметить те товары, которые мы приобрели.

ArrowRawData

При двойном щелчке по ячейке к ней добавляется галочка. Таким же образом его можно удалить, дважды щелкнув по нему еще раз.

ArrowOutput

Объяснение кода

Если Target.Column = 3 Then Приведенный выше код используется для ограничения выполнения события двойного щелчка только при двойном щелчке по ячейке в 3-м столбце.

Cancel = True Приведенный выше код используется для предотвращения перехода ячейки в режим редактирования.

Target.Font.Name = «Марлетт»

Приведенный выше код используется для назначения шрифта Marlett целевой ячейке.

Если Target = «», то Target = «a»

Else Target = «»

Конец, если Приведенный выше код используется для вставки и удаления галочки. В шрифте Marlett «a» обозначает отметку, а пробел используется для удаления отметки.

Пожалуйста, введите код ниже

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'Checking whether target cell is in third column

If Target.Column = 3 Then



'Prevent cell going into Edit Mode

Cancel = True



'Changing font type of the cell

Target.Font.Name = "Marlett"



'Checking if target cell value is blank then inserting tick

If Target = "" Then

Target = "a"

Else

Target = ""

End If

End If

End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]