Макросы в excel дата время - Word и Excel - помощь в работе с программами

Функции для работы с датой и временем в VBA Excel. Синтаксис, параметры, спецсимволы, примеры. Функции, возвращающие текущие дату и время по системному таймеру.

Функция Date

Date – это функция, которая возвращает значение текущей системной даты. Тип возвращаемого значения – Variant/Date.

Синтаксис

Пример

Sub PrimerDate()

MsgBox «Сегодня: « & Date

End Sub

Функция DateAdd

DateAdd – это функция, которая возвращает результат прибавления к дате указанного интервала времени. Тип возвращаемого значения – Variant/Date.

Синтаксис

DateAdd(interval, number, date)

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, который требуется добавить.
number	Обязательный параметр. Числовое выражение, задающее количество интервалов, которые необходимо добавить. Может быть как положительным (возвращается будущая дата), так и отрицательным (возвращается предыдущая дата).
date	Обязательный параметр. Значение типа `Variant/Date` или литерал, представляющий дату, к которой должен быть добавлен интервал.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1».

Примечание к таблице аргументов: три символа – y, d, w – указывают функции DateAdd на один день, который необходимо прибавить к исходной дате number раз.

Пример

Sub PrimerDateAdd()

MsgBox «31.01.2021 + 1 месяц = « & DateAdd(«m», 1, «31.01.2021») ‘Результат: 28.02.2021

MsgBox «Сегодня + 3 года = « & DateAdd(«yyyy», 3, Date)

MsgBox «Сегодня — 2 недели = « & DateAdd(«ww», —2, Date)

MsgBox «10:22:14 + 10 минут = « & DateAdd(«n», 10, «10:22:14») ‘Результат: 10:32:14

End Sub

Функция DateDiff

DateDiff – это функция, которая возвращает количество указанных интервалов времени между двумя датами. Тип возвращаемого значения – Variant/Long.

Синтаксис

DateDiff(interval, date1, date2, [firstdayofweek], [firstweekofyear])

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, количество которых (интервалов) требуется вычислить между двумя датами.
date1, date2	Обязательные параметры. Значения типа `Variant/Date`, представляющие две даты, между которыми вычисляется количество указанных интервалов.
firstdayofweek	Необязательный параметр. Константа, задающая первый день недели. По умолчанию – воскресенье.
firstweekofyear	Необязательный параметр. Константа, задающая первую неделю года. По умолчанию – неделя, в которую входит 1 января.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1».

Примечание к таблице аргументов: в отличие от функции DateAdd, в функции DateDiff спецсимвол "w", как и "ww", обозначает неделю. Но расчет осуществляется по разному. Подробнее об этом на сайте разработчиков.

Параметры firstdayofweek и firstweekofyear определяют правила расчета количества недель между датами.

Таблицы констант из коллекций firstdayofweek и firstweekofyear смотрите в параграфах «Приложение 2» и «Приложение 3».

Пример

Sub PrimerDateDiff()

‘Даже если между датами соседних лет разница 1 день,

‘DateDiff с интервалом «y» покажет разницу — 1 год

MsgBox DateDiff(«y», «31.12.2020», «01.01.2021») ‘Результат: 1 год

MsgBox DateDiff(«d», «31.12.2020», «01.01.2021») ‘Результат: 1 день

MsgBox DateDiff(«n», «31.12.2020», «01.01.2021») ‘Результат: 1440 минут

MsgBox «Полных лет с начала века = « & DateDiff(«y», «2000», Year(Now) — 1)

End Sub

Функция DatePart

DatePart – это функция, которая возвращает указанную часть заданной даты. Тип возвращаемого значения – Variant/Integer.

Есть предупреждение по использованию этой функции.

Синтаксис

DatePart(interval, date, [firstdayofweek], [firstweekofyear])

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее часть даты, которую требуется извлечь.
date	Обязательные параметры. Значение типа `Variant/Date`, представляющее дату, часть которой следует извлечь.
firstdayofweek	Необязательный параметр. Константа, задающая первый день недели. По умолчанию – воскресенье.
firstweekofyear	Необязательный параметр. Константа, задающая первую неделю года. По умолчанию – неделя, в которую входит 1 января.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1». В третьей графе этой таблицы указаны интервалы значений, возвращаемых функцией DatePart.

Таблицы констант из коллекций firstdayofweek и firstweekofyear смотрите в параграфах «Приложение 2» и «Приложение 3».

Пример

Sub PrimerDatePart()

MsgBox DatePart(«y», «31.12.2020») ‘Результат: 366

MsgBox DatePart(«yyyy», CDate(43685)) ‘Результат: 2019

MsgBox DatePart(«n», CDate(43685.45345)) ‘Результат: 52

MsgBox «День недели по счету сегодня = « & DatePart(«w», Now, vbMonday)

End Sub

Функция DateSerial

DateSerial – это функция, которая возвращает значение даты для указанного года, месяца и дня. Тип возвращаемого значения – Variant/Date.

Синтаксис

DateSerial(year, month, day)

Параметры

Параметр	Описание
year	Обязательный параметр типа Integer. Числовое выражение, возвращающее значение от 100 до 9999 включительно.
month	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 1 до 12.*
day	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 1 до 31.*

* Функция DateSerial автоматически пересчитывает общее количество дней в полные месяцы и остаток, общее количество месяцев в полные годы и остаток (подробнее в примере).

Пример

Sub PrimerDateSerial()

MsgBox DateSerial(2021, 2, 10) ‘Результат: 10.02.2020

MsgBox DateSerial(2020, 1, 400) ‘Результат: 03.02.2021

End Sub

Разберем подробнее строку DateSerial(2020, 1, 400):

400 дней = 366 дней + 31 день + 3 дня;
366 дней = 1 год, так как по условию month:=1, значит февраль 2020 входит в расчет, а в нем – 29 дней;
31 день = 1 месяц, так как сначала заполняется январь (по условию month:=1);
3 дня – остаток.

В итоге получается:

DateSerial(2020+1, 1+1, 3) = DateSerial(2021, 2, 3)

Функция DateValue

DateValue – это функция, которая преобразует дату, указанную в виде строки, в значение типа Variant/Date (время игнорируется).

Синтаксис

Параметр date – строковое выражение, представляющее дату с 1 января 100 года по 31 декабря 9999 года.

Пример

Sub PrimerDateValue()

MsgBox DateValue(«8 марта 2021») ‘Результат: 08.03.2021

MsgBox DateValue(«17 мая 2021 0:59:15») ‘Результат: 17.05.2021

End Sub

Функция DateValue игнорирует время, указанное в преобразуемой строке, но если время указано в некорректном виде (например, «10:60:60»), будет сгенерирована ошибка.

Функция Day

Day – это функция, которая возвращает день месяца в виде числа от 1 до 31 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр date – любое числовое или строковое выражение, представляющее дату.

Пример

Sub PrimerDay()

MsgBox Day(Now)

End Sub

Функция IsDate

IsDate – это функция, которая возвращает True, если выражение является датой или распознается как допустимое значение даты или времени. В остальных случаях возвращается значение False.

Синтаксис

Параметр expression – это переменная, возвращающая дату или строковое выражение, распознаваемое как дата или время.

Значение, возвращаемое переменной expression, не должно выходить из диапазона допустимых дат: от 1 января 100 года до 31 декабря 9999 года (для Windows).

Пример

Sub PrimerIsDate()

MsgBox IsDate(«18 апреля 2021») ‘Результат: True

MsgBox IsDate(«31 февраля 2021») ‘Результат: False

MsgBox IsDate(«4.10.20 11:12:54») ‘Результат: True

End Sub

Функция Hour

Hour – это функция, которая возвращает количество часов в виде числа от 0 до 23 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр time – любое числовое или строковое выражение, представляющее время.

Пример

Sub PrimerHour()

MsgBox Hour(Now)

MsgBox Hour(«22:36:54»)

End Sub

Функция Minute

Minute – это функция, которая возвращает количество минут в виде числа от 0 до 59 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр time – любое числовое или строковое выражение, представляющее время.

Пример

Sub PrimerMinute()

MsgBox Minute(Now)

MsgBox Minute(«22:36:54»)

End Sub

Функция Month

Month – это функция, которая возвращает день месяца в виде числа от 1 до 12 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр date – любое числовое или строковое выражение, представляющее дату.

Пример

Sub PrimerMonth()

MsgBox Month(Now)

End Sub

Функция MonthName

MonthName – это функция, которая возвращает название месяца в виде строки.

Синтаксис

MonthName(month, [abbreviate])

Параметры

Параметр	Описание
month	Обязательный параметр. Числовое обозначение месяца от 1 до 12 включительно.
abbreviate	Необязательный параметр. Логическое значение: True – возвращается сокращенное название месяца, False (по умолчанию) – название месяца не сокращается.

Пример

Sub PrimerMonthName()

MsgBox MonthName(10) ‘Результат: Октябрь

MsgBox MonthName(10, True) ‘Результат: окт

End Sub

Функция Now

Now – это функция, которая возвращает текущую системную дату и время. Тип возвращаемого значения – Variant/Date.

Синтаксис

Пример

Sub PrimerNow()

MsgBox Now

MsgBox Day(Now)

MsgBox Hour(Now)

End Sub

Функция Second

Second – это функция, которая возвращает количество секунд в виде числа от 0 до 59 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр time – любое числовое или строковое выражение, представляющее время.

Пример

Sub PrimerSecond()

MsgBox Second(Now)

MsgBox Second(«22:30:14»)

End Sub

Функция Time

Time – это функция, которая возвращает значение текущего системного времени. Тип возвращаемого значения – Variant/Date.

Синтаксис

Пример

Sub PrimerTime()

MsgBox «Текущее время: « & Time

End Sub

Функция TimeSerial

TimeSerial – это функция, которая возвращает значение времени для указанного часа, минуты и секунды. Тип возвращаемого значения – Variant/Date.

Синтаксис

TimeSerial(hour, minute, second)

Параметры

Параметр	Описание
hour	Обязательный параметр типа Integer. Числовое выражение, возвращающее значение от 0 до 23 включительно.
minute	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 0 до 59.*
second	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 0 до 59.*

* Функция TimeSerial автоматически пересчитывает общее количество секунд в полные минуты и остаток, общее количество минут в полные часы и остаток (подробнее в примере).

Пример

Sub PrimerTime()

MsgBox TimeSerial(5, 16, 4) ‘Результат: 5:16:04

MsgBox TimeSerial(5, 75, 158) ‘Результат: 6:17:38

End Sub

Разберем подробнее строку TimeSerial(5, 75, 158):

158 секунд = 120 секунд (2 минуты) + 38 секунд;
75 минут = 60 минут (1 час) + 15 минут.

В итоге получается:

TimeSerial(5+1, 15+2, 38) = TimeSerial(6, 17, 38)

Функция TimeValue

TimeValue – это функция, которая преобразует время, указанное в виде строки, в значение типа Variant/Date (дата игнорируется).

Синтаксис

Параметр time – строковое выражение, представляющее время с 0:00:00 по 23:59:59 включительно.

Пример

Sub PrimerTimeValue()

MsgBox TimeValue(«6:45:37 PM») ‘Результат: 18:45:37

MsgBox TimeValue(«17 мая 2021 3:59:15 AM») ‘Результат: 3:59:15

End Sub

Функция TimeValue игнорирует дату, указанную в преобразуемой строке, но если дата указана в некорректном виде (например, «30.02.2021»), будет сгенерирована ошибка.

Функция Weekday

Weekday – это функция, которая возвращает день недели в виде числа от 1 до 7 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Weekday(date, [firstdayofweek])

Параметры

Параметр	Описание
date	Обязательный параметр. Любое выражение (числовое, строковое), отображающее дату.
firstdayofweek	Константа, задающая первый день недели. По умолчанию – воскресенье.

Таблицу констант из коллекции firstdayofweek смотрите в параграфе «Приложение 2».

Пример

Sub PrimerWeekday()

MsgBox Weekday(«23 апреля 2021», vbMonday) ‘Результат: 5

MsgBox Weekday(202125, vbMonday) ‘Результат: 6

End Sub

Функция WeekdayName

WeekdayName – это функция, которая возвращает название дня недели в виде строки.

Синтаксис

WeekdayName(weekday, [abbreviate], [firstdayofweek])

Параметры

Параметр	Описание
weekday	Обязательный параметр. Числовое обозначение дня недели от 1 до 7 включительно.
abbreviate	Необязательный параметр. Логическое значение: True – возвращается сокращенное название дня недели, False (по умолчанию) – название дня недели не сокращается.
firstdayofweek	Константа, задающая первый день недели. По умолчанию – воскресенье.

Таблицу констант из коллекции firstdayofweek смотрите в параграфе «Приложение 2».

Пример

Sub PrimerWeekdayName()

MsgBox WeekdayName(3, True, vbMonday) ‘Результат: Ср

MsgBox WeekdayName(3, , vbMonday) ‘Результат: среда

MsgBox WeekdayName(Weekday(Now, vbMonday), , vbMonday)

End Sub

Функция Year

Year – это функция, которая возвращает номер года в виде числа. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр date – любое числовое или строковое выражение, представляющее дату.

Пример

Sub PrimerYear()

MsgBox Year(Now)

End Sub

Приложение 1

Таблица аргументов (значений) параметраinterval для функций DateAdd, DateDiff и DatePart:

Аргумент	Описание	Интервал значений
yyyy	Год	100 – 9999
q	Квартал	1 – 4
m	Месяц	1 – 12
y	День года	1 – 366
d	День месяца	1 – 31
w	День недели	1 – 7
ww	Неделя	1 – 53
h	Часы	0 – 23
n	Минуты	0 – 59
s	Секунды	0 – 59

В третьей графе этой таблицы указаны интервалы значений, возвращаемых функцией DatePart.

Приложение 2

Константы из коллекции firstdayofweek:

Константа	Значение	Описание
vbUseSystem	0	Используются системные настройки
vbSunday	1	Воскресенье (по умолчанию)
vbMonday	2	Понедельник
vbTuesday	3	Вторник
vbWednesday	4	Среда
vbThursday	5	Четверг
vbFriday	6	Пятница
vbSaturday	7	Суббота

Приложение 3

Константы из коллекции firstweekofyear:

Константа	Значение	Описание
vbUseSystem	0	Используются системные настройки.
vbFirstJan1	1	Неделя, в которую входит 1 января (по умолчанию).
vbFirstFourDays	2	Неделя, в которую входит не менее четырех дней нового года.
vbFirstFullWeek	3	Первая полная неделя года.

Источник

Главная » Функции VBA »

28 Апрель 2011 326733 просмотров

Date() — возвращает текущую системную дату. Установить ее можно при помощи одноименного оператора, например, так:
Time() — возвращает текущее системное время
Now() — возвращает дату и время вместе.
DateAdd() — возможность добавить к дате указанное количество лет, кварталов, месяцев и так далее — вплоть до секунд. Интервалы(год, месяц и т.д.) указываются в текстовом формате. Список допустимых значений:
«yyyy» Год
«q» Квартал
«m» Месяц
«y» День года
«d» День
«w» День недели
«ww» Неделя
«h» Час
«n» Минута
«s» Секунда
Сам синтаксис обращения незамысловат. Сначала указываем интервал, затем сколько единиц добавить и самый последний аргумент — к какой дате(включая время, кстати). Например, чтобы добавить 3 года к текущей дате-времени, надо записать функцию так:
MsgBox DateAdd(«yyyy», 3, Now)
Но что интереснее — можно не только добавлять, но и отнимать. Функция не изменится, мы просто должны записать кол-во добавляемых периодов со знаком минус. Отнимем три года от текущей даты-времени:
MsgBox DateAdd(«yyyy», -3, Now)
DateDiff() — возможность получить разницу между датами (опять таки в единицах от лет до секунд).
```
    Dim lDaysCnt As Long
    lDaysCnt = DateDiff("d", "20.11.2012", Now)
    MsgBox "С 20.11.2012 прошло дней: " & lDaysCnt
```
Первый аргумент определяет период времени, в котором необходимо вернуть разницу между датами. Допустимые значения:
«yyyy» Год
«q» Квартал
«m» Месяц
«y» День года
«d» День
«w» День недели
«ww» Неделя
«h» Час
«n» Минута
«s» Секунда
Наиболее полезна DateDiff при вычислении полных лет. Например, чтобы вычислить сколько лет на текущий момент человеку, в зависимости от даты рождения, можно использовать функцию так:
```
MsgBox DateDiff("yyyy", "20.12.1978", Now)
```
Без этой функции вычислить кол-во полных лет гораздо сложнее.
DatePart() — функция возвращает указанную часть даты (например, только год, только месяц или только день недели), на основании заданной даты. Часто применяется для получения номера недели для даты.
Первый аргумент — период времени. Принимаемые значения те же, что и для функции DateDiff(годы, месяцы, недели и т.д.)
Второй аргумент — непосредственно дата, часть которой необходимо получить:
```
MsgBox "Номер недели года: " & DatePart("ww", Now)
```
DateSerial() — возможность создать значение даты, задавая месяц, год и день числовыми значениями:

MsgBox DateSerial(2012, 6, 7)

DateValue()— делает то же, что и DateSerial(). Отличия — в формате принимаемых значений. Эта функция в качестве аргумента принимает дату в текстовом формате и преобразует её в формат даты:
```
    MsgBox DateValue("07.06.12")
```
Аналогичным образом (для времени) работают TimeSerial() и TimeValue()
Day(), Year(), Month(), Weekday(), Hour(), Minute(), Second() — специализированные заменители функции DatePart(), которые возвращают нужную часть даты/времени (которую именно — видно из названия).
MonthName() — возвращает имя месяца словами по его номеру. Возвращаемое значение зависит от региональных настроек. Если они русские, то вернется русское название месяца.
Timer() — возвращает количество секунд, прошедших с полуночи.

Статья помогла? Сделай твит, поделись ссылкой с друзьями!

Источник

Макросы для вывода календаря на форме или в ячейке Excel, программы для работы с датой и временем, таймеры и секундомеры

Надстройка samradDatePicker (русифицированная) для облегчения ввода даты в ячейки листа Excel.

Добавляет в контекстное меня ячеек пункт выбора даты, а при выделении ячеек, содержащих дату, справа от ячейки отображает значок календаря.

Поместите файл надстройки из вложения в папку автозагрузки Excel (C:Program FilesMicrosoft OfficeOFFICExxXLSTART).
В контекстном меню ячеек…
Программа предназначена для формирования (заполнения) договоров купли-продажи.

Исходными данными выступает таблица сделок, и шаблон договора, в который при помощи формул подставляются значения из заданной строки таблицы сделок.
Для запуска программы достаточно нажать зеленую кнопку — и сразу же начнётся формирование договоров (файлов Excel из одного листа) в автоматически созданной папке…
Программа предназначена для фиксации времени событий (хронометража) в таблице Excel в режиме онлайн.
Типичное применение такой программы — фиксации времени прохождения кругов автогонщиками, но подойдёт данный секундомер и для учёта времени на любых других спортивных состязаниях.

Особенности программы:

изменяемое количество участников — от 1 до 20

изменяемое количество кругов (…
Программа АИСС «СПК» предназначена для автоматизации работы приемной комиссии колледжей и техникумов.

АИСС обеспечивает выполнение всех необходимых операций по приему документов, поиску и анализу информации, составлению отчетов.

Назначением программы является автоматизация труда работника приёмной комиссии учебного заведения.

Программа обеспечивает:

Хранение полной…
Программа позволяет упростить ввод данных в бланк заявления на пополнение счёта.

Реализована проверка корректности ввода некоторых полей.
(например, для полей «серия паспорта» и «номер паспорта» реализована проверка вводимых символов — допускается ввод только заданного количества цифр)
Выбор большинства значений производится из выпадающих списков, что позволяет…
Надстройка, позволяющая загрузить из выбранной папки список файлов на лист Excel.
Автор: VictorM

Особенности надстройки:

задаваемая пользователем глубина поиска в подпапках

простановка гиперссылок на листе Excel на найденные файлы

вывод дополнительных характеристик файла

(размер файла, дата создания файла, полный путь)

изменяемая маска поиска (поиск по части имени файла, по…
Программа предназначена для отображения этапов выполнения работ на шкале времени в Excel.
В качестве исходных данных выступает таблица, заголовками которой являются названия этапов, а в строках, для каждой работы, указана дата каждого этапа.
Шкала времени состоит из двух строк, заполненных датами при помощи формул.
В первой строке — дата начала временного интервала, во второй строке — дата его…
С помощью нижеуказанного макроса, в примечание активной ячейки можно добавить изображение.
При выделении данной ячейки — изображение будет отображаться в комментарии.
Данный код добавляет в контекстное меню ячейки новое действие «Вставить изображение»
Нижеуказанный макрос лучше всего поместить в «личную книгу макросов» (PERSONAL)
В модуль «ЭтаКнига» файла PERSONAL….
Данный секундомер предназначен для фиксации времени прохождения кругов автогонщиками.

Возможен одновременный, а также выборочный, старт всех секундомеров (в примере их 4 — по одному на каждого гонщика)
По прохождении гонщиком очередного круга достаточно нажать кнопку СТОП — и секундомер начнёт фиксировать время следующего круга.
В последнем столбце формулой подсчитывается суммарное время…
Функция LastFile предназначена для поиска самого свежего файла в заданной папке

(производится поиск файлов по маске, и из найденных файлов выбирается тот, дата последнего изменения которого максимальна)

Пример использования функции:
Sub ПримерИспользованияФункции_LastFile()
‘ Ищем на рабочем столе все файлы TXT, и выводим имя самого нового файла.
‘ Просматриваются папки с…
В Excel есть инструментарий для запуска макроса по расписанию, — Application.Ontime
При помощи этого метода можно запускать макрос с заданным интервалом (например, раз в секунду)
Но есть и другой вариант, — использование объекта htmlfile:
(код надо поместить в модуль ЭтаКнига — ThisWorkbook)
Private m_TimerId As Variant
Private m_doc As Object
Const ATTRNAME = «VBATimerHandler»
…
Программа предназначена для вывода информации о скором наступлении события
Каждый раз при открытии файла (и автоматической активации макроса), происходит проверка разницы между текущей датой, и датой окончания действия полиса
(столбец номер 7 на скриншоте).
Если эта разница находится в пределах 10 дней (параметр можно менять по своему усмотрению), то на отдельный лист выводится ссылка на…
Функция GetRealTime выполняет HTTP-запрос к заданному серверу,
и из заголовка Date ответа сервера берёт текущее время и дату.
Сделано на примере сервера Яндекса (их сайт почти всегда доступен, и работает очень быстро)
Функция полезна, когда надо получить реальную дату (а не ту, которая выставлена на компе), — например, для вычисления оставшегося времени использования trial-версии программы….

Источник

The Date and Timestamp is a type of data type that determines the date and time of a particular region. It contains some characters along with some encoded data. This format may vary from language to language. Keeping track of date and time helps in managing records of our work as well as segregate the information day-wise. In this article, we will be going to learn how we can automatically insert Date and Timestamp in Excel.

There are multiple ways to insert Date and Timestamp in Excel. These methods include both static and dynamic methods.

1. Inserting Date And Timestamp using keyboard shortcuts (Static method)

The static method is helpful when there are only a few cells where you need to insert the Date and Timestamp. You can quickly use the keyboard shortcut to manually insert the Date and Timestamp.

Follow the below steps to implement the same:

Select the cell into which the current date or time needs to be inserted.
Use this shortcut – Ctrl + ; (Control + semicolon) to insert the current date.
Use this shortcut – Ctrl + Shift + ; (Control + Shift + semicolon) to insert the current time.
Use this shortcut – Press the combination (Ctrl + ;) and (Ctrl + Shift + ;) to insert the current time and time.

2. Inserting Date And Timestamp using Formulas:

The NOW() and TODAY() functions can be used to insert the current date and time that will update automatically. This method dynamically updates the date-time whenever a change is made in the worksheet.

NOW(): To insert current date and time.
TODAY(): To insert the current date.

Follow the below steps to implement the same:

Select the cell into which the current date or time needs to be inserted.
Enter the function NOW() or TODAY().
Press the Enter key.
The current date-time or date will be inserted into the selected cell.

3. Insert Timestamp Automatically While Entering Data In Different Column

This method will enable the insertion of the timestamp in a column while entering data into another column. For example, consider two columns A and B in your worksheet. While you enter data in a cell of column A, the current date and time in the corresponding cell in Column B will get updated automatically.

Follow the below steps to implement the same:

Click File -> Options and the Excel Options dialogue box will appear. Now from the left pane, select the Formulas option. You will see Enable interactive calculation in the right pane below Calculation options. Check this option and select OK.

In this next adjoining column (say column B), enter this formula:

=IF(A1<>"",IF(B1<>"",B1,NOW()),"")

Drag and select cells to auto-fill the formula.

You can also customize the format of the date and time. To do this, right-click on the selected formula cells, go to the context menu, and select Format Cells. You will see the Format cells dialogue box. Go to the bottom and select Custom. In the right pane select the suitable format for your cells.

Now when you enter the data in a column, you will get the date and time in your chosen format in the adjoining cell.

4. Using VBA To Insert Timestamp Automatically While Entering Data In a Different Column

If you are familiar with working on VBA, then there is another method for you to automatically insert the timestamp in your excel sheet using VBA.

Follow the below steps to implement the same:

To open Microsoft Visual Basic for Applications, press Alt + F11. The VBA window will open. Now go to Insert and select the Module to open a blank module.

Now, add the code given below to your blank module and save the code.

Function MyTimestamp(Reference As Range)

If Reference.Value <> "" Then

MyTimestamp = Format(Now, "dd-mm-yyyy hh:mm:ss")

Else

MyTimestamp = ""

End If

End Function

Go back to your worksheet and type the below formula in your cell in which you want to insert timestamp.

A is the column for inserting entries of data.
B is corresponding column, into which the date and timestamp will be updated.

Type the below formula into B1 cell:
=MyTimestamp(A1)

Now, if you insert the entry in a column, you will get the date and time in the adjoining cell automatically.

Источник

Автоматическая вставка текущей даты в ячейку при вводе данных

Предположим, у нас имеется таблица заказов, куда пользователь вводит номер заказа, имя клиента, сумму и т.д. Необходимо сделать так, чтобы при внесении номера заказа в столбец А — в столбце B напротив введенного заказа автоматически появлялись дата и время его занесения:

Чтобы реализовать такой ввод даты, нам потребуется простой макрос, который надо добавить в модуль рабочего листа. Для этого щелкните правой кнопкой мыши по ярлычку листа с таблицей и выберите в контекстном меню команду Исходный текст (View code).

В открывшееся окно редактора Visual Basic скопируйте этот текст этого макроса:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
End Sub

При необходимости измените «чувствительный» диапазон «А2:А100» на свой собственный. Если необходимо вставлять дату не в соседний столбец, а правее — подставьте в оператор Offset(0,1) вместо 1 число побольше.

Закройте редактор Visual Basic и попробуйте ввести что-нибудь в диапазон А2:А100. В соседней ячейке тут же появится текущая дата-время!

Ссылки по теме

Как сделать выпадающий календарь для быстрого ввода любой даты мышью в любую ячейку.
Как Excel работает с датами
Что такое макрос, как он работает, куда копировать текст макроса, как запустить макрос?

Источник