Hoe valutanummers snel om te zetten in woorden in Excel?
Stel dat je een reeks valutanummers hebt die nodig zijn om in Excel naar woorden te converteren, en heb je snelle trucs om het snel op te lossen? Nu vertelt deze tutorial u enkele eenvoudige manieren om meerdere valutanummers tegelijk naar Engelse woorden in Excel te converteren.
Spel valutanummers uit in woorden met lange VBA
Spel valutanummers uit in woorden met de handige Numbers to Words-functie
Spel valutanummers uit in woorden met lange VBA
In Excel kunt u getallen niet snel naar Engelse woorden converteren, behalve VBA.
1. druk op Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassing venster.
2. klikken Invoegen > Module en plak onder VBA naar het nieuwe Module venster.
VBA: converteer valutanummers naar Engelse woorden.
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. Sla vervolgens deze code op en sluit het venster om terug te gaan naar het werkblad. Selecteer een lege cel en typ deze formule = SpellNumberToEnglish (A2) (A2 zijn de valutanummers), en druk op Enter -toets en sleep vervolgens de vulgreep naar beneden om deze formule toe te passen op de cellen die u nodig hebt. Zie screenshots:
Spel valutanummers om in woorden met de handige functie voor het spellen van nummers
Als u gewoonlijk getallen naar woorden moet converteren, is de bovenstaande methode niet de goede en gemakkelijke manier voor u. U kunt echter de Getallen naar woorden functie om snel valutanummers om te zetten in Engelse woorden of Chinese woorden, als je die hebt Kutools for Excel.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. Selecteer de valutanummers en klik op Kutools > Content > Getallen naar woorden. Zie screenshot:
2. In de Getallen naar valutawoorden dialoogvenster, vink aan Engels or Chinese optie zoals je nodig hebt. Zie screenshot:
3. klikken Ok or Solliciteer. Vervolgens zijn de door u geselecteerde valutanummers in woorden omgezet.
Valutanummers naar Engelse woorden
Valutanummers voor Chinese woorden
Opmerking: u kunt de valutanummers naar een ander werkblad kopiëren en plakken voordat u getallen op woorden toepast
Zet valutanummer om in woorden
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!