MyTetra Share
Делитесь знаниями!
CheckBox в ячейках Excel
Время создания: 16.03.2019 23:43
Текстовые метки: CheckBox, Excel
Раздел: !Закладки - VBA - Excel - Cells
Запись: xintrea/mytetra_db_adgaver_new/master/base/1523001452adw9hirvdn/text.html на raw.githubusercontent.com

CheckBox в ячейках Excel

Следующий код, помещённый в VBA редакторе на соответствующий лист, позволяет двойным кликом левой кнопки мыши по ячейке в первом столбце устанавливать в ней попеременном галочку, либо крестик.


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

With Target

If .Column = 1 Then

Select Case .Value

Case Is = "a"

.Font.Name = "Marlett"

.Value = "r"

Case Is = "r"

.Font.Name = "Marlett"

.Value = "a"

Case Else

.Font.Name = "Marlett"

.Value = "a"

End Select

Cancel = True

End If

End With

End Sub


Результат работы макроса выглядит следующим образом:

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования