Časová funkce VBA | Příklady použití časové funkce aplikace Excel VBA

Časová funkce aplikace Excel VBA

Funkce VBA Time vrací aktuální čas, je také důležité si uvědomit, že tato funkce v sobě nemá žádné argumenty, dalším důležitým faktorem, který si musíte pamatovat, je, že tato funkce vrací aktuální systémový čas. Pomocí této funkce můžeme skutečně zjistit skutečný čas, který řada kódů potřebuje na dokončení procesu.

TIME je druh volatilní funkce, nemá k ní žádnou syntaxi.

Podobnou funkci máme také v aplikaci Excel - funkci NOW (), která do tabulky vloží jak aktuální časy, tak i aktuální datum

ČAS ()

Musíme pouze zadat funkci, ve skutečnosti není třeba vkládat závorky, abyste vložili pouze TIME, stačí vložit aktuální čas. Výsledek daný funkcí TIME je v řetězci.

Jak používat funkci TIME ve VBA?

Ukážu vám příklad jednoduché funkce TIME v aplikaci Excel. Podle následujících pokynů vytvořte kód pro použití funkce TIME.

Tuto šablonu časových funkcí VBA si můžete stáhnout zde - Šablona časových funkcí VBA

Krok 1: Vytvořte makro.

Kód:

 Sub Time_Example1 () End Sub 

Krok 2: Deklarujte proměnnou jako řetězec.

Kód:

 Sub Time_Example1 () Dim CurrentTime jako řetězec End Sub 

Krok 3: Přiřaďte této proměnné hodnotu pomocí funkce TIME.

Kód:

 Sub Time_Example1 () Dim CurrentTime jako řetězec CurrentTime = Time End Sub 

Krok 4: Nyní zobrazte výsledek v okně se zprávou.

Kód:

 Sub Time_Example1 () Dim CurrentTime jako řetězec CurrentTime = čas MsgBox CurrentTime End Sub 

Spusťte tento kód pomocí klávesy F5 nebo ručně získáme aktuální čas.

Takže když spustím tento kód, čas byl 11.51.54 AM.

Alternativa funkce Now ()

Kombinace data a času jako alternativa k funkci NYNÍ

Jak jsem řekl na začátku článku, NYNÍ můžete vložit aktuální datum a čas. Můžeme však použít dvě další funkce jako alternativní funkci k funkci NYNÍ, tyto dvě funkce jsou funkce VBA DATE a VBA TIME.

Datum VBA vrátí aktuální datum a čas vrátí aktuální čas, takže je nyní funkce NOW. Níže je sada kódu, který vloží aktuální datum a čas do buňky A1.

Kód:

 Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time End Sub 

Tento kód vloží aktuální datum a čas do buňky A1.

Můžeme také použít formát na tyto hodnoty pomocí funkce FORMAT. Níže uvedený kód zformátuje datum 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ýsledek tohoto kódu je nyní následující.

Sledujte svůj otevřený záznam sešitu pomocí funkce času ve VBA

Často musíme znát čas a frekvenci otevírání našeho sešitu. Existuje situace, kdy sešit otevíráme poměrně často a provádíme určité změny. Sledováním otevírací doby a data sešitu můžeme sledovat otevírací dobu sešitu.

Vytvořte nový list a přejmenujte jej na „Sledovat list“.

Krok 1: Poklepejte na tento sešit z editoru VBE.

Krok 2: Vyberte sešit z rozevíracího seznamu objektu.

Krok 3: Jakmile vyberete tuto možnost, uvidíte nové automaticky vytvořené makro v názvu „Workbook_Open ()“.

Krok 4: Uvnitř tohoto makra budeme muset napsat kód pro sledování data a času otevření sešitu.

Již jsem napsal kód a níže je kód pro vás.

Kód:

 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 

Tímto způsobem zaznamenáte otevírací dobu sešitu jako níže.


$config[zx-auto] not found$config[zx-overlay] not found