Tässä artikkelissa luomme makron, joka muotoilee ajan hh: mm.sss -muodossa.
Tämän esimerkin raakatiedot koostuvat tietyistä aika -arvoista sarakkeessa E.
Tässä artikkelissa olemme luoneet käyttäjän määrittämän toiminnon (tai mukautetun toiminnon) "HHMMSSSFormat". Tämä toiminto ottaa päivämäärätyypin syötteeksi ja palauttaa tulosteen merkkijonotyypillä muodossa hh: mm.sss.
Looginen selitys
"HHMMSSSFormat" -toiminnossa, joka muuntaa 60 sekuntia kolminumeroiseksi numeroksi, olemme jakaneet sekunnit määritetyssä aika -arvossa 60: llä, jotta saadaan murto -osa määritetyille sekunneille, ja kerrotaan se sitten tuhannella, jotta saadaan kolminumeroinen luku.
"HHMMSSSFormat" -toimintoa voidaan käyttää soittamalla joko suoraan Excel -taulukkoon tai käyttämällä toisen menettelyn (tai makron) toimintoa.
Alla oleva kuva osoittaa, kuinka olemme käyttäneet "HHMMSSSFormat" -toimintoa Excel -taulukossa ajan laskemiseksi muodossa hh: mm.sss.
Olemme myös luoneet "GettingCurrentTimeinHHMMSSSFormat" -makron, joka käyttää "HHMMSSSFormat" -toimintoa näyttääkseen nykyisen ajan hh: mm.sss -muodossa viestilaatikossa. Alla oleva kuva näyttää tuloksen, kun suoritamme tämän makron kello 3: 54: 30s.
Seuraa koodia alla
Vaihtoehto Explicit Function HHMMSSSFormat (DateTime As Date) As String '-toiminto palauttaa merkkijonon arvon' Declaring kokonaislukumuuttuja Dim SecondValue As Integer 'Sekuntien erottaminen DateTime -parametrista SecondValue = Second (DateTime)' Sekuntien arvon muuntaminen kolminumeroiseksi numeroksi SecondValue = (SecondValue / 60) * 1000 'Muuta ajan muotoilua vaaditussa muodossa. & Muoto (SecondValue, "000") End Function Sub GettingCurrentTimeinHHMMSSSFormat () 'Merkkijonomuuttujan ilmoittaminen Dim CurrentTime merkkijonoksi' Mukautetun toiminnon kutsuminen HHMMSSSFormat CurrentTime = HHMMSSSFormat (Nyt) 'Viestiruudun näyttäminen vain OK -painikkeella MsgBox CurrentTime, " "Lopeta Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse