Ας πάρουμε ένα παράδειγμα για να καταλάβουμε πώς και πού μπορούμε να μορφοποιήσουμε το κελί σε νόμισμα.
Διαθέτουμε δεδομένα ποσότητας προϊόντος στην περιοχή A1: B9 στην οποία η στήλη A περιέχει όνομα προϊόντος και η στήλη Β περιέχει ποσότητα. Θέλουμε να μορφοποιήσουμε το εύρος ποσών ως νόμισμα, έτσι ώστε, για τους χρήστες, να είναι εύκολο να καταλάβουμε ότι ένας αριθμός είναι νόμισμα.
Για να γράψετε τη μακροεντολή, ακολουθήστε τα παρακάτω βήματα:-
- Ανοίξτε τη σελίδα VBA και πατήστε το πλήκτρο Alt+F11.
- Εισαγάγετε μια ενότητα.
- Γράψτε τον παρακάτω κωδικό:
Sub FormatCurrency ()
Dim Sh As φύλλο εργασίας
Ορίστε Sh = ThisWorkbook. Φύλλα (1)
Sh.Range ("B2: B9"). NumberFormat = "$#, ## 0,00"
Τέλος υπο
Επεξήγηση κώδικα:-
Αρχικά, δώσαμε το θέμα για τον κώδικα, στη συνέχεια είχαμε ορίσει όλες τις μεταβλητές, αφού είχαμε ορίσει το εύρος όπου θέλουμε να βάλουμε τη μορφή νομίσματος.
Για να εκτελέσετε τη μακροεντολή, πατήστε το πλήκτρο F5 και η μορφή εύρους θα αλλάξει σε μορφή νομίσματος.
@ www.excelforum ένας από τους χρήστες έκανε παρόμοια ερώτηση:-
Μορφή νομίσματος, γραμμένο στις ΗΠΑ, στη Σαγκάη
Έχω μια πρόσβαση db που δημιουργεί / συμπληρώνει το Excel και στη συνέχεια διαμορφώνει την αναφορά. Έχω νόμισμα που είναι σε USD, οπότε το διαμορφώνω όπως όταν τρέχω στις ΗΠΑ, παίρνω αυτό που περιμένω "$ 100.000", αλλά όταν εκτελείται αυτή η εφαρμογή στη Σαγκάη, παίρνουν και φυσικά, οι πραγματικές τιμές είναι οι ίδιες αν τρέχει στις ΗΠΑ της Σαγκάης.
Πώς μπορώ να δείξω USD όταν τρέχω από τη Σαγκάη;
Για να ελέγξετε τη λύση, κάντε κλικ εδώ
http://www.excelforum.com/excel-programming-vba-macros/1075253-currency-format-written-in-us-run-in-shanghai.html
Λήψη - Διαμόρφωση νομίσματος σε VBA - xlsm