Jak przekonwertować walutę na tekst słów w programie Excel?
W przypadku obcokrajowców, którzy używają angielskiego jako drugiego języka, czasami trudno jest bezpośrednio zmienić numer waluty na angielskie słowa, gdy liczba jest zbyt długa. W tym artykule dowiesz się, jak łatwo przekonwertować walutę na tekst słów w programie Excel.
Konwertuj walutę na słowa za pomocą kodu VBA
Konwertuj walutę na słowa za pomocą Kutools for Excel
Konwertuj walutę na słowa za pomocą kodu VBA
Za pomocą poniższego kodu VBA możesz przekonwertować numer waluty na angielskie słowa.
1. naciśnij inny + F11 otworzyć Microsoft Visual Basic for Applications okno dialogowe.
2. w Microsoft Visual Basic for Applications okno dialogowe, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod do okna kodu.
Kod VBA: Konwertuj numer waluty na angielskie słowa
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. naciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno dialogowe.
4. Wybierz pustą komórkę (B1), która sąsiaduje z komórką, którą chcesz przekonwertować na słowa, wprowadź formułę = Liczba do słów (A1), a następnie naciśnij Wchodzę klawisz.
Note: A1 to komórka zawierająca numer waluty. Możesz to zmienić według potrzeb.
5. Wybierz komórkę B1, przeciągnij uchwyt wypełnienia w dół, aby uzyskać wszystkie angielskie słowa liczb walutowych.
Konwertuj walutę na słowa za pomocą Kutools for Excel
Ten długi kod VBA wydaje się skomplikowany. Tutaj przedstawię ci przydatne narzędzie, aby łatwo rozwiązać ten problem. Dzięki Liczby na słowa użyteczność Kutools dla programu Excel, przeliczanie waluty na słowa nie będzie już problemem. Wykonaj następujące czynności.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
1. Wybierz komórki z numerami walut, które chcesz przeliczyć.
2. kliknij Kutools > Treść > Liczby na słowa. Zobacz zrzut ekranu:
3. w Liczby na słowa walutowe okno dialogowe, wybierz Angielski opcję i kliknij przycisk OK or Dodaj przycisk.
Teraz wybrane numery walut są natychmiast konwertowane na angielskie słowa.
Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.
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!