Здравствуйте!
Помогите пожалуйста разобраться.
Нашел интересный код в теме
который позволяет не создавать CheckBox с флажком, а делать флажок посредством шрифта Wingdings, как раз то что мне нужно.
Проблема: как сделать, чтобы флажок не отображался в ячейках A4 и A8?
Помогите пожалуйста разобраться.
Нашел интересный код в теме
который позволяет не создавать CheckBox с флажком, а делать флажок посредством шрифта Wingdings, как раз то что мне нужно.
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A11") ) Is Nothing Then
With Target
.Font.Name = "Wingdings"
.Font.Size = 14
If .Value = Chr(111) Then
.Value = Chr(254)
Else
.Value = Chr(111)
End If
.Offset(0, 1).Select
End With
End If
End Sub |
Проблема: как сделать, чтобы флажок не отображался в ячейках A4 и A8?
