VBA Now (vaiheittainen opas) | Kuinka käyttää nyt -toimintoa Excel VBA: ssa?

Excel VBA Nyt -toiminto

NYT on päivämäärä- ja aikatoiminto molemmissa VBA-laitteissa, joita käytetään järjestelmän nykyisen päivämäärän ja kellonajan saamiseen, aivan kuten laskentataulukko-funktio, joka ei sisällä argumentteja, VBA now -funktiossa ei myöskään oteta mitään argumentteja, palautuslähtö tälle toiminnolle on päivämäärä.

VBA NOW -toiminto on samanlainen kuin Excel-laskentataulukon toiminto. Kuten PÄIVÄYS-funktiolla VBA: ssa, "NYT" ei myöskään sisällä parametreja syötettäväksi, meidän on vain siirrettävä funktio suljetuilla sulkeilla tai sulkeita ei tarvita. Käyttämällä VBA: n PÄIVÄYS-funktiota voimme luoda nykyisen päivämäärän, joka näyttää työskentelemämme järjestelmän. Olen kuitenkin nähnyt tilanteita, joissa tarvitsemme myös nykyisen ajan sekä päivämäärän. Excelissä voimme tehdä monia muunnelmia, samoin voimme tuottaa nykyisen päivämäärän ja kellonajan yksinkertaisella NOW in excel -toiminnolla.

VBA NYT -kaava on yksinkertainen.

NYT ()

Esimerkki NYT-toiminnosta VBA Excelissä

Katso yksinkertaista esimerkkiä NOW-toiminnosta VBA: ssa. Noudata alla olevia vaiheita kirjoittaaksesi VBA-koodin, ja sinulla on melko vähän tietoa NYT ja koodin kirjoittamisesta.

Vaihe 1: Aloita alimenettely antamalla makron nimi.

Koodi:

 Sub Now_Example1 () End Sub

Vaihe 2: Ilmoita muuttuja päivämääräksi. Syy, miksi meidän on ilmoitettava muuttuja päivämääräksi, koska lopputuloksemme on päivämäärä ja aika -muodossa.

Koodi:

 Sub Now_Example1 () Dim k As Date End Sub 

Vaihe 3: Määritä arvo muuttujalle “k” soveltamalla VBA NOW -toimintoa.

Koodi:

 Sub Now_Example1 () Dim k As Date k = Now End Sub 

Vaihe 4: Näytä nyt funktion arvo NYT, jonka olemme määrittäneet muuttujalle “k” VBA: n viestiruudussa.

Koodi:

 Sub Now_Example1 () Dim k As Date k = Now MsgBox k End Sub 

Ok, olemme valmiit.

Suorita koodi F5-näppäimellä tai manuaalisesti ja katso tulos.

Tulos näkyy 15.4.2019 klo 5.03.35.

Tietokoneeni päivämäärämuoto on “kk-pp-vvvv”.

Voimme myös muuttaa päivämäärämuotoa FORMAT-toiminnolla. Alla on koodi päivämäärän muodon muuttamiseksi.

Koodi:

 Sub Now_Example1 () Dim k As Date k = Now MsgBox Format (k, "DD-MMM-YYYY HH: MM: SS") End Sub 

Suorita koodi ja katso ero.

Nyt meillä on oikea päivämäärä- ja aikamuoto. Tämän muodon avulla kuka tahansa voi ymmärtää päivämäärän ja kellonajan muodon.

Haihtuva luonteeltaan:

Kuten näet ensimmäisessä esimerkissä, saimme aikatulokseksi 5:03:35 ja toisessa esimerkissä tulokseksi 17:19:02. Joten tämä osoittaa, että NOW-toiminto on haihtuva toiminto, joka muuttuu joka sekunti.

Vaihtoehto ajastintoiminnolle VBA: ssa

Vaihtoehtona VBA TIMER -toiminnolle voimme käyttää “VBA NOW” -toimintoa laskeaksesi kokonaisajan, jonka makro vie tehtävän suorittamiseen.

Käytä alla olevaa koodia laskeaksesi koodisi viemän ajan.

C0de:

 Sub TotalDuration () Dim k As Date k = Now '' 'Syötä koodi tähän' '' MsgBox "Makron tehtävän suorittamiseen kuluva aika on yhteensä:" & _ Format ((Now - k), "HH: MM : SS ") Lopeta ala 

Kopioi ja liitä koodi vihreällä alueella.

Suorita koodi painamalla F5-näppäintä tai painamalla ajonäppäintä. Heti kun se on suoritettu loppuun, saamme makron kuluttaman ajan tehtäväviestin suorittamiseen viestiruudussa. Alla on esimerkki samasta.

Näin voimme käyttää NYT-toimintoa monin tavoin VBA: ssa.

Voit ladata tämän Excel VBA Now -toimintomallin täältä - VBA Now -toimintomalli


$config[zx-auto] not found$config[zx-overlay] not found