Hvordan konverteres hurtigt valutatal til ord i Excel?
Antag at du har en række valutanumre, der er nødvendige for at konvertere til ordtekst i Excel, og har du hurtige tricks til hurtigt at løse det? Nu fortæller denne tutorial dig nogle nemme måder at konvertere flere valutanumre til engelske ord på én gang i Excel.
Stave valutanumre til ord med lang VBA
Stave valutnumre til ord med praktisk Numbers to Words-funktion
Stave valutanumre til ord med lang VBA
I Excel kan du ikke hurtigt konvertere tal til engelske ord undtagen VBA.
1. Trykke Alt + F11 nøgler til at åbne Microsoft Visual Basic til anvendelse vindue.
2. klik indsatte > Moduler og indsæt under VBA til den nye Moduler vindue.
VBA: Konverter valutatal 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. Gem derefter denne kode, og luk vinduet for at gå tilbage til regnearket, og vælg en tom celletype denne formel = SpellNumberToEnglish (A2) (A2 er valutatallene), og tryk på Indtast træk derefter fyldhåndtaget ned for at anvende denne formel på de celler, du har brug for. Se skærmbilleder:
Stave valutanumre til ord med den praktiske stavenumre-funktion
Hvis du normalt har brug for at konvertere tal til ord, må ovenstående metode ikke være den gode og bekvemme måde for dig. Du kan dog bruge Tal til ord funktion til hurtigt at konvertere valutatal til engelske ord eller kinesiske ord, hvis du har Kutools til Excel.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
1. Vælg valutanumrene, og klik på Kutools > Indhold > Tal til ord. Se skærmbillede:
2. i Tal til valutaord dialog, tjek Engelsk or kinesisk mulighed, som du har brug for. Se skærmbillede:
3. klik Ok or Indløs. Derefter er de valgte valutnumre konverteret til ord.
Valutatal til engelske ord
Valutatal til kinesiske ord
Bemærk: du kan kopiere og indsætte valutanumrene i et andet regneark, før du anvender tal på ord
Konverter valuta nummer til ord
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!