VBA formato funkcija

Ši pamoka parodys, kaip naudoti funkciją Formatas.

Formato funkcija

Formatuokite skaičius naudodami iš anksto nustatytus formatus

Formato funkcija gali konvertuoti skaičių į eilutę, suformatuotą iš anksto nustatytais pavadintais skaitmeniniais formatais. Šie iš anksto nustatyti formatai yra valiuta, fiksuota, standartinė, procentinė, mokslinė, taip/ne, tiesa/klaidinga ir įjungta/išjungta.

12345678910111213141516171819202122232425262728293031

Antrasis formatasPavyzdys_1 ()„MsgBox“ formatas (1234567.8) „Rezultatas: 1234567.8„Formatas tiesiog palieka skaičių tokį, koks yra„MsgBox Format“ (1234567.8, „Valiuta“) rezultatas: 1 234 567,80 USD„Valiuta naudoja sistemos valiutos nustatymus„MsgBox Format“ (1234567.8, „Fiksuotas“) rezultatas: 1234567.80„Fiksuota: bent vienas skaitmuo prieš kablelį ir“naudoja sistemos nustatymus dešimtainei daliai„MsgBox“ formato (1234567.8, „Standartinis“) rezultatas: 1 234 567,80„Standartas: tūkstančiai separatorių ir standartinė sistema„MsgBox“ formato (1234567.8, „Procentas“) rezultatas: 123456780.00%„Procentas, padauginamas iš 100 naudojant % ir standartinę sistemą.„MsgBox“ formato (1234567.8, „Mokslinis“) rezultatas: 1.23E+06'Mokslinis KOMENTARAS„MsgBox“ formatas (1234567.8, „Taip/ne“) „Rezultatas: Taip„Ne, jei skaičius lygus nuliui„MsgBox Format“ (1234567.8, „Tiesa/melas“) rezultatas: tiesa„Netiesa, jei skaičius lygus nuliui„MsgBox Format“ (1234567.8, „Įjungta/išjungta“) rezultatas: Įjungta'Išjungta, jei skaičius lygus nuliuiPabaiga Sub

Formatuokite numerius naudotojo nustatytais formatais

Formato funkcija gali konvertuoti skaičių į eilutę, suformatuotą vartotojo nustatytą skaičių formatą. 0 yra skaitmenų vietos rezervavimo ženklas, rodantis skaitmenį arba nulį. # yra skaitmenų vietos rezervavimo ženklas, rodantis skaitmenį arba nieko. Taškas (.) Yra dešimtainis vietos ženklas, % yra procentinis vietos ženklas, o kablelis (,) yra tūkstančių skyriklis. Tekstą galima pridėti tokiu formatu, naudojant dvigubas kabutes („“), ir vieną simbolį, jei jis naudojamas po pasvirojo brūkšnio (\).

1234567891011

Antrasis formatasPavyzdys_2 ()„MsgBox“ formatas (7.8, „000.00“) 'Rezultatas: 007.80„MsgBox“ formatas (12347.8356, "000.00") 'Rezultatas: 12347.84„MsgBox“ formatas (7.8, "###. ##") 'Rezultatas: 7.8„MsgBox“ formatas (12347.8356, "###. ##") 'Rezultatas: 12347.84„MsgBox“ formatas (7.8, „\ $. 00“) „Rezultatas: 7,80 USD„MsgBox“ formatas (1237.835, „ABA0.00“) „Rezultatas: ABA1237.84„MsgBox“ formatas (12347.8356, "000.00%") 'Rezultatas: 1234783.56%„MsgBox“ formatas (12347.8356, " %000.00") 'Rezultatas: %12347.84Pabaiga Sub

Formatuokite skaičius, priklausomai nuo reikšmių

Formato funkcija gali turėti skirtingus skyrius, naudojant skirtingas teigiamų skaičių, neigiamų skaičių, nulio ir Null formatavimo taisykles. Šios dalys yra atskirtos kabliataškiu.

1234567

Antrasis formatasPavyzdys_3 ()„MsgBox“ formatas (7.8, "000.00; (000.00); \ z \ e \ r \ o; nieko") 'Rezultatas: 007.80„MsgBox“ formatas (-7,8, "000,00; (000,00); \ z \ e \ r \ o; nieko") 'Rezultatas: (007,80)„MsgBox“ formatas (0, "000.00; (000.00); \ z \ e \ r \ o; nieko") 'Rezultatas: nulis„MsgBox“ formatas (Null, "000.00; (000.00); \ z \ e \ r \ o; nothing") 'Rezultatas: niekoPabaiga Sub

Formatuokite datas iš anksto nustatytais formatais

Formatavimo funkcija gali formatuoti datas įvairiais iš anksto nustatytais formatais. Šie formatai yra ilgi, vidutiniai ir trumpi, taip pat ilgi, vidutiniai ir trumpi.

1234567891011121314

Antrasis formatasPavyzdys_4 ()Dim DateEx kaip dataDateEx = 2020-04-18 18:35:56 #„MsgBox“ formatas (DateEx, „Bendra data“) „Rezultatas: 2020-04-18 19:35:56 PM„MsgBox“ formato (DateEx, „Ilga data“) rezultatas: 2022 m. Balandžio 18 d., Šeštadienis„MsgBox“ formatas (DateEx, „Vidutinė data“) „Rezultatas: balandžio 18 d.„MsgBox“ formato (DateEx, „Trumpas pasimatymas“) rezultatas: 2020-04-18„MsgBox“ formato (DateEx, „Ilgas laikas“) rezultatas: 19:35:56 PM„MsgBox“ formato (DateEx, „Vidutinis laikas“) rezultatas: 07:35 PM„MsgBox“ formato (DateEx, „Trumpas laikas“) rezultatas: 19:35Pabaiga Sub

Formatuokite datas naudotojo nustatytais formatais

Formato funkcija gali formatuoti datas naudotojo nustatytais formatais. Tokius simbolius kaip d, m, y, w, q galima naudoti norint sukurti pasirinktinius datos formatus.

123456789101112131415161718192021222324

Antrasis formatasPavyzdys_5 ()Dim DateEx kaip dataDateEx = 2020-04-18 18:35:56 #„MsgBox“ formatas (DateEx, „m/d/yy“) „Rezultatas: 2020-04-18„MsgBox“ formatas (DateEx, "mm-dd-yy") 'Rezultatas: 2020-04-18„MsgBox“ formatas (DateEx, "mmm-dd-yy") 'Rezultatas: 2020 m. Balandžio 18 d.„MsgBox“ formatas (DateEx, "mmmm-dd-yy") 'Rezultatas: 2020 m. Balandžio 18 d.„MsgBox“ formatas (DateEx, "mm-ddd-yy") 'Rezultatas: 2020-04-04„MsgBox“ formatas (DateEx, "mm-dddd-yy") 'Rezultatas: 2020 m.„MsgBox“ formatas (DateEx, „y“)Rezultatas: 109“dienų skaičius 1-366 metais„MsgBox“ formatas (DateEx, „ww“)„Rezultatas: 16“1-52 metų savaičių skaičius„MsgBox“ formatas (DateEx, „q“)'Rezultatas: 21-4 metų ketvirtįPabaiga Sub

Tokie simboliai kaip h, n, s ir am, pm deriniai gali būti naudojami kuriant pasirinktus laiko formatus.

123456789101112

Antrasis formatasPavyzdys_6 ()Dim DateEx kaip dataDateEx = 2020-04-18 18:06:05 #„MsgBox“ formatas (DateEx, „h: n: s“) „Rezultatas: 19: 6: 5„MsgBox“ formatas (DateEx, „hh: nn: ss“) 'Rezultatas: 19:06:05„MsgBox“ formatas (DateEx, „hh: nn: ss am/pm“) 'Rezultatas: 07:06:05 pm„MsgBox“ formatas (DateEx, „hh: nn: ss AM/PM“) „Rezultatas: 07:06:05 PM„MsgBox“ formatas (DateEx, „hh: nn: ss a/p“) 'Rezultatas: 07:06:05 p„MsgBox“ formatas (DateEx, „hh: nn: ss A/P“) 'Rezultatas: 07:06:05 PPabaiga Sub

Formatas geresniam skaitymui

Formatavimo funkcija gali formatuoti eilutes ar skaičius, kad būtų lengviau skaityti. @ yra simbolių vietos rezervavimo ženklas, naudojamas simboliui ar tarpui rodyti. & yra simbolių vietos rezervavimo ženklas, naudojamas simboliui arba nieko rodyti. ! galima naudoti simbolių vietos rezervavimo ženklus iš kairės į dešinę ir mažąsias arba didžiąsias raides. Gali būti naudingas formuojant telefono numerius ar kitus didelius skaičius nekeičiant pradinės vertės.

12345678910111213141516171819202122

Antrasis formatasPavyzdys_7 ()„Dim StrEx“ kaip eilutėStrEx = "ABCdef"„MsgBox“ formatas („StrEx“, „-@@@-@@-@@“) 'Rezultatas:-AB-Cd-ef„MsgBox“ formato („StrEx“, „-&&&-&&-&&“) rezultatas: -AB-Cd-ef'Prasideda iš dešinės į kairę.„MsgBox“ formatas („StrEx“, „-@@@-@@-@@-@@“) 'Rezultatas:--AB-Cd-ef„MsgBox“ formato („StrEx“, „-&&&-&&-&&-&&“) rezultatas: --AB-Cd-ef'Prasideda iš dešinės į kairę. Kai trūksta simbolių @ prideda tarpų ir & nieko neprideda„MsgBox“ formatas („StrEx“,-!-@@@-@@-@@-@@ “)„ Rezultatas: -ABC-de-f-„MsgBox“ formatas („StrEx“, „!-&&&-&&-&&-&&“) „Rezultatas: -ABC-de-f„Prasideda iš kairės į dešinę, nes!„MsgBox Format“ („StrEx“, „>“) rezultatas: ABCDEF„MsgBox“ formatas („StrEx“, „<“) 'Rezultatas: abcdef„MsgBox“ formatas (1234567890, "@@@-@@@-@@@@") 'Rezultatas: 123-456-7890„MsgBox“ formatas (1234567890, "@@@@-@@@-@@@") 'Rezultatas: 1234-567-890Pabaiga Sub

Formatuokite šablonus darbalapio langeliuose

Formato funkciją galima naudoti VBA kode ir darbalapių langeliuose. Pasirinkite langelį arba langelių diapazoną ir sekite meniu įrašą Format Cells> Custom. Yra daug vartotojo apibrėžtų formatų, taip pat vartotojas gali sukurti savo pasirinktinius formatus.

Formatuokite modelius naudodami teksto formulę

Formato funkcija gali tiesiogiai pakeisti VBA kodo vertės formatą. Taip pat galime naudoti „Excel“ teksto formulę, kad gautume tą patį rezultatą naudodami „WorksheetFunction.Text“.

1234567891011

Antrasis formatasExample_8 ()„MsgBox“ formatas (7.8, „000.00“)„Rezultatas: 007.80„MsgBox WorksheetFunction.Text“ (7.8, „000.00“)„Rezultatas: 007.80„MsgBox“ formatas (7.8, „###. ##“)„Rezultatas: 7.8„MsgBox WorksheetFunction.Text“ (7.8, „###. ##“)„Rezultatas: 7.8Pabaiga Sub