В разделе "ПРИЕМЫ" на сайте было описание как сделать календарик
При выделении указаных ячеек "D19,I15,C23" в коде появляется календарик лоя ввода даты в указанную ячейку.
А теперь сам вопрос!!
Как изменить код если ячейки объеденины?
Например D19:E19, I15:J15
Спасибо!
При выделении указаных ячеек "D19,I15,C23" в коде появляется календарик лоя ввода даты в указанную ячейку.
А теперь сам вопрос!!
Как изменить код если ячейки объеденины?
Например D19:E19, I15:J15
Спасибо!
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("D19,I15,C23" ;) , Target) Is Nothing Then
UserForm1.Show
End If
End Sub |
