Časová funkcia programu Excel VBA
Funkcia VBA Time vracia aktuálny čas. Je tiež potrebné poznamenať, že táto funkcia v sebe nemá vôbec žiadne argumenty. Ďalším dôležitým faktorom, ktorý si treba pamätať, je, že táto funkcia vracia aktuálny systémový čas. Pomocou tejto funkcie môžeme skutočne zistiť skutočný čas potrebný na dokončenie procesu v rade kódov.
TIME je druh volatilnej funkcie, nemá k nej žiadnu syntax.
Podobnú funkciu máme aj v programe Excel - funkciu NOW (), ktorá do tabuľky vloží ako aktuálne časy, tak aj aktuálny dátum.
TIME ()
Potrebujeme iba zadať funkciu, v skutočnosti nie je potrebné vložiť zátvorky, aby ste vložili iba ČAS, aby ste vložili aktuálny čas. Výsledok daný funkciou TIME je v reťazci.
Ako používať funkciu TIME vo VBA?
Ukážem vám príklad jednoduchej funkcie TIME v programe Excel. Podľa nasledujúcich pokynov vytvorte kód na použitie funkcie TIME.
Túto šablónu časových funkcií VBA si môžete stiahnuť tu - Šablóna časových funkcií VBAKrok 1: Vytvorte makro.
Kód:
Sub Time_Example1 () End Sub
Krok 2: Deklarujte premennú ako reťazec.
Kód:
Sub Time_Example1 () Dim CurrentTime ako String End Sub
Krok 3: Priraďte tejto premennej hodnotu pomocou funkcie TIME.
Kód:
Sub Time_Example1 () Dim CurrentTime ako reťazec CurrentTime = Čas na konci Sub
Krok 4: Teraz zobrazte výsledok v okne správy.
Kód:
Sub Time_Example1 () Dim CurrentTime ako reťazec CurrentTime = čas MsgBox CurrentTime End Sub
Spustite tento kód pomocou klávesu F5 alebo manuálne dostaneme aktuálny čas.
Takže keď spustím tento kód, čas bol 11.51.54 AM.
Alternatíva funkcie Now ()
Kombinácia dátumu a času ako alternatíva k funkcii TERAZ
Ako som povedal na začiatku článku, TERAZ môžete vložiť aktuálny dátum a čas. Môžeme však použiť dve ďalšie funkcie ako alternatívu k funkcii HNED, tieto dve funkcie sú VBA DATE a VBA TIME.
Dátum VBA vráti aktuálny dátum & Čas vráti aktuálny čas, takže je to funkcia NOW. Ďalej je uvedená sada kódov, ktorá vloží aktuálny dátum a čas do bunky A1.
Kód:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time End Sub
Tento kód vloží aktuálny dátum a čas do bunky A1.
Na tieto hodnoty môžeme tiež použiť formát pomocou funkcie FORMAT. Nasledujúci kód bude formátovať dátum a čas.
Kód:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time Range ("A1"). NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub
Výsledok tohto kódu je teraz nasledovný.
Sledujte svoje otvorené zošity pomocou časovej funkcie vo VBA
Často musíme poznať čas a frekvenciu otvárania nášho zošita. Nastala situácia, že zošit otvárame pomerne často a robíme nejaké zmeny. Sledovaním času a dátumu otvorenia zošita môžeme sledovať čas otvorenia zošita.
Vytvorte nový hárok a premenujte ho ako „Sledovať hárok“.
Krok 1: Dvakrát kliknite na tento zošit z editora VBE.
Step 2: Select the workbook from the object drop-down list.
Step 3: As soon as you select this option you can see new macro automatically created by itself in the name “Workbook_Open()”.
Step 4: Inside this macro, we will need to write a code to track the workbook opening date & time.
I have already written code and below is the code for you.
Code:
Private Sub Workbook_Open() Dim LR As Long LR = Sheets("Track Sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Track Sheet").Cells(LR, 1).Value = Date & " " & Time() Sheets("Track Sheet").Cells(LR, 1).NumberFormat = "dd-mmm-yyyy hh:mm:ss AM/PM" End Sub
This will record your workbook opening times like the below one.