Aika-arvo VBA: ssa on sisäänrakennettu toiminto, joka luokitellaan myös VBA: n päivämäärä- ja aikatoimintojen alle. Tämä funktio, kuten nimestä voi päätellä, antaa meille argumenttina annetun päivämäärän numeerisen arvon, se tarvitsee yhden argumentin, joka on päivämäärä ja palauttaa argumentin numeerisen arvon.
Mitä aika-arvo-toiminto tekee VBA: ssa?
Aika-arvo-funktio VBA Excelissä palauttaa aika-arvon osan koko päivämäärästä ja ajasta. Päivämäärä ja kellonaika tallennetaan sarjanumeroina Exceliin. Sarjanumero edustaa päivämäärää ja desimaali edustaa aikaa. TimeValue-funktion avulla voimme saada vain aikasarjanumeron, desimaaliluvun.
VBA TimeValue -funktion syntakse
VBA TimeValue -funktion syntakse seuraavasti.
Kuten sanoimme, TimeValue-funktio palauttaa annetun päivämäärän sarjanumeron osan, joka tallennetaan tekstiarvona. Aika ei ole muuta kuin todellinen aika, jonka etsimme sarjanumeron saamiseksi. Muista, että Aika-arvo voi saada sarjanumeron vain ajasta, joka on tallennettu tekstinä, ei AIKA.
Esimerkkejä TimeValue-toiminnoista Excel VBA: n kanssa
Alla on esimerkkejä VBA TimeValue -toiminnosta.
VBA TimeValue -esimerkki # 1
Katsokaa nyt yksinkertaista esimerkkiä VBA TimeValue -funktiosta.
Koodi:
Sub TIMEVALUE_Function_Example1 () 'Muunna annettu syötemerkkijono kelvolliseksi ajaksi ja näytä näytöllä' Muuttujailmoitus Dim MyTime As Date 'Määritä aika muuttujalle MyTime = TimeValue ("28-05-2019 16:50:45")' Näyttö ruudulla MsgBox "Nykyinen aika on:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Ensinnäkin olen ilmoittanut muuttujan "MyTime" päivämääräksi.
Hämärtää MyTime päivämääränä
Sitten olen määrittänyt arvon muuttujalle soveltamalla TimeValue-arvoa.
MyTime = TimeValue ("28-05-2019 16:50:45")
Sitten olen määrittänyt viestikenttään muuttujan tuloksen.
MsgBox "Toimitettu aika on:" & MyTime, vbInformation, "TIMEVALUE Function".
Jos suoritan koodin F5-näppäimellä tai manuaalisesti, saamme tuloksen seuraavasti.
VBA TimeValue -esimerkki # 2
Ilmoitan samalle koodille VBA-muuttujan kaksinkertaiseksi.
Koodi:
Sub TIMEVALUE_Function_Example1 () 'Muunna annettu syötemerkkijono kelvolliseksi ajaksi ja näytä ruudulla' Muuttujailmoitus Dim MyTime As Double 'Määritä aika muuttujaan MyTime = TimeValue ("28-05-2019 16:50:45")' Näyttö ruudulla MsgBox "Nykyinen aika on:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Jos suoritan VBA-koodin manuaalisesti tai painamalla F5-näppäintä, se näyttää sarjanumeron osan ajasta 16:50:45.
Paremman ymmärtämisen vuoksi kirjoitan ensin VBA-viestiruudun antamat numerot yhteen soluista.
Nyt käytän aikamuotoa tarkan tuloksen tarkistamiseksi.
Kun muunnat sen aikamuotoon, näet tarkan ajan.
VBA TimeValue -esimerkki # 3
Katso nyt alla olevia tietoja.
Meillä on tietoja ja aikaa yhdessä A1-A14-soluista. Toista saraketta varten meidän on purettava vain aika-arvo. Koska meillä on useampi kuin yksi solu, meidän on käytettävä silmukoita suorittamaan sama tehtäväjoukko kaikille soluille.
Meillä on tietoja 1 kpl solusta 14 th soluun, joten meidän silmukka pitäisi kestää 14 kertaa. Meidän on käytettävä FOR NEXT -silmukkaa VBA: ssa alarajan ja ylärajan mainitsemiseksi. Alla oleva koodi on jo kirjoitettu koodi aika-arvon poimimiseksi päivämäärä ja aika-yhdistelmästä.
Koodi:
Sub TimeValue_Example3 () Dim k kokonaislukuna k = 1 - 14 solua (k, 2). Value = TimeValue (solut (k, 1). Arvo) Seuraava k End Sub
Kun suoritamme koodin, saamme arvot kuten alla.
Jos haluat nähdä kellonajan, käytä siihen TIME-muotoa.
Joten TIME VALUE -toiminto toimii VBA: ssa ja Excelissä.
