Come convertire la valuta in testo di parole in Excel?
Per i non madrelingua che usano l'inglese come seconda lingua, a volte è difficile cambiare direttamente il numero di valuta in parole inglesi quando il numero è troppo lungo. In questo articolo imparerai come convertire facilmente valuta in testo di parole in Excel.
Converti valuta in parole con codice VBA
Converti valuta in parole con Kutools per Excel
Converti valuta in parole con codice VBA
Con il codice VBA sottostante, puoi convertire il numero di valuta in parole inglesi.
1. Stampa altro + F11 per aprire il Microsoft Visual Basic, Applications Edition la finestra di dialogo.
2. Nel Microsoft Visual Basic, Applications Edition finestra di dialogo, fare clic inserire > Modulo. Quindi copia e incolla il codice seguente nella finestra del codice.
Codice VBA: converti il numero di valuta in parole inglesi
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 Function
3. Stampa altro + Q contemporaneamente i tasti per chiudere il file Microsoft Visual Basic, Applications Edition la finestra di dialogo.
4. Selezionare una cella vuota (B1) adiacente alla cella che si desidera convertire in parole, immettere la formula = NumberstoWords (A1)e quindi premere il entrare chiave.
Note:: A1 è la cella che contiene il numero di valuta. Puoi cambiarlo quando ti serve.
5. Selezionare la cella B1, trascinare la maniglia di riempimento verso il basso per ottenere tutte le parole inglesi dei numeri di valuta.
Converti valuta in parole con Kutools per Excel
Questo lungo codice VBA sembra complicato. Qui ti presenterò una pratica utilità per risolvere facilmente questo problema. Con il Numeri in parole utilità di Kutools for Excel, convertire la valuta in parole non sarà più un problema. Si prega di fare quanto segue.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. Seleziona le celle con i numeri di valuta che desideri convertire.
2. Clic Kutools > Contenuti > Numeri in parole. Vedi screenshot:
3. Nel Numeri in parole di valuta finestra di dialogo, selezionare Inglese opzione e fare clic su OK or APPLICA pulsante.
Ora i numeri di valuta selezionati vengono convertiti immediatamente in parole inglesi.
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!