Časová funkcia VBA Príklady použitia časovej funkcie programu Excel VBA

Obsah

Časová funkcia programu Excel VBA

Časová funkcia programu Excel VBA

Funkcia VBA Time vracia aktuálny čas. Je tiež potrebné poznamenať, že táto funkcia v sebe vôbec neobsahuje ž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 tomu ž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 ()

Musíme len vstúpiť do funkcie. Na vloženie aktuálneho času v skutočnosti nie je potrebné vložiť do zátvorky iba Č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.

Krok 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

Tento kód spustite 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ôže vložiť aktuálny dátum a čas. Môžeme však použiť ako alternatívu k funkcii TERAZ ďalšie dve funkcie; tieto dve funkcie sú funkcie 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.

We can also apply a format to these values using the FORMAT function. The below code will format the date & time.

Code:

Sub Time_Example2() Range("A1").Value = Date & " " & Time Range("A1").NumberFormat = "dd-mmm-yyyy hh:mm:ss AM/PM" End Sub

Now the result of this code is as follows.

Track Your Workbook Open Records using Time Function in VBA

Often times, we need to know our workbook opening time-frequency. There is a situation where we open the workbook quite often, and we make some changes. By tracking the workbook opening time & date, we can track workbook opening time.

Create a new sheet and rename it as “Track Sheet.”

Step 1: Double click on This workbook from VBE Editor.

Step 2: Select the workbook from the object drop-down list.

Krok 3: Len čo vyberiete túto možnosť, uvidíte nové automaticky vytvorené makro v názve „Workbook_Open ().“

Krok 4: V tomto makre budeme musieť napísať kód na sledovanie dátumu a času otvorenia zošita.

Už som napísal kód a nižšie je uvedený kód pre vás.

Kód:

Súkromný vedľajší pracovný zošit_otvorený () Dim LR tak dlhý LR = listy ("sledovací list"). Bunky (Rows.Count, 1). Koniec (xlUp). Riadok + 1 hárok ("sledovací list"). Bunky (LR, 1) .Value = Date & "" & Time () Sheets ("Track Sheet"). Cells (LR, 1) .NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub