Jak převést měnu na text slov v aplikaci Excel?
Pro rodilé mluvčí, kteří používají angličtinu jako svůj druhý jazyk, je někdy těžké přímo změnit číslo měny na anglická slova, pokud je číslo příliš dlouhé. V tomto článku se naučíte, jak snadno převést měnu na text slov v aplikaci Excel.
Převádějte měnu na slova pomocí kódu VBA
Převádějte měnu na slova pomocí programu Kutools pro Excel
Převádějte měnu na slova pomocí kódu VBA
Pomocí níže uvedeného kódu VBA můžete převést číslo měny na anglická slova.
1. lis Další + F11 k otevření Microsoft Visual Basic pro aplikace dialogové okno.
2. V Microsoft Visual Basic pro aplikace , klepněte na tlačítko OK Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód do okna kódu.
Kód VBA: Převést číslo měny na anglická slova
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. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace dialogové okno.
4. Vyberte prázdnou buňku (B1) sousedící s buňkou, kterou chcete převést na slova, zadejte vzorec = NumberstoWords (A1), a poté stiskněte tlačítko vstoupit klíč.
Poznámka: A1 je buňka obsahující číslo měny. Můžete to změnit podle potřeby.
5. Vyberte buňku B1 a přetažením rukojeti výplně dolů zobrazte všechna anglická slova čísel měn.
Převádějte měnu na slova pomocí programu Kutools pro Excel
Tento dlouhý kód VBA se zdá komplikovaný. Zde vám představím užitečný nástroj pro snadné vyřešení tohoto problému. S Čísla na slova užitečnost Kutools pro Excel, převod měny na slova už nebude problém. Postupujte prosím následovně.
Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.
1. Vyberte buňky s čísly měn, které chcete převést.
2. cvaknutí Kutools > Obsah > Čísla na slova. Viz snímek obrazovky:
3. V Čísla na slova měny dialogové okno vyberte angličtina a klepněte na tlačítko OK or Podat žádost .
Nyní jsou čísla vybraných měn okamžitě převedena na anglická slova.
Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!