Excel VBA-tidsfunksjon
VBA-tidsfunksjon returnerer gjeldende tid, også det viktige å merke seg er at denne funksjonen ikke har noen argumenter i seg, en annen viktig faktor å huske er at denne funksjonen returnerer gjeldende systemtid. 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 er ikke noe behov for parentes for å legge inn bare TID 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.
Trinn 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. Vi får den nåværende tiden.
Så da jeg kjørte denne koden, var klokka 11.51.54.
Alternativ for 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 klokkeslett. Vi kan imidlertid bruke to andre funksjoner som en alternativ funksjon til NOW-funksjonen; disse to funksjonene er VBA DATE & VBA TIME-funksjoner.
VBA Date vil returnere gjeldende dato & Time vil returnere gjeldende tid, så dette gjør NOW-funksjonen. Nedenfor er et sett med kode som vil sette inn gjeldende dato og tid i celle A1.
Kode:
Sub Time_Example2 () Range ("A1"). Verdi = Date & "" & Sub End Time
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 å vite 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.
Opprett et nytt ark og gi det nytt navn til "Track Sheet."
Trinn 1: Dobbeltklikk på Denne arbeidsboken fra VBE Editor.
Trinn 2: Velg arbeidsboken fra rullegardinlisten til objektet.
Trinn 3: Så snart du velger dette alternativet, kan du se en ny makro automatisk opprettet av seg selv i navnet "Workbook_Open ()."
Trinn 4: Inne i denne makroen, må vi skrive en kode for å spore arbeidsbokens åpningsdato og -tid.
Jeg har allerede skrevet kode, og nedenfor er koden for deg.
Kode:
Private Sub Workbook_Open () Dim LR Like 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
Dette registrerer arbeidsbokens åpningstider som nedenfor.
