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