Вставка текущей даты в активную ячейку Excel с помощью кода VBA. Назначение сочетания клавиш макросу для вставки текущей даты.
Вставка текущей даты
У нас уже есть статья об автоматической записи текущей даты в первую ячейку новой строки таблицы при выборе второй ячейки этой строки.
В этой статье мы рассмотрим вставку текущей даты в активную ячейку с помощью сочетания клавиш. В большинстве случаев этот вариант удобнее и проще для использования, чем вариант в статье по ссылке выше.
Код для вставки даты
Код для вставки текущей даты в активную ячейку:
|
1 2 3 4 5 6 7 |
Sub InsertCurrentDate() ' Вставляем текущую дату в активную ячейку With ActiveCell .NumberFormat = "dd.mm.yyyy" .Value = Now End With End Sub |
- Скопируйте процедуру InsertCurrentDate в стандартный модуль Личной книги макросов.
- Перейдите из редактора VBA в Excel, сохраните текущую книгу и откройте окно «Макрос»: Разработчик ➔ Макросы.
- В списке макросов выберите процедуру PERSONAL.XLSB!InsertCurrentDate и нажмите кнопку «Параметры».
- В поле «Сочетание клавиш:» впишите букву «й» (или другую свободную) и нажмите 🆗.
- Сохраните текущую книгу и вставляйте текущую дату в ячейки Excel сочетанием клавиш Ctrl+й.
💡 Работа сочетания клавиш зависит от раскладки клавиатуры: если вы назначите — «й», будет работать только сочетание Ctrl+й, сочетание Ctrl+q работать не будет, и наоборот.
Присвоение активной ячейке свойства NumberFormat = "dd.mm.yyyy" позволяет сохранить только дату в указанном формате. Без указания формата в ячейку будут записаны текущие дата и время.
Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.