Функция даты VBA

Функция ДАТА Excel VBA

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

В Excel мы не можем жить без некоторых функций, и «Дата VBA» — одна из таких функций. Если вы часто используете рабочий лист Excel, то должны знать о функции, называемой «СЕГОДНЯ (),» который вернет текущую дату в соответствии с системной датой.

Дата — очень простая функция, и она возвращает только текущую дату в соответствии с системной датой, которую вы используете. Это работает очень похоже на нашу функцию рабочего листа «СЕГОДНЯ», но не изменчива по своей природе.

Синтаксис Excel функция ДАТАФункция ДАТА в ExcelФункция даты в Excel — это функция даты и времени, представляющая число, предоставленное в качестве аргументов в коде даты и времени. Отображаемый результат имеет формат даты, но аргументы предоставляются как целые числа.читать далее очень прост, потому что он не имеет аргументов и включает только пустые круглые скобки.

Date ()

Скобки нужны только для пояснения функции при ее использовании, скобки вводить не нужно.

Функция даты VBA

Вы можете свободно использовать это изображение на своем веб-сайте, в шаблонах и т. Д. Пожалуйста, предоставьте нам ссылку с указанием авторстваКак указать авторство?Ссылка на статью должна быть гиперссылкой
Например:
Источник: Функция даты VBA (wallstreetmojo.com)

Как использовать функцию даты Excel VBA?

Вы можете скачать этот шаблон VBA Date Excel здесь — Шаблон Excel для даты VBA

Пример # 1

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

Шаг 1: Создайте имя макроса.

Код:

Sub Date_Example1()
Пример функции даты VBA 1

Шаг 2: Поскольку нам нужно сохранить текущую дату в ячейке A1, наш код будет Диапазон («A1»). Значение.

Код:

Sub Date_Example1()
Range("A1").Value
End Sub
Пример функции даты VBA 1-1

Шаг 3: В ячейке A1 нам нужна текущая дата, поэтому используйте функцию DATE.

Код:

Sub Date_Example1()
Range("A1").Value = Date
End Sub
Пример функции даты VBA 1-1

Шаг 4: Хорошо, мы закончили. Давайте запустим этот код сейчас, нажав клавишу F5, или вы также можете запустить код вручную, как показано на снимке экрана ниже. Мы получим текущую дату в ячейке A1.

Пример функции даты VBA 1-2

Итак, когда я пишу этот код, текущая дата в моей системе — «15th март 2019 года».

Примечание: формат вашей даты зависит от ваших настроек Windows. В любом случае, вы можете изменить формат даты в ячейках формата.

Пример # 2

Предположим, вы агент LIC и у вас есть несколько клиентов, с которыми нужно иметь дело. Одной из ключевых задач является знать, чей платеж должен быть произведен сегодня, чтобы вы могли позвонить им и немедленно получить платеж.

Предположим, ниже приведен список клиентов, которые есть в вашей базе данных.

Пример функции даты VBA 2-1

Я уже написал код, который уведомит вас, как только вы откроете файл Excel.

Код:

Sub Due_Notifier()
  Dim Duedate As Date
  Dim i As Long

  Duedate = Date
  i = 2

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  If Duedate = DateSerial(Year(Date), Month(Cells(i, 3).Value), Day(Cells(i, 3).Value)) Then
    MsgBox "Customer Name : " & Cells(i, 1).Value & vbNewLine & "Premium Amount : " & Cells(i, 2).Value
  End If
Next i

End Sub

Скопируйте приведенный выше код и вставьте его в модуль VBA.

Пример функции даты VBA 2-2.pn

Теперь дважды щелкните параметр «Эта рабочая книга».

Пример функции даты VBA 2-3

Теперь выберите «Рабочая тетрадь» из раскрывающегося списка выше.

Пример функции даты VBA 2-4

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

Пример функции даты VBA 2-5

Здесь имя макроса говорит «Рабочая книга_Открыть ()» это означает, что всякий раз, когда эта книга открывает то, что вам нужно делать. Всякий раз, когда эта рабочая книга открывается, нам нужно запускать созданный нами макрос.

Итак, здесь нам нужно назвать наш макрос, который мы создали, по его имени. В приведенном выше коде имя нашего макроса «Due_Notifier».

Код:

Call Due_Notifier
Пример 2-6

Теперь сохраните эту книгу и закройте ее.

После закрытия откройте книгу и увидите волшебство.

Сейчас открою….

Пример 2-7

Ух ты!!! Он показывает мне имя клиента и сумму, причитающуюся ему на текущую дату.

Имя клиента — «Амар», а причитающаяся сумма — «20883». Причина, по которой он показывает это имя клиента, потому что срок для мистера Амара — 15 лет.th Март 2019, т.е. сегодня.

Теперь нажмите «ОК», он покажет другие имена клиентов, если срок платежа наступает сегодня.

Пример 2-8

На нем указано имя мистера Арвинда; у него срок родов тоже 15th Март 2019.

Теперь вы можете легко определить имена клиентов, как только вы придете в офис. Одна из больших головных болей ушла.

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

Пример # 3

Предположим, вы входите в «Группу по взаимодействию с сотрудниками» и несете ответственность за отправку писем с днем ​​рождения своим сотрудникам. Выявление и отправка письма каждому и каждому в отдельности — мучительная работа.

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

Я создал некоторые данные для тестирования, и ниже приведено их изображение.

Пример 3

Вам просто нужно обновить мастер сотрудников в соответствии с заголовками таблицы. Ниже приведен код для отправки писем.

Скопируйте приведенный ниже код и вставьте его в модуль.

Sub Birthday_Wishes()

Dim OutlookApp As Outlook.Application
Dim OutlookMail As Outlook.MailItem
Dim Mydate As Date
Dim i As Long

Set OutlookApp = New Outlook.Application
Mydate = Date
i = 2

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Set OutlookMail = OutlookApp.CreateItem(olMailItem)

If Mydate = DateSerial(Year(Date), Month(Cells(i, 5).Value), Day(Cells(i, 5).Value)) Then
OutlookMail.To = Cells(i, 7).Value
OutlookMail.CC = Cells(i, 8).Value
OutlookMail.BCC = ""
OutlookMail.Subject = "Happy Birthday - " & Cells(i, 2).Value
OutlookMail.Body = "Dear " & Cells(i, 2).Value & "," & vbNewLine & vbNewLine & _
"We wish you a happy birhday on behalf of the management and we wish all the success in the coming future" & vbNewLine & _
vbNewLine & "Regards," & vbNewLine & "StrIDE Team"
OutlookMail.Display
OutlookMail.Send

End If
Next i

End Sub

Как только вы придете в офис, просто откройте файл и запустите этот код, он автоматически отправит поздравления с днем ​​​​рождения на соответствующие адреса электронной почты.

Примечание: В вашей системе должен быть настроен Outlook.

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *