У этого об'екта есть свойство Value используя которое, можно установить нужную дату, например Объект.Value = Now 'Date Остальное зависит от того, где расположен этот календарь : Worksheet/UserForm, впрочем, в обоих случаях, для установки текущей даты при открытии рабочей книги, можно использовать макросы Auto_Open() или Workbook_Open(), причём первый макрос можно расположить в любом стандартном модуле, а второй только в модуле книги ThisWorkbook(ЭтаКнига)
|