Як правильно писати чи перетворювати числа в англійські слова в Excel?
Припустимо, у вас є багато цифр суми ціни, і тепер вам потрібно перетворити або прописати їх у текстові рядки. Наприклад, конвертувати $123.55 до англійських слів сто двадцять три долари п’ятдесят п’ять центів. В Excel немає ефективних засобів вирішення цієї проблеми, але за допомогою довгого та складного коду VBA. У цій статті я познайомлю вас із деякими методами боротьби з нею.
Пропишіть або перетворіть цифри в англійські слова за допомогою коду VBA
Вимовляйте або перетворюйте числа на англійські слова за допомогою Kutools для Excel
Пропишіть або перетворіть цифри в англійські слова за допомогою коду VBA
Наступний довгий код VBA може допомогти вам прописати цифри в текстові рядки. Виконайте наступне:
1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний макрос у Вікно модуля.
VBA: Випишіть номери валют на англійські слова в Excel
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. Потім збережіть код і поверніться до робочого аркуша у сусідній комірці B2, введіть формулу = SpellNumberToEnglish (A1), див. скріншот:
4. Потім натисніть
Що натомість? Створіть віртуальну версію себе у
і виберіть клітинку B2, а потім перетягніть маркер заповнення до діапазону, який містить цю формулу, як вам потрібно. І всі номери валют прописані англійськими словами. Дивіться знімок екрана:
примітки: Оскільки це формули, коли вам потрібно їх скопіювати та вставити, вставте як значення.
Вимовляйте або перетворюйте числа на англійські слова за допомогою Kutools для Excel
Можливо, наведений вище довгий код може звести вас з розуму, будь ласка, не хвилюйтеся, тут я можу надати вам простий і швидкий спосіб його вирішення. За допомогою Kutools для ExcelАвтора Числа до слів функцію, ви можете швидко і зручно перетворити числа в текстові рядки.
Kutools для Excel- Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Get It Now
1. Виберіть номери діапазону, які потрібно написати, і натисніть Кутулс > зміст > Числа до слів.
2. У спливаючому діалоговому вікні виберіть англійська від мови. І ви можете переглянути результати справа попередній перегляд Панель. Дивіться знімок екрана:
3. Потім натисніть Ok or Застосовувати. І всі номери суми ціни були перетворені в текстові рядки у вихідному діапазоні.
примітки: Якщо ви просто хочете конвертувати цифри в англійські слова (а не валюту), будь ласка, перевірте Не конвертовано у валюту прапорець.
Ця фантастична особливість Числа до слів можна легко перекласти номери валют у текст валюти англійською чи китайською мовами, наприклад, перекласти 32.01 у "Тридцять два долари і один цент" або "叁拾 贰元 零 壹 分". Отримайте безкоштовну пробну версію!
Demo: Пропишіть номери валют на англійські слова
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!