Здравствуйте форумчане, вопрос такой:
есть код для вставки галочки в ячейку кликом мыши. Все отлично работает, но код перестает работать, если ячейка объединена с другой. Код привожу:
Помогите решить проблему. За ранее спасибо
есть код для вставки галочки в ячейку кликом мыши. Все отлично работает, но код перестает работать, если ячейка объединена с другой. Код привожу:
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("L39:W44")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
.Value = "a"
.Font.Name = "Marlett"
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub
|
