photosdematures.com

Pag-andar ng Oras ng Excel VBA

Oras ng VBAPag-andar ibabalik ang kasalukuyang oras, ang mahalagang bagay ding dapat tandaan ay ang pagpapaandar na ito ay walang mga argument dito kung anuman, isa pang mahalagang kadahilanan na dapat tandaan ay ang pagpapaandar na ito ay nagbabalik ng kasalukuyang oras ng system. Gamit ang pagpapaandar na ito maaari naming talagang makita ang aktwal na oras na kinuha ng linya ng mga code upang makumpleto ang proseso.

Ang TIME ay isang uri ng pabagu-bago na pag-andar, wala itong anumang syntax dito.

Mayroon din kaming isang katulad na pag-andar sa excel - NGAYON () na pag-andar na nagsisingit ng parehong kasalukuyang mga oras pati na rin ang kasalukuyang petsa sa spreadsheet

PANAHON ()

Kailangan lamang na ipasok namin ang pagpapaandar, sa katunayan, hindi na kailangang panaklong upang maikulong na ang TIME ay sapat na upang maipasok ang kasalukuyang oras. Ang resulta na ibinigay ng pagpapaandar ng TIME ay nasa string.

Paano Gumamit ng TIME Function sa VBA?

Hayaan akong ipakita sa iyo ang halimbawa ng isang simpleng TIME sa excel function. Sundin ang mga hakbang sa ibaba upang lumikha ng code upang magamit ang pag-andar ng TIME.

Maaari mong i-download ang Template ng Pag-andar ng Oras ng VBA dito - Template ng Pag-andar ng Oras ng VBA

Hakbang 1: Lumikha ng isang macro.

Code:

 Sub Time_Example1 () End Sub 

Hakbang 2: Ipahayag ang isang variable bilang String.

Code:

 Sub Time_Example1 () Dim DimTime Bilang String End Sub 

Hakbang 3: Magtalaga ng isang halaga sa variable na ito sa pamamagitan ng pagpapaandar ng TIME.

Code:

 Sub Time_Example1 () Dim DimTime Bilang String CurrentTime = Time End Sub 

Hakbang 4: Ipakita ngayon ang resulta sa kahon ng mensahe.

Code:

 Sub Time_Example1 () Dim DimTime Bilang String CurrentTime = Oras MsgBox KasalukuyanTime End Sub 

Patakbuhin ang code na ito gamit ang F5 key o manu-mano makukuha namin ang kasalukuyang oras.

Kaya, kapag pinatakbo ko ang oras ng code na ito ay 11.51.54 AM.

Kahalili ng Ngayon () Pag-andar

Kumbinasyon ng Petsa at Oras bilang isang kahalili sa Pag-andar NGAYON

Tulad ng sinabi ko sa simula ng artikulo NGAYON ay maaaring magsingit ng kasalukuyang petsa at oras. Gayunpaman maaari naming gamitin ang dalawang iba pang mga pag-andar bilang isang alternatibong pag-andar sa pagpapaandar NGAYON, ang dalawang pag-andar na ito ay mga function ng VBA DATE & VBA TIME.

Ibabalik ng Petsa ng VBA ang kasalukuyang petsa at ibabalik ng Oras ang kasalukuyang oras, kaya't ginagawang pagpapaandar ang NGAYON. Nasa ibaba ang isang hanay ng code na magpapasok ng kasalukuyang petsa at oras sa cell A1.

Code:

 Sub Time_Example2 () Saklaw ("A1"). Halaga = Petsa at "" & Oras ng Pagtatapos ng Sub 

Ipapasok ng code na ito ang kasalukuyang petsa at oras sa cell A1.

Maaari din kaming maglapat ng isang format sa mga halagang ito gamit ang pagpapaandar ng FORMAT. Ang code sa ibaba ay mai-format ang petsa at oras.

Code:

 Sub Time_Example2 () Saklaw ("A1"). Halaga = Petsa at "" & Saklaw ng Oras ("A1"). NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub 

Ngayon ang resulta ng code na ito ay ang mga sumusunod.

Subaybayan ang iyong Workbook Buksan ang Mga Rekord gamit ang Time Function sa VBA

Kadalasan mga oras na kailangan nating malaman ang dalas ng oras ng pagbubukas ng workbook. Mayroong isang sitwasyon kung saan madalas naming buksan ang workbook at gumawa kami ng ilang mga pagbabago. Sa pamamagitan ng pagsubaybay sa oras ng pagbubukas ng workbook at petsa maaari naming subaybayan ang oras ng pagbubukas ng workbook.

Lumikha ng isang bagong sheet at palitan ang pangalan nito bilang "Track Sheet".

Hakbang 1: Mag-double click sa Ang workbook na ito mula sa VBE Editor.

Hakbang 2: Piliin ang workbook mula sa listahan ng drop-down na object.

Hakbang 3: Sa sandaling napili mo ang pagpipiliang ito maaari kang makakita ng bagong macro na awtomatikong nilikha ng kanyang sarili sa pangalan "Workbook_Open ()".

Hakbang 4: Sa loob ng macro na ito, kakailanganin naming magsulat ng isang code upang subaybayan ang petsa at oras ng pagbubukas ng workbook.

Nakasulat na ako ng code at sa ibaba ay ang code para sa iyo.

Code:

 Pribadong Sub Workbook_Open () Dim LR Bilang Long LR = Sheets ("Track Sheet"). Mga Cell (Rows.Count, 1). End (xlUp) .Row + 1 Sheets ("Track Sheet"). Mga Cell (LR, 1) .Value = Petsa at "" & Oras () Mga Sheet ("Track Sheet"). Mga Cell (LR, 1) .NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub 

Itatala nito ang iyong oras ng pagbubukas ng workbook tulad ng sa ibaba.