Ребят подскажите как правильно дополнить в макрос для раскраски ячейки с чекбоксом, при нажатии появляется галочка и подкрашивается к примеру в зелёный цвет.
У меня тямы хватило только двойным кликом (((
У меня тямы хватило только двойным кликом (((
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G6:I6,G7:I7")) Is Nothing Then
With Target
.Font.Name = "Wingdings"
.Font.Size = 22
If .Value = Chr(111) Then
.Value = Chr(254)
Else
.Value = Chr(111)
End If
.Offset(0, 0).Select
End With
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.Color = vbGreen
End Sub |
