Să luăm un exemplu pentru a înțelege cum și unde putem formata celula în monedă.
Avem date despre cantitatea produsului în intervalul A1: B9, în care coloana A conține numele produsului și coloana B conține cantitatea acestuia. Vrem să formatăm intervalul de sumă ca monedă, astfel încât, pentru utilizator, să fie ușor de înțeles că un număr este o monedă.
Pentru a scrie macro-ul, urmați pașii de mai jos: -
- Deschideți pagina VBA și apăsați tasta Alt + F11.
- Introduceți un modul.
- Scrieți codul menționat mai jos:
Sub FormatCurrency ()
Dim Sh Ca foaie de lucru
Set Sh = ThisWorkbook.Sheets (1)
Sh.Range ("B2: B9"). NumberFormat = "$ #, ## 0.00"
Sfârșitul Sub
Cod Explicație: -
În primul rând, am dat subiectul pentru cod, apoi am definit toate variabilele după care am definit intervalul în care dorim să plasăm formatul valutar.
Pentru a rula macro-ul, apăsați tasta F5, iar formatul intervalului va fi schimbat în format valutar.
@ www.excelforum unul dintre utilizatori a pus întrebarea similară: -
Format valutar, scris în SUA, rulat în Shanghai
Am un acces db care creează / completează Excel și apoi formează raportul. Am monedă în USD, așa că o formatez ca atunci când rulez în SUA, primesc ceea ce așteaptă „100.000 USD”, dar când această aplicație este rulată în Shanghai, ei primesc și, desigur, valorile reale sunt aceleași dacă alerga în SUA din Shanghai.
Cum pot face ca acesta să arate USD când rulez din Shanghai?
Pentru a verifica soluția, faceți clic aici
http://www.excelforum.com/excel-programming-vba-macros/1075253-currency-format-written-in-us-run-in-shanghai.html
Descărcare - Formatarea monedei în VBA - xlsm