Excel VBA-tidsfunktion
VBA-tidsfunktionen returnerar aktuell tid, det viktiga att notera är också att den här funktionen inte har några argument i sig, en annan viktig faktor att komma ihåg är att denna funktion returnerar den aktuella systemtiden. Med den här funktionen kan vi faktiskt hitta den faktiska tid som raden av koder tar för att slutföra processen.
TID är en slags flyktig funktion. Den har ingen syntax till den.
Vi har också en liknande funktion i excel - NOW () -funktionen, som infogar både aktuella tider och det aktuella datumet i kalkylbladet.
TID ()
Vi behöver bara gå in i funktionen. I själva verket är inget behov av parentes för att bara stänga TID tillräckligt för att infoga aktuell tid. Resultatet som ges av TIME-funktionen finns i strängen.
Hur använder jag TIME-funktionen i VBA?
Låt mig visa dig exemplet på en enkel TID i excel-funktion. Följ stegen nedan för att skapa kod för att använda TIME-funktionen.
Steg 1: Skapa ett makro.
Koda:
Sub Time_Example1 () Slut Sub
Steg 2: Förklara en variabel som sträng.
Koda:
Sub Time_Example1 () Dim CurrentTime Som Sträng End Sub
Steg 3: Tilldela ett värde till denna variabel genom TIME-funktionen.
Koda:
Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time End Sub
Steg 4: Visa nu resultatet i meddelandefältet.
Koda:
Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time MsgBox CurrentTime End Sub
Kör den här koden med F5-tangenten eller manuellt. Vi får aktuell tid.
Så när jag kör den här koden var tiden 11.51.54.
Alternativ för funktionen Now ()
Kombination av datum och tid som ett alternativ till NU-funktionen
Som jag sa i början av artikeln kan NU infoga nuvarande datum och tid. Vi kan dock använda två andra funktioner som en alternativ funktion till NU-funktionen; dessa två funktioner är VBA DATE & VBA TIME-funktioner.
VBA Date returnerar det aktuella datumet & Time returnerar den aktuella tiden, så detta gör funktionen NU. Nedan finns en uppsättning kod som infogar aktuellt datum och tid i cell A1.
Koda:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time End Sub
Den här koden infogar aktuellt datum och tid i cell A1.
Vi kan också använda ett format på dessa värden med FORMAT-funktionen. Koden nedan formaterar datum och tid.
Koda:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time Range ("A1"). NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub
Nu är resultatet av den här koden som följer.
Spåra din arbetsbok Öppna poster med tidsfunktion i VBA
Ofta behöver vi veta vår frekvens för arbetsbokens öppningstid. Det finns en situation där vi öppnar arbetsboken ganska ofta och vi gör några ändringar. Genom att spåra arbetsbokens öppettid och datum kan vi spåra arbetsbokens öppettid.
Skapa ett nytt ark och byt namn på det till "Track Sheet."
Steg 1: Dubbelklicka på den här arbetsboken från VBE Editor.
Steg 2: Välj arbetsboken i listrutan för objekt.
Steg 3: Så snart du väljer det här alternativet kan du se ett nytt makro automatiskt skapat av sig själv i namnet "Workbook_Open ()."
Steg 4: Inuti detta makro måste vi skriva en kod för att spåra arbetsbokens öppningsdatum och tid.
Jag har redan skrivit kod och nedan är koden för dig.
Koda:
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
Detta registrerar dina arbetsbokens öppettider som nedan.
