Екцел ВБА ДАТУМ функција
ВБА датум је функција датума и времена, враћа само тренутни датум према системском датуму који користите, такође је важно напоменути да ова функција нема никакве аргументе, други важан фактор који треба имати на уму је да је ова функција враћа тренутни системски датум.
У Екцелу, не можемо живети без неких функција, а „ВБА Дате“ је једна од тих функција. Ако сте чест корисник екцел радног листа, тада морате бити свјесни функције која се зове „ДАНАС ()“, која ће вратити тренутни датум према датуму система.
Датум је врло једноставна функција и враћа само тренутни датум према системском датуму који користите. Ово функционише врло слично функцији нашег радног листа „ДАНАС“, али није променљиве природе.
Синтакса функције екцел ДАТЕ је врло једноставна јер нема аргумент за испоруку и укључује само празне заграде.
Датум ()
Заграде постоје само да би објаснили функцију када је користите, нема потребе да уносите заграде.
Како се користи Екцел ВБА функција датума?
Пример # 1
Претпоставимо да желите да уметнете тренутни датум у ћелију А1, а затим следите кораке у наставку за писање кода за уметање тренутног датума у ћелију А1.
Корак 1: Креирајте име макронаредбе.
Шифра:
Суб Датум_Пример1 ()
Корак 2: Будући да требамо да сачувамо тренутни датум у ћелији А1, наш код ће бити Ранге („А1“). Вредност .
Шифра:
Суб Датум_Пример1 () Опсег ("А1"). Вредност Крај Суб
Корак 3: У ћелији А1 потребан нам је тренутни датум, па користите функцију ДАТУМ.
Шифра:
Суб Датум_Пример1 () Опсег ("А1"). Вредност = Датум Крај Суб
Корак 4: Ок, готови смо. Покренимо овај код сада притиском на тастер Ф5, или га можете покренути и ручно, као што је приказано на доњем снимку екрана. Тренутни датум добићемо у ћелији А1.
Дакле, када пишем овај код тренутни датум у мом систему је "15 -ог марта 2019".
Напомена: Формат датума зависи од поставки прозора. У сваком случају, можете променити формат датума у ћелијама формата.
Пример # 2
Претпоставимо да сте агент ЛИЦ-а и имате неколико купаца с којима можете да се бавите. Један од кључних циљева је знати чије је плаћање данас, тако да их можете назвати и одмах платити уплату.
Претпоставимо да је испод листа купаца које имате у вашој бази података.
Већ сам написао код који ће вас обавестити чим отворите екцел датотеку.
Шифра:
Суб Дуе_Нотифиер () Дим Дуедате Ас Дате Дим и Ас Лонг Дуедате = Дате и = 2 Фор и = 2 То Целлс (Ровс.Цоунт, 1) .Енд (клУп) .Ров Иф Дуедате = ДатеСериал (Иеар (Дате), Монтх ( Целлс (и, 3) .Валуе), Даи (Целлс (и, 3) .Валуе)) Затим МсгБок "Име купца:" & Целлс (и, 1) .Валуе & вбНевЛине & "Премиум Количина:" & Целлс (и , 2) .Валуе Енд Иф Нект и Енд Суб
Копирајте горњи код и налепите га у ВБА модул.
Сада двапут кликните на опцију „Тхис Воркбоок“.
Сада изаберите „Воркбоок“ из горњег падајућег менија.
Чим одаберете опцију „Радна свеска“, аутоматски ћете видети приватни макро.
Овде назив макронаредбе каже „Воркбоок_Опен ()“, што значи кад год ова радна свеска отвори оно што морате учинити. Кад год се отвори ова радна свеска, морамо покренути макро који смо креирали.
Дакле, овде морамо назвати наш макро који смо креирали његовим именом. У горњем коду, наше име макронаредбе је „Дуе_Нотифиер“.
Шифра:
Позовите Дуе_Нотифиер
Сада сачувајте ову радну свеску и затворите је.
Након што га затворите, отворите радну свеску и погледајте чаролију.
Сада ћу отворити….
Вау !!! Показује ми име купца и њихов доспели износ за текући датум.
Име купца је „Амар“, а доспели износ је „20883“. Разлог зашто се приказује ово име купца, јер је рок за господина Амар је 15 -ог марта 2019, односно данас.
Сада кликните на Ок, приказаће се друга имена купаца ако је датум доспећа данас.
Показује име господина Арвинда; његов крајњи рок је такође на 15 -ог марта 2019.
Сада можете лако препознати имена купаца чим дођете у канцеларију. Нестала је једна од великих главобоља.
Similarly, I have created one more excel macro, which will send auto birthday emails from your outlook.
Example #3
Assume you are in an “Employee Engagement Team,” and you are responsible for sending birthday emails to your employees. Identify and sending the email to each, and every one separately is a painful job.
Hello, my dear friend, doesn’t worry, I have created a macro for you to send the auto birthday emails to your employees.
I have created some data to test, and below is the image of the same.
You just need to update the employee master according to the headings of the table. Below is the code to send the emails.
Copy the below code and paste it in the module.
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
Чим дођете у канцеларију, само отворите датотеку и покрените овај код, аутоматски ће послати жеље за рођенданом на одговарајуће ИД-ове е-поште.
Напомена: У систему треба да имате конфигурисан Оутлоок.
