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