Як перетворити валюту в текст слів у Excel?
Для тих, хто не носія мови, який використовує англійську мову як свою другу мову, іноді буває важко безпосередньо змінити номер валюти на англійські слова, коли номер занадто довгий. У цій статті ви дізнаєтеся, як легко перетворити валюту в текст слів у програмі Excel.
Перетворення валюти в слова з кодом VBA
Перетворіть валюту в слова за допомогою Kutools для Excel
Перетворення валюти в слова з кодом VBA
За допомогою наведеного нижче коду VBA ви можете перевести номер валюти в англійські слова.
1. прес інший + F11 відкрити Microsoft Visual Basic для додатків діалогове вікно.
2 В Microsoft Visual Basic для додатків діалогове вікно натисніть кнопку Insert > Модуль. Потім скопіюйте та вставте наведений нижче код у вікно коду.
Код VBA: Перетворіть номер валюти в англійські слова
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 Function3. прес інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків діалогове вікно.
4. Виберіть порожню комірку (B1), яка прилягає до комірки, яку потрібно перетворити на слова, введіть формулу = NumberstoWords (A1), а потім натисніть Що натомість? Створіть віртуальну версію себе у ключ
примітки: A1 - клітинка містить номер валюти. Ви можете змінити його, як вам потрібно.
5. Виділіть клітинку B1, перетягніть ручку заповнення вниз, щоб отримати всі англійські слова номерів валют.
Перетворіть валюту в слова за допомогою Kutools для Excel
Цей довгий код VBA здається складним. Тут я представив вам зручну утиліту для легкого вирішення цієї проблеми. За допомогою Числа до слів корисність Kutools для Excel, перетворення валюти в слова більше не буде проблемою. Будь ласка, виконайте наступне.
Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.
1. Виберіть комірки з номерами валют, які потрібно конвертувати.
2. клацання Кутулс > зміст > Числа до слів. Дивіться знімок екрана:
3 В Числа до валютних слів діалогове вікно, виберіть англійська та натисніть кнопку OK or Застосовувати кнопки.
Тепер вибрані номери валют негайно перетворюються на англійські слова.
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
