seychellesartprojects.org

„Excel VBA“ laiko funkcija

VBA laiko funkcija grąžina dabartinį laiką, taip pat svarbu atkreipti dėmesį į tai, kad ši funkcija neturi jokių argumentų, dar vienas svarbus veiksnys, kurį reikia atsiminti, kad ši funkcija grąžina dabartinį sistemos laiką. Naudodamiesi šia funkcija, mes iš tikrųjų galime rasti faktinį kodų eilutės laiką procesui užbaigti.

LAIKAS yra tam tikra nepastovi funkcija, ji neturi jokios sintaksės.

Mes taip pat turime panašią funkciją „Excel“ - DABAR (), kuri į skaičiuoklę įterpia tiek dabartinius laikus, tiek dabartinę datą

LAIKAS ()

Mums tiesiog reikia įvesti funkciją. Tiesą sakant, norint įrašyti esamą laiką, pakanka įrašyti tik TIME. Funkcijos TIME rezultatas yra eilutėje.

Kaip naudoti LAIKO funkciją VBA?

Leiskite man parodyti paprasto TIME pavyzdį, kai naudojama „Excel“ funkcija. Atlikite toliau nurodytus veiksmus, kad sukurtumėte kodą, kad galėtumėte naudoti funkciją TIME.

Šį VBA laiko funkcijos šabloną galite atsisiųsti čia - VBA laiko funkcijos šabloną

1 veiksmas: sukurkite makrokomandą.

Kodas:

 Antrinis laikas_pavyzdys1 () Pabaigos sub 

2 žingsnis: paskelbkite kintamąjį kaip eilutę.

Kodas:

 Sub Time_Pavyzdys1 () Dim CurrentTime kaip eilutės pabaiga Sub 

3 žingsnis: priskirkite šio kintamojo vertę naudodami funkciją TIME.

Kodas:

 Sub Time_Pavyzdys1 () Dim CurrentTime As String CurrentTime = Time End Sub 

4 žingsnis: Dabar parodykite rezultatą pranešimo laukelyje.

Kodas:

 Sub Time_Pavyzdys1 () Dim CurrentTime kaip eilutė CurrentTime = Time MsgBox CurrentTime End Sub 

Paleiskite šį kodą naudodami F5 klavišą arba rankiniu būdu gausime dabartinį laiką.

Taigi, kai paleidžiau šį kodą, laikas buvo 11.51.54 val.

Funkcijos „Dabar“ () alternatyva

Datos ir laiko derinys kaip alternatyva funkcijai DABAR

Kaip sakiau straipsnio pradžioje, DABAR gali įrašyti dabartinę datą ir laiką. Tačiau mes galime naudoti dvi kitas funkcijas kaip alternatyvią funkciją DABAR. Dabar šios funkcijos yra VBA DATE ir VBA TIME funkcijos.

VBA data grąžins dabartinę datą, o laikas - dabartinį laiką, taigi tai padaro funkciją DABAR. Žemiau pateikiamas kodo rinkinys, į kurį langelyje A1 bus įterpta dabartinė data ir laikas.

Kodas:

 Antrinis laiko_pavyzdys2 () diapazonas ("A1"). Reikšmė = data ir "" & laiko pabaigos antrinis 

Šis kodas į langelį A1 įterps dabartinę datą ir laiką.

Šioms reikšmėms taip pat galime pritaikyti formatą naudodami FORMAT funkciją. Žemiau pateiktas kodas suformuos datą ir laiką.

Kodas:

 Antrinis laiko_pavyzdys2 () diapazonas ("A1"). Reikšmė = data ir "" & laiko diapazonas ("A1"). NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub 

Dabar šio kodo rezultatas yra toks.

Stebėkite savo darbaknygės atidarytus įrašus naudodami laiko funkciją VBA

Dažnai turime žinoti savo darbaknygės atidarymo laiko dažnį. Yra situacija, kai darbaknygę atidarome gana dažnai ir padarome tam tikrų pakeitimų. Stebėdami darbaknygės atidarymo laiką ir datą, galime sekti darbaknygės atidarymo laiką.

Sukurkite naują lapą ir pervadinkite jį į „Track Sheet“.

1 veiksmas: dukart spustelėkite šią darbaknygę iš VBE redaktoriaus.

2 žingsnis: Išskleidžiamajame objekto sąraše pasirinkite darbaknygę.

3 žingsnis: Kai tik pasirinksite šią parinktį, pamatysite naują, automatiškai sukurtą makrokomandą pavadinime „Workbook_Open ()“.

4 žingsnis: Šiame makrokomandoje turėsime parašyti kodą, kad galėtume stebėti darbaknygės atidarymo datą ir laiką.

Aš jau parašiau kodą ir žemiau yra jūsų kodas.

Kodas:

 Privati ​​antrinė darbaknygė_Open () Dim LR As Long LR = Sheets ("Track Sheet"). Ląstelės (Rows.Count, 1). End (xlUp). Eilutė + 1 Sheets ("Track Sheet"). Ląstelės (LR, 1) .Value = Data & "" & laikas () Skaičiuoklės ("Takelio lapas"). Ląstelės (LR, 1) .NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub 

Tai užfiksuos jūsų darbaknygės atidarymo laiką, kaip nurodyta toliau.