Макрос для excel текущей даты

Многие ведут реестры учета всевозможных документов в таблицах Excel, проставляя в них даты различных этапов согласования и подписания. При этом не все знают, что ввести текущую дату в ячейку Excel можно нажатием сочетания горячих клавиш. Кроме того, для этой же цели можно использовать макрос VBA.

Для быстрого ввода текущей даты в ячейку предусмотрено стандартное средство Excel — нажатие сочетания горячих клавиш Ctrl+; (либо Ctrl+Ж, кому как удобнее запомнить). В случае, если кому-то такое сочетание клавиш не вполне удобно, то можно сохранить в личной книге макросов процедуру (код которой приведен ниже) и закрепить ее за более удобным сочетанием клавиш, например Ctrl+d (о том как это сделать можно прочитать подробнее), а для того чтобы это сочетание срабатывало независимо от раскладки клавиатуры, можно сохранить не одну, а две идентичных процедуры и привязать их к разным сочетаниям клавиш, например одну к Ctrl+d, а другую к Ctrl+в. 

Sub InsertDate()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+d
    ActiveCell.Value = Format(Now, "dd.mm.yyyy")
End Sub
'-------------------------------------------------------
Sub Вставка_Даты()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+в
    ActiveCell.Value = Format(Now, "dd.mm.yyyy")
End Sub

Для того чтобы текущая дата вставлялась не только в активную ячейку, но и во все выделенные ячейки, достаточно добавить цикл в программный код.

Sub InsertDate()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+d
    for each Cell in Selection    
        Cell.Value = Format(Now, "dd.mm.yyyy")
    Next
End Sub
'-------------------------------------------------------
Sub Вставка_Даты()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+в
    for each Cell in Selection
        Cell.Value = Format(Now, "dd.mm.yyyy")
    Next
End Sub

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

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

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

• 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() — возвращает количество секунд, прошедших с полуночи.