Вставка текущей даты

@Регина123 · Регистрация: 13.10.2015

Author24 — интернет-сервис помощи студентам

Добрый день. Хотела бы уточнить, может у кого-нить есть макрос,который позволяет вставлять текущую дату с учетом ширины столбца (автободпор ширины), то есть макрос аналогичный сочетанию клавиш CTRL+;
На данный момент есть макрос,который вставляет дату,но без подбора ширины.

Visual Basic

Sub макрос2()
' Сочетание клавиш: Ctrl+d
ActiveCell.Value = Format(Now, "dd.mm.yyyy")
End Sub

@Все имена заняты · 26.05.2016, 12:19

Добавил строку.

Visual Basic

Sub макрос2()
' Сочетание клавиш: Ctrl+d
ActiveCell.Value = Format(Now, "dd.mm.yyyy")
ActiveCell.EntireColumn.AutoFit
End Sub

@pashulka · 26.05.2016, 18:45

Если нужна всё-таки дата, то :

Visual Basic

1
2
3

ActiveCell.NumberFormat = "dd/mm/yyyy"
ActiveCell.Value = Date
ActiveCell.Columns.AutoFit

	26.05.2016, 18:45

Вставка текущей даты

Решение