Hvordan konvertere valutatall raskt til ord i Excel?

Når du arbeider med økonomiske data i Excel, kan det hende at du trenger å konvertere valutatall til ord, for eksempel å skrive ut sjekkebeløp. Dessverre har ikke Excel en innebygd funksjon for dette, men det er to effektive metoder for å oppnå dette. Denne artikkelen vil veilede deg gjennom begge metodene, og hjelpe deg å velge den beste tilnærmingen basert på dine behov.

Stave valutatall til ord med VBA-kode

Stave valutatall til ord med Kutools for Excel

Stave valutatall til ord med VBA-kode

I Excel kan du ikke raskt konvertere tall til engelske ord bortsett fra VBA.

1. Trykk "Alt + F11"-tastene for å åpne "Microsoft Visual Basic for Application"-vinduet.

2. Klikk "Sett inn" > "Modul" og lim inn under VBA i det nye modulvinduet.

VBA: Konverter valutatall til engelske ord

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. Lagre deretter denne koden og lukk vinduet for å gå tilbake til regnearket, og velg en tom celle type denne formelen: =SpellNumberToEnglish(A2) (A2 er valutatallene), og trykk på Enter-tasten, og dra deretter fyllhåndtaket ned for å bruke denne formelen på cellene du trenger. Se skjermbilder:

Stave ut valutatall til ord med den praktiske funksjonen Stave ut tall

For de som ikke vil bruke VBA, gir Kutools for Excel en enkel, ett-klikks måte å konvertere tall til ord. Funksjonen "Tall til ord" i Kutools for Excel støtter konvertering av tall til ord i over 40 forskjellige valutaformater, noe som gjør den til en ideell løsning for finansiell rapportering og internasjonale transaksjoner. Med bare noen få klikk kan brukere transformere numeriske verdier til fullt formatert valutatekst på flere språk, inkludert USD, EUR, GBP, JPY, CNY og mer, noe som eliminerer behovet for manuelle konverteringer og reduserer feil.

1. Velg valutanumrene og klikk "Kutools" > "Innhold" > "Tall til ord". Se skjermbilde:

2. I dialogboksen "Tall til valutaord" velger du språket du vil bruke; her vil jeg velge alternativet "Engelsk" fra "Språk"-listeboksen, se skjermbilde:

3. Klikk "OK" eller "Bruk". Deretter har valutanumrene du valgte blitt konvertert til et bestemt valutaord.

Konvertering av valutatall til ord i Excel kan gjøres effektivt ved å bruke enten VBA eller Kutools for Excel. Ved å implementere en av disse metodene kan du automatisere finansiell rapportering og eliminere manuelle skrivefeil. Hvis du er interessert i å utforske flere Excel-tips og triks, nettstedet vårt tilbyr tusenvis av opplæringsprogrammer for å hjelpe deg med å mestre Excel.

Demo: Konverter valutanummer til ord ved å bruke Kutools for Excel