Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Выпадающий календарь с помощью макроса, Доработать макрос
 
В Module1 поменяйте
Код
Sub Calendar1()
Str = ActiveCell.Row
Stlb = ActiveCell.Column
Calendar.Show vbModeless
End Sub
Страницы: 1
Наверх