Comment convertir une devise en texte de mots dans Excel?
Pour les locuteurs non natifs qui utilisent l'anglais comme deuxième langue, il est parfois difficile de changer directement le numéro de devise en mots anglais lorsque le nombre est trop long. Dans cet article, vous apprendrez à convertir facilement une devise en texte de mots dans Excel.
Convertir la devise en mots avec le code VBA
Convertir des devises en mots avec Kutools for Excel
Convertir la devise en mots avec le code VBA
Avec le code VBA ci-dessous, vous pouvez convertir le numéro de devise en mots anglais.
1. presse autre + F11 ouvrir le Microsoft Visual Basic pour applications boite de dialogue.
2. dans le Microsoft Visual Basic pour applications boîte de dialogue, cliquez sur insérer > Module. Ensuite, copiez et collez le code ci-dessous dans la fenêtre de code.
Code VBA: Convertissez le numéro de devise en mots anglais
Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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 Function3. presse autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications boite de dialogue.
4. Sélectionnez une cellule vide (B1) qui est adjacente à la cellule que vous souhaitez convertir en mots, entrez la formule = NumberstoWords (A1), puis appuyez sur Entrer clé.
Notes: A1 est la cellule contenant le numéro de devise. Vous pouvez le modifier selon vos besoins.
5. Sélectionnez la cellule B1, faites glisser la poignée de remplissage vers le bas pour obtenir tous les mots anglais des nombres de devises.
Convertir des devises en mots avec Kutools for Excel
Ce long code VBA semble compliqué. Ici, je vais vous présenter un utilitaire pratique pour résoudre facilement ce problème. Avec le Nombres en mots utilité de Kutools for Excel, la conversion de devises en mots ne sera plus un problème. Veuillez faire comme suit.
Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.
1. Sélectionnez les cellules contenant les numéros de devise que vous souhaitez convertir.
2. Cliquez Kutools > Contenu > Nombres en mots. Voir la capture d'écran:
3. dans le Nombres en mots monétaires boîte de dialogue, sélectionnez Anglais option, et cliquez sur le OK or Appliquer .
Désormais, les numéros de devise sélectionnés sont immédiatement convertis en mots anglais.
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
