Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Jeden spôsob , ako môžete formátovať dáta s VBA , je použiť rad " m " znaky pre označenie dlhé názvy mesiacov . Napríklad , vo formáte " mmmm " prinesie len vysvetlené texte " december " , ak dátum ste formátovanie je v decembri . Ak chcete trojpísmenový mesiac , použite " mmm " , ako v " Selection.NumberFormat = " mmm dd , yyyy " " pre termíny ako " december 31 , 1966 . " Všimnite si použitie " d " charakter reprezentovať deň .
Krátke formáty
Ak chcete čísla namiesto napísané texte pre vaše dáta , používať len jeden alebo dva formátovanie znakov pre vaše mesiacov . Zadajte napríklad " Selection.NumberFormat = " mm /dd /yyyy " " pre termíny ako " 12/31/1966 . " Pre " 12 /66 " , použite formátovací reťazec " mm /yy , " alebo len" m /y . "
dáta sa deň v týždni
Ak chcete formátovať dáta s napísané deň , použiť štyri " d " znaky , ktoré indikujú deň . Zadajte napríklad " Selection.NumberFormat = " dddd , dd mmm yyyy " " pre termíny ako " sobota 31 decembri 1966 . " Skratka deň bez použitia čísel , používajú tri " D " znaky miesto štyroch , ako v " ddd , mmm dd , yyyy . "
vlastné formáty dátumu
môžete vytvoriť vlastný formát dátumu v VBA pomocou niektorého oddeľovač okrem tých obyčajných z " /" a " - " . Napríklad , môžete použiť príkaz ako " Selection.NumberFormat = " mm ~ dd ~ yy " " produkovať termíny , ako je " ; . 12 ~ 31 ~ 66 " Môžete si vybrať , tak vlastný formát len kvôli štýlu , alebo sa pripraviť dátum reťazca pre programy , ktoré vyžadujú špecifické znaky pre ich vstup
Vzorový program .
Nasledujúci ukážkový program VBA umožňuje rýchlo vyskúšať rôzne formáty dátumu . Vložte programu do programovacieho prostredia VBA , ktorý môžete zadať stlačením " Alt " a " F11 " súčasne po otvorení programu Excel . Po spustení programu stlačením tlačidla " F5 " , zadajte formát dátumu , kedy sa zobrazí výzva , ako je napríklad " dd /mm /rr . " Program sa zobrazí aktuálny dátum vo formáte , ktorý ste zadali .
sub FormatDates ( ) Dim fmt , s1fmt = InputBox ( " Zadajte formát dátumu " ) s1 = Format ( Now , fmt ) MsgBox s1End sub