photosdematures.com

Pag-andar Ngayon ng Excel VBA

NGAYON ay isang pag-andar ng petsa at oras sa parehong VBA na ginagamit upang makuha ang kasalukuyang petsa at oras ng system, tulad ng pag-andar ng worksheet na hindi kumukuha ng anumang mga argument dito, sa pag-andar ngayon ng VBA ay hindi rin tumatagal ng anumang mga argumento, ang output ng pagbalik para sa pagpapaandar na ito ay petsa.

Ang pagpapaandar ng VBA NGAYON ay katulad ng isa sa excel worksheet function. Tulad ng pag-andar ng DATE sa VBA na "NGAYON" din ay walang mga parameter upang makapasa, kailangan lang nating ipasa ang pagpapaandar na may saradong panaklong o kailangan din ng panaklong. Sa pamamagitan ng paggamit ng DATE function sa VBA maaari naming mabuo ang kasalukuyang petsa tulad ng pagpapakita ng system na aming pinagtatrabahuhan. Gayunpaman, nakakita ako ng mga sitwasyon kung saan kailangan namin ng kasalukuyang oras kasama ang petsa din. Sa excel maaari nating gawin ang maraming mga pagkakaiba-iba ng mga bagay, katulad, makakagawa tayo ng kasalukuyang petsa at oras sa isang simpleng pag-andar na tinatawag na NGAYON sa excel.

Ang formula ng VBA NGAYON ay simple.

NGAYON ()

Halimbawa ng NGAYON Pag-andar sa VBA Excel

Tingnan ang simpleng halimbawa ng pag-andar NGAYON sa VBA. Sundin ang mga hakbang sa ibaba upang isulat ang VBA code at magkaroon ng kaunting kaalaman sa NGAYON pati na rin ang pagsulat ng code.

Hakbang 1: Simulan ang subprocedure sa pamamagitan ng pagbibigay ng isang macro name.

Code:

 Sub Ngayon_Example1 () Tapusin ang Sub

Hakbang 2: Ipahayag ang variable bilang "Petsa". Ang dahilan kung bakit kailangan naming ideklara ang variable bilang "Petsa" dahil ang aming resulta sa pagtatapos ay nasa format na Petsa at Oras.

Code:

 Sub Ngayon_Example1 () Dim k Bilang Petsa ng Pagtatapos ng Sub 

Hakbang 3: Italaga ang halaga sa variable na "k" sa pamamagitan ng paglalapat ng pagpapaandar ng VBA NGAYON.

Code:

 Sub Ngayon_Example1 () Dim k Bilang Petsa k = Ngayon Nagtatapos Sub 

Hakbang 4: Ipakita ngayon ang halaga ng pagpapaandar NGAYON na naitalaga namin sa variable na "k" sa kahon ng mensahe sa VBA.

Code:

 Sub Ngayon_Example1 () Dim k Bilang Petsa k = Ngayon MsgBox k End Sub 

Ok, tapos na tayo.

Patakbuhin ang code gamit ang F5 key o manu-mano at makita kung ano ang resulta.

Ipinapakita ang resulta 4/15/2019 ng 5:03:35.

Ang format ng petsa ng aking computer ay "mm-dd-yyyy".

Maaari din nating baguhin ang format ng petsa sa pamamagitan ng paggamit ng FORMAT function. Nasa ibaba ang code upang baguhin ang format ng petsa.

Code:

 Sub Ngayon_Example1 () Dim k Bilang Petsa k = Ngayon MsgBox Format (k, "DD-MMM-YYYY HH: MM: SS") End Sub 

Patakbuhin ang code at makita ang pagkakaiba.

Ngayon mayroon kaming tamang format ng petsa at oras. Sa format na ito, maaaring maunawaan ng sinuman ang format ng petsa at oras.

Pabagu-bago sa Kalikasan:

Tulad ng nakikita mo sa unang halimbawa na nakuha namin ang resulta ng oras bilang 5:03:35 at sa pangalawang halimbawa, pinupunta ang resulta bilang 17:19:02. Kaya't ipinapakita nito na ang function na NGAYON ay isang pabagu-bago na pag-andar na nagbabago bawat segundo.

Kahalili sa Pag-andar ng Timer sa VBA

Bilang isang kahalili sa VBA TIMER, maaari naming gamitin ang pagpapaandar na "VBA NGAYON" upang makalkula ang kabuuang oras na kinuha ng macro upang makumpleto ang gawain.

Gamitin ang code sa ibaba upang makalkula ang oras na kinuha ng iyong code.

C0de:

 Sub TotalDuration () Dim k Bilang Petsa k = Ngayon '' 'Ipasok ang iyong code dito' '' MsgBox "Kabuuang Oras na Kinuha ng macro upang makumpleto ang gawain ay:" & _ Format ((Ngayon - k), "HH: MM : SS ") End Sub 

Sa berdeng kulay na lugar kopyahin at i-paste ang iyong code.

Ipatupad ang code sa pamamagitan ng pagpindot sa F5 key o pindutin ang run button. Sa sandaling nakumpleto nito ang pagpapatupad makakakuha kami ng oras na kinuha ng macro upang makumpleto ang mensahe ng gawain sa kahon ng mensahe. Nasa ibaba ang isang halimbawa ng pareho.

Tulad nito, maaari naming gamitin ang NGAYON na pag-andar sa maraming paraan sa VBA.

Maaari mong i-download ang template ng Excel VBA Ngayon Function na ito dito - Template ng VBA Ngayon na Pag-andar