Apskaitos numerio formatas per VBA formatavimą

Paimkime pavyzdį, kad suprastume, kaip ir kur galime formatuoti langelį apskaitai.

Turime produkto kiekio duomenų diapazone A1: B9, kuriame A stulpelyje yra produkto pavadinimas, o B stulpelyje - jo kiekis. Mes norime formuoti sumų diapazoną kaip apskaitą. Formatas kairėje įterpia dolerio ženklą ir prie skaičiaus prideda dvi dešimtaines dalis. Šis formatas skirtas rodyti pinigus.

Norėdami parašyti makrokomandą, atlikite toliau nurodytus veiksmus:-

Atidarykite VBA puslapį paspausdami klavišą Alt+F11.
Įdėkite modulį.
Parašykite žemiau nurodytą kodą:

Antrasis formatas Apskaita ()

Dim Sh kaip darbalapis

Nustatykite Sh = ThisWorkbook.Sheets (1)

Sh.Range ("B2: B9"). NumberFormat = "_ ($*#, ## 0.00 _); _ ($*(#, ## 0.00); _ ($*" "_" "?? _ ); _ (@_) "

Pabaiga Sub

Kodo paaiškinimas:-

Pirmiausia nurodėme kodo temą, tada apibrėžėme visus kintamuosius, po to apibrėžėme diapazoną, į kurį norime įtraukti apskaitos formatą.

Kai paleisite makrokomandą paspausdami klavišą F5, „Microsoft Excel“ gausite norimą rezultatą.

@ www.excelforum vienas iš vartotojų paklausė apie panašų klausimą:-

$ Sign prieš vertę

Turiu šį kodą, bet negaliu suprasti, kaip galiu uždėti dolerio ženklą priešais. Žemiau pateiktas kodas nedaro $ ženklo prieš šią vertę 2220.45-. Norėtų, kad jis būtų rodomas kaip 2220,45 USD

Norėdami patikrinti sprendimą, spustelėkite čia.

http://www.excelforum.com/excel-programming-vba-macros/1085312-sign-in-front-of-value.html