VBA laika funkcija - Excel VBA laika funkcijas izmantošanas piemēri

Satura rādītājs

Excel VBA laika funkcija

VBA laika funkcija atgriež pašreizējo laiku, turklāt svarīgi atzīmēt, ka šai funkcijai nav nekādu argumentu, vēl viens svarīgs faktors, kas jāatceras, ir tas, ka šī funkcija atgriež pašreizējo sistēmas laiku. Izmantojot šo funkciju, mēs faktiski varam atrast faktisko laiku, kas vajadzīgs kodu rindai, lai pabeigtu procesu.

LAIKS ir sava veida nepastāvīga funkcija. Tam nav nekādas sintakses.

Mums ir līdzīga funkcija arī excel - NOW (), kas izklājlapā ievieto gan pašreizējos laikus, gan pašreizējo datumu.

LAIKS ()

Mums vienkārši jāievada funkcija. Patiesībā, lai ievietotu pašreizējo laiku, nav nepieciešams iekavās iekļaut tikai TIME. Funkcijas TIME dotais rezultāts ir virknē.

Kā izmantot TIME funkciju VBA?

Ļaujiet man parādīt vienkārša TIME piemēru Excel funkcijā. Veiciet tālāk norādītās darbības, lai izveidotu kodu, lai izmantotu funkciju TIME.

1. darbība: izveidojiet makro.

Kods:

Apakšlaiks_piemērs1 () Beigu apakšnodaļa

2. darbība: paziņojiet mainīgo kā virkni.

Kods:

Sub Time_Example1 () Dim CurrentTime kā virknes beigu apakšsadaļa

3. darbība: piešķiriet šim mainīgajam vērtību, izmantojot funkciju TIME.

Kods:

Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time End Sub

4. solis: Tagad ziņojuma lodziņā parādiet rezultātu.

Kods:

Sub Time_Example1 () Dim CurrentTime kā virkne CurrentTime = Time MsgBox CurrentTime End Sub

Palaidiet šo kodu, izmantojot F5 taustiņu vai manuāli. Mēs saņemsim pašreizējo laiku.

Tātad, kad es palaidu šo kodu, laiks bija 11.51.54.

Funkcijas Tagad () alternatīva

Datuma un laika kombinācija kā alternatīva funkcijai TAGAD

Kā es teicu raksta sākumā, NOW var ievietot pašreizējo datumu un laiku. Tomēr mēs varam izmantot divas citas funkcijas kā alternatīvu funkciju NOW funkcijai; šīs divas funkcijas ir VBA DATE un VBA TIME funkcijas.

VBA datums atgriezīs pašreizējo datumu un laiks atgriezīs pašreizējo laiku, tāpēc tas padara funkciju TAGAD. Zemāk ir kodu kopa, kas šūnā A1 ievietos pašreizējo datumu un laiku.

Kods:

Apakšlaika_piemērs2 () diapazons ("A1"). Vērtība = Datums & "" & Laika beigu apakšgrupa

Šis kods ievietos pašreizējo datumu un laiku šūnā A1.

Šīm vērtībām mēs varam piemērot arī formātu, izmantojot funkciju FORMAT. Zemāk esošais kods formatēs datumu un laiku.

Kods:

Apakšlaika_piemērs2 () diapazons ("A1"). Vērtība = datums & "" un laika diapazons ("A1"). Numura formāts = "dd-mmm-gggg hh: mm: ss AM / PM" beigu apakšdaļa

Tagad šī koda rezultāts ir šāds.

Sekojiet darbgrāmatas atvērtajiem ierakstiem, izmantojot laika funkciju VBA

Bieži vien mums jāzina mūsu darbgrāmatas atvēršanas laika biežums. Pastāv situācija, ka darbgrāmatu atveram diezgan bieži, un mēs veicam dažas izmaiņas. Sekojot darbgrāmatas atvēršanas laikam un datumam, mēs varam izsekot darbgrāmatas atvēršanas laikam.

Izveidojiet jaunu lapu un pārdēvējiet to par “Track Sheet”.

1. darbība: veiciet dubultklikšķi uz šīs darbgrāmatas no VBE redaktora.

2. darbība: nolaižamajā objektu sarakstā atlasiet darbgrāmatu.

3. darbība: tiklīdz esat atlasījis šo opciju, nosaukumā “Workbook_Open ()” var redzēt jaunu, automātiski izveidotu makro .

4. solis: šī makro iekšpusē mums būs jāuzraksta kods, lai izsekotu darbgrāmatas atvēršanas datumu un laiku.

Es jau esmu uzrakstījis kodu, un zemāk ir kods jums.

Kods:

Privātā apakšgrāmata grāmata_Open () Dim LR As Long LR = Sheets ("Track Sheet"). Šūnas (Rows.Count, 1) .End (xlUp) .Rinda + 1 Sheets ("Track Sheet"). Šūnas (LR, 1) .Value = Date & "" & Time () Sheets ("Track Sheet"). Šūnas (LR, 1) .NumberFormat = "dd-mmm-gggg hh: mm: ss AM / PM" beigu apakšdaļa

Tas reģistrēs jūsu darbgrāmatas atvēršanas laikus, piemēram, zemāk redzamo.

Interesanti raksti...