Pag-andar ng Petsa ng VBA | Paano gamitin ang Excel VBA Date Function?

Pag-andar ng Excel VBA DATE Function

Petsa ng VBA ay isang pag-andar sa Petsa at Oras, ibabalik lamang nito ang kasalukuyang petsa ayon sa petsa ng system na iyong ginagamit, pati na rin ang mahalagang bagay na dapat tandaan na ang pagpapaandar na ito ay walang mga argumento dito, ang isa pang mahalagang kadahilanan na dapat tandaan ay ang pagpapaandar na ito ay nagbabalik ng kasalukuyang petsa ng system.

Sa excel hindi kami mabubuhay nang wala ang ilan sa mga pagpapaandar at ang "Petsa ng VBA" ay isa sa pagpapaandar na iyon. Kung ikaw ay isang madalas na gumagamit ng excel worksheet pagkatapos ay dapat mong magkaroon ng kamalayan ng isang pagpapaandar na tinawag "NGAYON ()" na magbabalik ng kasalukuyang petsa ayon sa petsa ng system.

Ang petsa ay isang napaka-simpleng pagpapaandar at ibabalik lamang nito ang kasalukuyang petsa ayon sa petsa ng system na iyong ginagamit. Gumagawa ito ng halos kapareho sa aming worksheet function na "NGAYON" ngunit hindi pabagu-bago sa likas na katangian.

Ang syntax ng excel DATE function ay napaka-simple dahil wala itong argument na ibibigay at may kasamang walang laman na panaklong lamang.

Petsa ()

Nariyan lamang ang magulang upang ipaliwanag ang pagpapaandar kapag ginamit mo ang pag-andar na hindi kailangan ng pagpasok ng panaklong.

Paano gamitin ang Excel VBA Date Function?

Maaari mong i-download ang Template ng VBA Date Excel na ito dito - VBA Template Excel Template

Halimbawa # 1

Ipagpalagay na nais mong ipasok ang kasalukuyang petsa sa cell A1 pagkatapos ay sundin ang mga hakbang sa ibaba upang isulat ang code upang ipasok ang kasalukuyang petsa sa cell A1.

Hakbang 1: Lumikha ng isang pangalan ng macro.

Code:

 Sub Petsa_Example1 ()

Hakbang 2: Dahil kailangan naming itago ang kasalukuyang petsa sa cell A1 ang aming code ay magiging Saklaw ("A1"). Halaga.

Code:

 Sub Petsa_Example1 () Saklaw ("A1"). Halaga End End 

Hakbang 3: Sa cell A1 kailangan namin ang kasalukuyang petsa, kaya gamitin ang DATE function.

Code:

 Sub Petsa_Example1 () Saklaw ("A1"). Halaga = Petsa ng Pagtatapos Sub 

Hakbang 4: Ok, tapos na tayo. Patakbuhin natin ang code na ito ngayon sa pamamagitan ng pagpindot sa F5 key o maaari mo ring patakbuhin ang code nang manu-mano tulad ng ipinakita sa screenshot sa ibaba. Makukuha namin ang kasalukuyang petsa sa cell A1.

Kaya, kapag nagsusulat ako ng kasalukuyang petsa ng code sa aking system ay "ika-15 ng Marso 2019".

Tandaan: Ang format ng iyong petsa ay nakasalalay sa iyong mga setting ng windows. Gayunpaman, maaari mong baguhin ang format ng petsa sa ilalim ng mga cell ng format.

Halimbawa # 2

Ipagpalagay na ikaw ay isang ahente ng LIC at mayroon kang maraming mga customer na makitungo. Ang isa sa mga pangunahing bagay ay upang malaman kung kanino ang takdang bayad ay nasa ngayon upang maaari mo silang tawagan at kolektahin kaagad ang pagbabayad.

Ipagpalagay sa ibaba ang listahan ng mga customer na mayroon ka sa iyong database.

Nagsulat na ako ng isang code na aabisuhan ka sa lalong madaling buksan mo ang excel file.

Code:

 Sub Due_Notifier () Dim Duedate Bilang Petsa Dim i As Long Duedate = Petsa i = 2 Para sa i = 2 To Cells (Rows.Count, 1). End (xlUp) .Row Kung Duedate = DateSerial (Year (Date), Month ( Mga Cell (i, 3). Halaga), Araw (Mga Cell (i, 3). Halaga)) Pagkatapos MsgBox "Pangalan ng Customer:" & Mga Cell (i, 1). Halaga at vbNewLine & "Premium Halaga:" & Mga Cell (i , 2) .Value End Kung Susunod i End Sub 

Kopyahin ang code sa itaas at i-paste sa module ng VBA.

Ngayon mag-double click sa pagpipiliang "Workbook na Ito".

Piliin ngayon "Workbook" mula sa dropdown sa itaas.

Sa sandaling napili mo ang pagpipilian na "Workbook" maaari mong makita ang isang pribadong macro na awtomatikong magbubukas.

Narito ang sabi ng pangalan ng macro "Workbook_Open ()" nangangahulugan ito tuwing bubuksan ng workbook na ito ang dapat mong gawin. Kailan man magbubukas ang workbook na ito kailangan naming patakbuhin ang macro na nilikha namin.

Kaya, narito kailangan nating tawagan ang aming macro na nilikha namin sa pamamagitan ng pangalan nito. Sa code sa itaas, ang aming pangalan ng macro ay "Dahil_Notifier".

Code:

 Tumawag sa Dahil sa Pagmamaneho

I-save ngayon ang workbook na ito at isara ito.

Matapos itong isara, buksan ang workbook at makita ang mahika.

Ngayon ay bubuksan ko ....

Wow !!! Ipinapakita nito sa akin ang pangalan ng customer at ang kanilang takdang halaga para sa kasalukuyang petsa.

Ang Pangalan ng Customer ay "Amar" at ang takdang halaga ay "20883". Ang dahilan kung bakit ipinapakita nito ang pangalan ng customer dahil ang takdang petsa para kay Mr Amar ay ika-15 ng Marso 2019 ibig sabihin Ngayon.

Ngayon mag-click sa Ok, ipapakita nito ang iba pang mga pangalan ng customer kung ang takdang araw ay sa ngayon.

Ipinapakita nito ang pangalan ni G. Arvind, ang kanyang takdang araw ay nasa ika-15 ng Marso 2019 din.

Ngayon, madali mong makikilala ang mga pangalan ng customer sa sandaling dumating ka sa opisina. Wala na ang isa sa malaking sakit ng ulo.

Katulad nito, lumikha ako ng isa pang excel macro na magpapadala ng mga email ng auto birthday mula sa iyong pananaw.

Halimbawa # 3

Ipagpalagay na ikaw ay nasa isang "Koponan ng Pakikipag-ugnayan ng empleyado" at responsable kang magpadala ng mga email ng kaarawan sa iyong mga empleyado. Kilalanin at ipadala ang email sa bawat isa nang magkahiwalay ay isang masakit na trabaho.

Kumusta, ang aking mahal na kaibigan ay hindi nag-aalala na lumikha ako ng isang macro para sa iyo upang maipadala ang mga email ng auto birthday sa iyong mga empleyado.

Lumikha ako ng ilang data upang subukan at sa ibaba ay ang imahe ng pareho.

Kailangan mo lamang i-update ang empleyado ng empleyado alinsunod sa mga heading ng talahanayan. Nasa ibaba ang code upang maipadala ang mga email.

Kopyahin ang code sa ibaba at i-paste sa module.

 Sub Birthday_Wishes () Madilim ang OutlookApp Bilang Outlook. Nalilimutan ng Application ang OutlookMail Bilang Outlook. MailItem Dim Mydate Bilang Petsa Dim i Bilang Long Set OutlookApp = Bagong Outlook. Mydate ng Application = Petsa i = 2 Para sa i = 2 Sa Mga Cell (Rows.Count, 1) .Matapos (xlUp) .Row Set OutlookMail = OutlookApp.CreateItem (olMailItem) Kung Mydate = DateSerial (Taon (Petsa), Buwan (Mga Cell (i, 5) .Value), Araw (Mga Cell (i, 5). Halaga)) Pagkatapos OutlookMail.To = Mga Cell (i, 7). Halaga ang OutlookMail.CC = Mga Cell (i, 8). Halaga ang OutlookMail.BCC = "" OutlookMail.Subject = "Maligayang Kaarawan -" & Mga Cell (i, 2). Halagain ang OutlookMail .Body = "Dear" & Cells (i, 2). Halaga & "," & vbNewLine & vbNewLine & _ "Hinihiling namin sa iyo na ikaw ay isang maligayang Birhday sa ngalan ng pamamahala at hinihiling namin ang lahat ng tagumpay sa darating na hinaharap" & vbNewLine & _ vbNewLine & "Regards," & vbNewLine & "StrIDE Team" OutlookMail. Ipakita ang OutlookMail.Send End Kung Susunod i End Sub 

Pagdating sa opisina buksan lamang ang file at patakbuhin ang code na ito, awtomatiko itong magpapadala ng mga pagbati sa kaarawan sa kani-kanilang email id's.

Tandaan: Dapat ay naka-configure mo ang Outlook sa iyong system.