Нека вземем пример, за да разберем как и къде можем да форматираме клетката във валута.
Имаме данни за количеството на продукта в диапазон A1: B9, в който колона A съдържа име на продукта, а колона B съдържа количество от него. Искаме да форматираме диапазона на сумите като валута, така че за потребителя да е лесно да разбере, че числото е валута.
За да напишете макроса, следвайте дадените по-долу стъпки:-
- Отворете VBA Page и натиснете клавиша Alt+F11.
- Поставете модул.
- Напишете кода по -долу:
Подформат: Валута ()
Dim Sh като работен лист
Задайте Sh = ThisWorkbook.Sheets (1)
Sh.Range ("B2: B9"). NumberFormat = "$#, ## 0.00"
End Sub
Код Обяснение:-
Първо, ние дадохме темата за кода, след това бяхме дефинирали всички променливи, след което бяхме определили диапазона, където искаме да поставим формата на валутата.
За да стартирате макроса, натиснете клавиша F5 и форматът на диапазона ще бъде променен във формат на валута.
@ www.excelforum един от потребителите зададе подобен въпрос:-
Валутен формат, написан на американски език в Шанхай
Имам db за достъп, който създава / попълва Excel и след това форматира отчета. Имам валута, която е в щатски долари, така че я форматирам, както когато бягам в САЩ, получавам това, което очаквам „100 000 долара“, но когато това приложение се изпълнява в Шанхай, те получават и, разбира се, действителните стойности са същите, ако бягат в САЩ от Шанхай.
Как да го накарам да покаже щатски долари при бягане от Шанхай?
За да проверите решението, моля, кликнете тук
http://www.excelforum.com/excel-programming-vba-macros/1075253-currency-format-written-in-us-run-in-shanghai.html
Изтегляне - Форматиране на валута във VBA - xlsm