Nehmen wir ein Beispiel, um zu verstehen, wie und wo wir die Zelle in Währung formatieren können.
Wir haben die Mengendaten des Produkts im Bereich A1:B9, wobei Spalte A den Produktnamen und Spalte B die Menge davon enthält. Wir möchten den Betragsbereich als Währung formatieren, damit für den Benutzer leicht zu verstehen ist, dass eine Zahl eine Währung ist.
Um das Makro zu schreiben, folgen Sie den unten angegebenen Schritten:
- Öffnen Sie die VBA-Seite und drücken Sie die Taste Alt+F11.
- Fügen Sie ein Modul ein.
- Schreiben Sie den unten genannten Code:
UnterformatWährung()
Dim Sh As Arbeitsblatt
Set Sh = ThisWorkbook.Sheets(1)
Sh.Range("B2:B9").NumberFormat = "$#,##0.00"
End Sub
Code-Erklärung:-
Zuerst haben wir den Betreff für den Code angegeben, dann haben wir alle Variablen definiert, danach haben wir den Bereich definiert, in den wir das Währungsformat einfügen wollen.
Um das Makro auszuführen, drücken Sie die Taste F5, und das Bereichsformat wird in das Währungsformat geändert.
@ www.excelforum einer der Benutzer hat die ähnliche Frage gestellt:-
Währungsformat, geschrieben in US-Lauf in Shanghai
Ich habe eine Zugriffsdatenbank, die Excel erstellt / auffüllt und dann den Bericht formatiert. Ich habe eine Währung in USD, also formatiere ich sie so, als ob ich in den USA laufe, ich erhalte "100.000 US-Dollar", aber wenn diese Anwendung in Shanghai ausgeführt wird, erhalten sie und natürlich sind die tatsächlichen Werte die gleichen, wenn laufen in den USA von Shanghai.
Wie bekomme ich USD angezeigt, wenn ich von Shanghai aus laufe?
Um die Lösung zu überprüfen, klicken Sie bitte hier
http://www.excelforum.com/excel-programming-vba-macros/1075253-currency-format-written-in-us-run-in-shanghai.html
Herunterladen - Währung in VBA formatieren - xlsm