Hvordan konverteres valuta til ordtekst i Excel?
For ikke-indfødte, der bruger engelsk som andet sprog, er det undertiden svært at ændre valutatallet direkte til engelske ord, når antallet er for langt. I denne artikel lærer du, hvordan du nemt konverterer valuta til ordtekst i Excel.
Konverter valuta til ord med VBA-kode
Konverter valuta til ord med Kutools til Excel
Konverter valuta til ord med VBA-kode
Med nedenstående VBA-kode kan du konvertere valutanummer til engelske ord.
1. Trykke andre + F11 at åbne Microsoft Visual Basic til applikationer dialog boks.
2. i Microsoft Visual Basic til applikationer dialogboksen, klik indsatte > Modul. Kopier og indsæt derefter nedenstående kode i kodevinduet.
VBA-kode: Konverter valutanummer til engelske ord
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. Trykke andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer dialog boks.
4. Vælg en tom celle (B1), der støder op til den celle, du vil konvertere til ord, indtast formlen = Tal til ord (A1), og tryk derefter på Indtast nøgle.
Bemærk: A1 er cellen, der indeholder valutanummeret. Du kan ændre det efter behov.
5. Vælg celle B1, træk Fyldhåndtaget ned for at få alle engelske ord med valutanumrene.
Konverter valuta til ord med Kutools til Excel
Denne lange VBA-kode virker kompliceret. Her vil jeg introducere dig til et praktisk værktøj til let at løse dette problem. Med Tal til ord nytte af Kutools til Excel, at konvertere valuta til ord vil ikke længere være et problem. Gør som følger.
Før påføring Kutools til Excel, Bedes download og installer det først.
1. Vælg cellerne med de valutanumre, du vil konvertere.
2. klik Kutools > Indhold > Tal til ord. Se skærmbillede:
3. i Tal til valutaord dialogboksen, vælg Engelsk valgmulighed, og klik på knappen OK or Indløs .
Nu konverteres de valgte valuta-numre med det samme til engelske ord.
Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!