Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment convertir rapidement les numéros de devise en mots dans Excel?

Supposons que vous ayez une gamme de nombres de devises nécessaires pour convertir en texte de mots dans Excel, et avez-vous des astuces pour le résoudre rapidement? Maintenant ce tutoriel vous indique quelques moyens faciles de convertir plusieurs nombres de devises en mots anglais à la fois dans Excel.

numéro de devise doc au mot 1

Épeler les nombres de devise aux mots avec VBA long

Épeler les numéros de devise en mots avec la fonction Spell Out Numbers pratique bonne idée3


Épeler les nombres de devise aux mots avec VBA long


Dans Excel, vous ne pouvez pas convertir rapidement les nombres en mots anglais sauf VBA.

1. presse Alt + F11 clés pour ouvrir le Microsoft Visual Basic pour l'application fenêtre.

2. Cliquez insérer > Module et coller ci-dessous VBA à la nouvelle Module fenêtre.

VBA: Convertir les numéros de devise en mots anglais.

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. Puis enregistrez ce code et fermez la fenêtre pour revenir à la feuille de calcul, et sélectionnez une cellule vide tapez cette formule = SpellNumberToEnglish (A2) (A2 correspond aux numéros de devise) et appuyez sur Entrer touche, puis faites glisser la poignée de remplissage vers le bas pour appliquer cette formule aux cellules dont vous avez besoin. Voir les captures d'écran:

numéro de devise doc au mot 2
doc vers le bas
numéro de devise doc au mot 1

Épeler les numéros de devise en mots avec la fonction Spell Out Numbers pratique

Si vous devez convertir des nombres en mots, la méthode ci-dessus ne doit pas être la bonne et la plus pratique pour vous. Cependant, vous pouvez utiliser le Spell Out Numbers fonction pour convertir rapidement les numéros de monnaie en mots anglais ou en chinois si vous avez Kutools for Excel.

Kutools for Excel, avec plus de 120 fonctions Excel pratiques, améliorez votre efficacité de travail et économisez votre temps de travail.

après installation gratuite Kutools pour Excel, s'il vous plaît faire comme ci-dessous:

1. Sélectionnez les numéros de devise et cliquez sur Kutools > Contenu > Spell Out Numbers. Voir la capture d'écran:

numéro de devise doc au mot 7

2. dans le Numéro d'orthographe dialogue, vérifier English or Chinois option comme vous avez besoin. Voir la capture d'écran:

numéro de devise doc au mot 4

3. Cliquez Ok or Appliquer. Ensuite, les numéros de devise que vous avez sélectionnés ont été convertis en mots.

Numéros de devise pour les mots anglais

numéro de devise doc au mot 5

Numéros de devise en chinois

numéro de devise doc au mot 6

Remarque: vous pouvez copier et coller les numéros de devise dans une autre feuille de calcul avant d'appliquer les numéros Spell Out.


bonne idéeConversion des devises

Kutools'Conversion des devises fonction vous donner le dernier taux de change, et vous aider à convertir entre des devises multilingues.
Cliquez Kutools > Contenu > Devise Conversion pour convertir rapidement entre deux devises. Voir la capture d'écran:
Conversion de devises doc 1


Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kim Morse · 2 months ago
    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: (Code360optionsloancompany@gmail.com) Dan untuk Maklumat, Hubungi alamat Web kami: Code360optionsloancompany.com

    Salam sejahtera,
    Puan Kim