Selles artiklis loome makro, et vormindada aeg vormingus hh: mm.sss.
Selle näite toorandmed koosnevad teatud ajaväärtustest veerus E.
Selles artiklis oleme loonud kasutaja määratud funktsiooni (või kohandatud funktsiooni) “HHMMSSSFormat”. See funktsioon võtab sisendiks kuupäeva tüübi ja tagastab väljundi stringi andmetüübis vormingus hh: mm.sss.
Loogiline seletus
Funktsioonis „HHMMSSSFormat”, et teisendada 60 sekundit kolmekohaliseks numbriks, oleme jaganud sekundid määratud aja väärtuses 60 -ga, et saada murdosa määratud sekundite jaoks, ja korrutanud selle tuhandega, et saada kolmekohaline number.
Funktsiooni „HHMMSSSFormat” saab kasutada otse Exceli lehel helistades või teise protseduuri (või makro) funktsiooni kasutades.
Alloleval pildil on näidatud, kuidas oleme kasutanud Exceli lehel funktsiooni „HHMMSSSFormat”, et tuletada aeg vormingus hh: mm.sss.
Oleme loonud ka makro „GettingCurrentTimeinHHMMSSSFormat”, mis kasutab funktsiooni „HHMMSSSFormat” praeguse aja kuvamiseks sõnumikastis hh: mm.sss. Allolev pilt näitab väljundit, kui käivitame selle makro kiirusega 3: 54: 30s.
Palun järgige koodi allpool
Valik Selgesõnaline funktsioon HHMMSSSFormat (kuupäev ja kellaaeg kuupäevana) kui string ”tagastab stringi väärtuse„ Täisarvulise muutuja deklareerimine Dim SecondValue täisarvuna ”Sekundite ekstraheerimine parameetrist DateTime SecondValue = Second (DateTime)” Sekundite väärtuse teisendamine kolmekohaliseks numbriks SecondValue = (SecondValue / 60) * 1000 'Muutke aja vormingut nõutavas vormingus & Vorming (SecondValue, "000") Lõppfunktsioon Sub GettingCurrentTimeinHHMMSSSFormat () 'Stringimuutuja deklareerimine Dim CurrentTime kui string' Kohandatud funktsiooni HHMMSSSFormat kutsumine CurrentTime = HHMMSSSFormat (kohe) 'Sõnumikasti kuvamine ainult OK nupuga MsgBox CurrentTime, " "Lõpp alam
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile