Найти в Дзене

Быстро поставить дату в Excel

Есть табличка, где первый столбец - дата чего-то там. И мы каждый день пишем туда сегодняшнюю дату. Настолько надоело. Вот бы сделать так, что-бы тыкнул туда два клика - и вот она, дата сегодня Всё просто. Делаем макрос. Он совсем несложный. Сначала в параметрах экселя включаем меню разработчика, чтобы он пустил нас в макросы Далее жмём Alt-F11, откроется окно работы с макросом. Выбираем в левом окне нужный нам лист, жмём на нем два раза и в правом окне набираем текст, как на картинке Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = Empty And Target.Row = 1 Then
Target.Value = Date
Cancel = True
End If
End Sub Теперь, если на листе тыкнуть два раза по пустой ячейке (=Empty) в первом столбце - там будет сегодняшняя дата.

Есть табличка, где первый столбец - дата чего-то там. И мы каждый день пишем туда сегодняшнюю дату. Настолько надоело.

Как это может выглядеть
Как это может выглядеть

Вот бы сделать так, что-бы тыкнул туда два клика - и вот она, дата сегодня

Всё просто. Делаем макрос. Он совсем несложный.

Сначала в параметрах экселя включаем меню разработчика, чтобы он пустил нас в макросы

Параметры Excel. Включаем разработчика
Параметры Excel. Включаем разработчика

Далее жмём Alt-F11, откроется окно работы с макросом. Выбираем в левом окне нужный нам лист, жмём на нем два раза и в правом окне набираем текст, как на картинке

Пишем установку даты в столбец номер 1
Пишем установку даты в столбец номер 1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = Empty And Target.Row = 1 Then
Target.Value = Date
Cancel = True
End If
End Sub

Теперь, если на листе тыкнуть два раза по пустой ячейке (=Empty) в первом столбце - там будет сегодняшняя дата.