Μετάβαση στο κύριο περιεχόμενο

Πώς να μετατρέψετε γρήγορα αριθμούς νομισμάτων σε λέξεις στο Excel;

Ας υποθέσουμε ότι έχετε μια σειρά αριθμών νομισμάτων που απαιτούνται για τη μετατροπή σε κείμενο λέξεων στο Excel και έχετε κάποια γρήγορα κόλπα για να το λύσετε γρήγορα; Τώρα αυτό το σεμινάριο σας λέει μερικούς εύκολα τρόπους μετατροπής πολλαπλών αριθμών νομισμάτων σε αγγλικές λέξεις ταυτόχρονα στο Excel.

αριθμός νομίσματος doc στη λέξη 1

Ορίστε αριθμούς νομισμάτων σε λέξεις με μεγάλο VBA

Ορίστε αριθμούς νομισμάτων σε λέξεις με εύχρηστη συνάρτηση Numbers to Words καλή ιδέα3


Ορίστε αριθμούς νομισμάτων σε λέξεις με μεγάλο VBA

Στο Excel, δεν μπορείτε να μετατρέψετε γρήγορα αριθμούς σε αγγλικές λέξεις εκτός από το VBA.

1. Τύπος Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογή παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης και επικολλήστε κάτω από το VBA στο νέο Μονάδα μέτρησης παράθυρο.

VBA: Μετατροπή αριθμών νομισμάτων σε αγγλικές λέξεις.

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Dollars
    Case ""
        Dollars = "No Dollars"
    Case "One"
        Dollars = "One Dollar"
    Case Else
        Dollars = Dollars & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: Result = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select
End Function

3. Στη συνέχεια, αποθηκεύστε αυτόν τον κωδικό και κλείστε το παράθυρο για να επιστρέψετε στο φύλλο εργασίας και επιλέξτε ένα κενό κελί πληκτρολογήστε αυτόν τον τύπο = SpellNumberToEnglish (Α2) (Το A2 είναι οι αριθμοί νομισμάτων) και πατήστε εισάγετε και μετά σύρετε τη λαβή πλήρωσης προς τα κάτω για να εφαρμόσετε αυτόν τον τύπο στα κελιά που χρειάζεστε. Δείτε στιγμιότυπα οθόνης:

αριθμός νομίσματος doc στη λέξη 2
βέλος εγγράφου προς τα κάτω
αριθμός νομίσματος doc στη λέξη 1

Ορίστε αριθμούς νομισμάτων σε λέξεις με την εύχρηστη λειτουργία Spell Out Numbers

Εάν πρέπει συνήθως να μετατρέψετε αριθμούς σε λέξεις, η παραπάνω μέθοδος δεν πρέπει να είναι ο καλός και βολικός τρόπος για εσάς. Ωστόσο, μπορείτε να χρησιμοποιήσετε το Αριθμοί σε λέξεις λειτουργία για γρήγορη μετατροπή αριθμών νομισμάτων σε αγγλικές λέξεις ή κινεζικές λέξεις εάν έχετε Kutools για Excel.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Επιλέξτε τους αριθμούς νομισμάτων και κάντε κλικ Kutools > Περιεχόμενο > Αριθμοί σε λέξεις. Δείτε το στιγμιότυπο οθόνης:

αριθμός νομίσματος doc στη λέξη 7

2. Στο Αριθμοί σε λέξεις νομίσματος διάλογος, ελέγξτε Αγγλικά or κινέζικο επιλογή όπως χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:

αριθμός εγγράφου στους κόσμους 2

3. κλικ Ok or Εφαρμογή. Στη συνέχεια, οι αριθμοί νομισμάτων που επιλέξατε έχουν μετατραπεί σε λέξεις.

Αριθμοί νομισμάτων σε αγγλικές λέξεις

αριθμός εγγράφου στους κόσμους 3

Αριθμοί νομισμάτων σε κινεζικές λέξεις

αριθμός εγγράφου στους κόσμους 4

Σημείωση: Μπορείτε να αντιγράψετε και να επικολλήσετε τους αριθμούς νομισμάτων σε ένα άλλο φύλλο εργασίας προτού εφαρμόσετε τους αριθμούς στις λέξεις

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Review my article Million billion trillion conversion a basic number learning article that helps one to learn number system and number conversion as well.
This comment was minimized by the moderator on the site
Hai, Kim Morse, pemberi pinjaman wang persendirian. (Code360)
Kami menyediakan pinjaman dengan kadar faedah 2% setahun dan dalam jumlah $ 10,000.00 hingga $ 500,000.00 dan € 10,000.00 hingga € 500,000.00 sebagai tawaran pinjaman. Projek 100% yang dibiayai dengan pinjaman bercagar dan tidak bercagar boleh didapati. Kami dijamin menyediakan perkhidmatan kewangan kepada pelanggan kami di seluruh dunia. Dengan pakej kredit yang fleksibel, pinjaman boleh diproses dan dana dipindahkan kepada peminjam dalam 2 hari. Kami bekerja dalam terma yang jelas dan mudah difahami dan menawarkan pelbagai jenis pinjaman kepada pelanggan, syarikat, individu swasta dan pelabur hartanah yang berminat. Cukup lengkapkan borang di bawah dan kembali kepada kami melalui E-mel.
Butiran pengguna:
Nama-nama:
Tarikh lahir:
Jantina.
Status perkahwinan saya:
Alamat:
Bandar:
dan Negeri / Wilayah:
Kod pos /
Negara:
Telefon:
Email saya:
dengan tujuan pinjaman:
Jumlah pinjaman:
Tempoh pinjaman:
Pendapatan bulanan anda:
Hubungi pegawai pinjaman Via Email: () Dan untuk Maklumat, Hubungi alamat Web kami: Code360optionsloancompany.com

Salam sejahtera,
Puan Kim
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations