Excel VBA-tidsfunksjon
VBA Tid Funksjon returnerer gjeldende tid, også det er viktig å merke seg er at denne funksjonen har ingen argumenter i det hele tatt, er en annen viktig faktor å huske på at denne funksjonen returnerer gjeldende systemtiden. Ved å bruke denne funksjonen kan vi faktisk finne den faktiske tiden det tar av kodelinjen for å fullføre prosessen.
TID er en slags flyktig funksjon, den har ingen syntaks til den.
Vi har også en lignende funksjon i excel - NOW () -funksjon som setter inn både nåværende tider og gjeldende dato i regnearket
TID ()
Vi trenger bare å gå inn i funksjonen, faktisk, ikke behov for parentes for å legge inn bare TID er nok til å sette inn gjeldende tid. Resultatet gitt av TIME-funksjonen er i strengen.
Hvordan bruke TIME-funksjon i VBA?
La meg vise deg eksemplet på en enkel TID i Excel-funksjon. Følg trinnene nedenfor for å opprette kode for å bruke TIME-funksjonen.
Du kan laste ned denne VBA-tidsfunksjonsmalen her - VBA Time Function TemplateTrinn 1: Opprett en makro.
Kode:
Sub Time_Example1 () End Sub
Trinn 2: Erklær en variabel som streng.
Kode:
Sub Time_Example1 () Dim CurrentTime Som String End Sub
Trinn 3: Tilordne en verdi til denne variabelen gjennom TIME-funksjonen.
Kode:
Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time End Sub
Trinn 4: Vis nå resultatet i meldingsboksen.
Kode:
Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time MsgBox CurrentTime End Sub
Kjør denne koden ved hjelp av F5-tasten eller manuelt får vi den aktuelle tiden.
Så når jeg kjører, var tiden 11.51.54.
Alternativ av Now () -funksjon
Kombinasjon av dato og tid som et alternativ til NÅ-funksjonen
Som jeg fortalte i begynnelsen av artikkelen kan NÅ sette inn nåværende dato og tid. Vi kan imidlertid bruke to andre funksjoner som en alternativ funksjon til NÅ-funksjonen, disse to funksjonene er VBA DATE & VBA TIME-funksjoner.
VBA Date returnerer gjeldende dato & Time returnerer gjeldende tid, så dette gjør NOW-funksjonen. Nedenfor er et sett med kode som vil sette inn gjeldende dato og klokkeslett i celle A1.
Kode:
Sub Time_Example2 () Range ("A1"). Verdi = Date & "" & Time End Sub
Denne koden vil sette inn gjeldende dato og tid i celle A1.
Vi kan også bruke et format på disse verdiene ved hjelp av FORMAT-funksjonen. Koden nedenfor vil formatere dato og klokkeslett.
Kode:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time Range ("A1"). NumberFormat = "dd-mmm-åååå hh: mm: ss AM / PM" End Sub
Nå er resultatet av denne koden som følger.
Spor arbeidsboken din Åpne poster ved hjelp av tidsfunksjon i VBA
Ofte trenger vi å kjenne arbeidsfrekvensens arbeidsbok. Det er en situasjon der vi åpner arbeidsboken ganske ofte, og vi gjør noen endringer. Ved å spore arbeidsbokens åpningstid og dato kan vi spore arbeidsbokens åpningstid.
Lag et nytt ark og gi det nytt navn til "Track Sheet".
Trinn 1: Dobbeltklikk på Denne arbeidsboken fra VBE Editor.
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.