Excel VBA-tidsfunktion
VBA-tidsfunktion returnerer den aktuelle tid, også det vigtige at bemærke er, at denne funktion overhovedet ikke har nogen argumenter, en anden vigtig faktor at huske er, at denne funktion returnerer den aktuelle systemtid. Ved hjælp af denne funktion kan vi faktisk finde den faktiske tid, det tager af linjen med koder at afslutte processen.
TID er en slags flygtig funktion. Det har ingen syntaks til det.
Vi har også en lignende funktion i excel - NOW () -funktion, som indsætter både aktuelle tider såvel som den aktuelle dato i regnearket.
TID ()
Vi skal bare gå ind i funktionen. Faktisk er intet behov for parentes for at indelukke bare TID nok til at indsætte det aktuelle tidspunkt. Resultatet givet af TIME-funktionen er i strengen.
Hvordan bruges TIME-funktion i VBA?
Lad mig vise dig eksemplet på en simpel TID i Excel-funktion. Følg nedenstående trin for at oprette kode for at bruge TID-funktionen.
Trin 1: Opret en makro.
Kode:
Sub Time_Example1 () Afslut Sub
Trin 2: Erklær en variabel som streng.
Kode:
Sub Time_Example1 () Dim CurrentTime Som String End Sub
Trin 3: Tildel en værdi til denne variabel gennem TIME-funktionen.
Kode:
Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time End Sub
Trin 4: Vis nu resultatet i meddelelsesboksen.
Kode:
Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time MsgBox CurrentTime End Sub
Kør denne kode ved hjælp af F5-tasten eller manuelt. Vi får den aktuelle tid.
Så da jeg kørte denne kode, var klokken 11.51.54.
Alternativ til Now () -funktion
Kombination af dato og tid som et alternativ til NU-funktion
Som jeg fortalte i begyndelsen af artiklen, kan NU indsætte den aktuelle dato og tid. Vi kan dog bruge to andre funktioner som en alternativ funktion til funktionen NU; disse to funktioner er VBA DATE & VBA TIME-funktioner.
VBA Date returnerer den aktuelle dato & Time returnerer den aktuelle tid, så dette gør funktionen NU. Nedenfor er et sæt kode, der indsætter den aktuelle dato og tid i celle A1.
Kode:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time End Sub
Denne kode indsætter den aktuelle dato og tid i celle A1.
Vi kan også anvende et format på disse værdier ved hjælp af FORMAT-funktionen. Nedenstående kode vil formatere dato og tid.
Kode:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time Range ("A1"). NumberFormat = "dd-mmm-åååå tt: mm: ss AM / PM" Afslut Sub
Nu er resultatet af denne kode som følger.
Spor din projektmappe åbne poster ved hjælp af tidsfunktion i VBA
Ofte har vi brug for at kende vores projektmappes åbnings-tidsfrekvens. Der er en situation, hvor vi åbner projektmappen ganske ofte, og vi foretager nogle ændringer. Ved at spore projektmappens åbningstid og -dato kan vi spore projektmappens åbningstid.
Opret et nyt ark, og omdøb det til "Track Sheet."
Trin 1: Dobbeltklik på denne projektmappe fra VBE Editor.
Trin 2: Vælg projektmappen på rullelisten til objektet.
Trin 3: Så snart du vælger denne mulighed, kan du se en ny makro automatisk oprettet af sig selv i navnet "Workbook_Open ()."
Trin 4: Inde i denne makro skal vi skrive en kode for at spore projektmappens åbningsdato og -tid.
Jeg har allerede skrevet kode, og nedenfor er koden til dig.
Kode:
Privat underarbejdsbog_Open () Dim LR så lang LR = Sheets ("Track Sheet"). Celler (Rows.Count, 1). End (xlUp). Row + 1 Sheets ("Track Sheet"). Celler (LR, 1) .Value = Date & "" & Time () Sheets ("Track Sheet"). Celler (LR, 1) .NumberFormat = "dd-mmm-åååå tt: mm: ss AM / PM" End Sub
Dette registrerer din projektmappes åbningstider som den nedenfor.
