Jak szybko przekonwertować liczby walut na słowa w programie Excel?
Przypuśćmy, że masz szereg liczb walutowych potrzebnych do konwersji na tekst słów w programie Excel i czy masz jakieś szybkie sztuczki, aby szybko go rozwiązać? Teraz ten samouczek przedstawia kilka łatwych sposobów na jednoczesną konwersję wielu liczb walutowych na angielskie słowa w programie Excel.
Przeliteruj liczby walut na słowa z długim językiem VBA
Przeliteruj liczby walut na słowa za pomocą przydatnej funkcji Numbers to Words
Przeliteruj liczby walut na słowa z długim językiem VBA
W programie Excel nie można szybko konwertować liczb na angielskie słowa z wyjątkiem VBA.
1. naciśnij Alt + F11 klawisze, aby otworzyć Microsoft Visual Basic dla aplikacji okno.
2. kliknij wstawka > Moduł i wklej poniżej VBA do nowego Moduł okno.
VBA: Konwertuj liczby walut na angielskie słowa.
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. Następnie zapisz ten kod i zamknij okno, aby powrócić do arkusza, i wybierz pustą komórkę, wpisz tę formułę = SpellNumberToEnglish (A2) (A2 to cyfry waluty) i naciśnij Wchodzę , a następnie przeciągnij uchwyt wypełniania w dół, aby zastosować tę formułę do potrzebnych komórek. Zobacz zrzuty ekranu:
Przeliteruj liczby walut na słowa dzięki przydatnej funkcji przeliterowania liczb
Jeśli zazwyczaj musisz zamieniać liczby na słowa, powyższa metoda nie może być dla Ciebie dobrym i wygodnym sposobem. Możesz jednak użyć Liczby na słowa funkcja szybkiego przeliczania walut na angielskie lub chińskie słowa, jeśli masz Kutools dla programu Excel.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. Wybierz numery walut i kliknij Kutools > Treść > Liczby na słowa. Zobacz zrzut ekranu:
2. w Liczby na słowa walutowe okno dialogowe, sprawdź Angielski or chiński opcja, jak potrzebujesz. Zobacz zrzut ekranu:
3. kliknij Ok or Aplikuj. Następnie wybrane przez Ciebie liczby walut zostały przekonwertowane na słowa.
Liczby walut na angielskie słowa
Liczby walut na chińskie słowa
Uwaga: możesz skopiować i wkleić numery walut do innego arkusza przed zastosowaniem liczb do słów
Konwertuj numer waluty na słowa
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!