У цій статті я покажу вам два швидких і безкоштовних способи перетворення валютних чисел в англійські слова в Excel 2019, 2016, 2013 та інших версіях.

Microsoft Excel - чудова програма для розрахунку того чи іншого. Спочатку вона була розроблена для обробки великих масивів даних. Однак вона також дозволяє швидко та ефективно створювати бухгалтерські документи, такі як рахунки-фактури, оцінки або баланси.

У більш-менш солідних платіжних документах необхідно дублювати числові значення з їх словесною формою. Надруковані на машинці цифри набагато важче підробити, ніж написані від руки. Який-небудь шахрай може спробувати з 3000 зробити 8000, тоді як таємно замінити "три" на "вісім" практично неможливо.

Отже, вам потрібно не просто перетворити цифри в слова в Excel (наприклад, 123.45 на "сто двадцять три, сорок п'ять"), а прописати долари і центи (наприклад, $29.95 як "двадцять дев'ять доларів і дев'яносто дев'ять центів"), фунти і пенси для GBP, євро і євроценти для EUR тощо.

Навіть останні версії Excel не мають вбудованого інструменту для написання чисел, не кажучи вже про більш ранні версії. Але саме цим Excel дійсно хороший. Ви завжди можете поліпшити його функціональність, використовуючи формули у всіх їхніх проявах.

комбінації, макроси VBA або сторонні надбудови.

Нижче ви знайдете два способи перетворення чисел з цифр в слова

І, можливо, вам знадобиться конвертація слів в числа в Excel

Примітка: якщо ви шукаєте перетворення числа в текст Це означає, що ви хочете, щоб Excel бачив ваше число як текст. Для цього ви можете скористатися функцією ТЕКСТ або кількома іншими способами, описаними в розділі Як перетворити числа на текст в Excel.

Макрос SpellNumber VBA для перетворення чисел в слова

Як я вже згадував, Microsoft не хотіла додавати інструмент для цієї задачі, але коли побачила, що багатьом користувачам він потрібен, створила і опублікувала на своєму сайті спеціальний макрос VBA. Макрос робить те, про що говорить його назва SpellNumber. Всі інші макроси, з якими мені доводилося стикатися, засновані на коді від Microsoft.

Ви можете зустріти макрос, який згадується як "формула spellnumber", але це не формула, а макрофункція, а якщо бути більш точним Excel Функція, визначена користувачем (UDF).

Опція spellnumber вміє писати долари і центи. Якщо вам потрібна інша валюта, ви можете змінити " долар " і " цент "з ім'ям твого єдиного.

Якщо ви не знавець VBA, нижче ви знайдете копію коду. Якщо ви все ж не хочете або не маєте часу розбиратися з цим, будь ласка, скористайтеся цим рішенням.

1. Відкрийте робочий зошит, в якому потрібно написати цифри.
2. Натисніть Alt+F11, щоб відкрити вікно редактора Visual Basic.
3. Якщо у Вас відкрито декілька книг, перевірте, чи активна потрібна книга за допомогою списку проектів у верхньому лівому кутку редактора (один з елементів книги підсвічується синім кольором).
4. У меню редактора перейдіть до пункту Вставка -> -> -> -> -> Модуль .
5. У Вас повинно з'явитися вікно з назвою YourBook - Module1. Виділіть весь код у рамці нижче і вставте його в це вікно.

   Option Explicit 'Main Function Function SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace> 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber)> 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollar = "OneДолар" Case Else Dollars = Dollars & " Доларів" End Select Select Case Cents Case "" Cents = " і без центів" Case "Один" Cents = " і один цент" Case Else Cents = " і " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber,3) ' Переводимо сотні через дріб. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Переводимо десятки та одиниці через дріб. If Mid(MyNumber, 2, 1) "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = ""' Обнулити тимчасове значення функції. If Val(Left(TensText, 1)) = 1 Then ' Якщо значення між 10-19... Select Case Val(TensText) Case 10: Результат = "десять" Case 11: Результат = "одинадцять" Case 12: Результат = "дванадцять" Case 13: Результат = "тринадцять" Case 14: Результат = "чотирнадцять" Case 15: Результат = "п'ятнадцять" Case 16: Результат = "шістнадцять" Case 17: Результат = "сімнадцять" Case 18: Результат = "вісімнадцять" Case 19: Результат ="Дев'ятнадцять" Case Else End Select Else ' Якщо значення між 20-99... Select Case Val(Left(TensText, 1)) Case 2: Результат = "Двадцять " Case 3: Результат = "Тридцять " Case 4: Результат = "Сорок " Case 5: Результат = "П'ятдесят " Case 6: Результат = "Шістдесят " Case 7: Результат = "Сімдесят " Case 8: Результат = "Вісімдесят " Case 9: Результат = "Дев'яносто " Case Else End Select Результат = Результат & GetDigit _ (Right(TensText, 1)) ' ВитягEnd If GetTens = Result End Function Function GetDigit(Digit) Select Case Val(Digit) 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

6. Для збереження оновленої книги натисніть Ctrl+S.

   При спробі зберегти книгу за допомогою макросу з'явиться повідомлення " У книзі без макросів не можна зберегти наступні функції "

   

   Натисніть Ні. Коли з'явиться нове діалогове вікно, виберіть опцію Зберегти як. У полі " Зберегти як тип " оберіть варіант " Книга Excel з підтримкою макросів ".

   

Використання макросу SpellNumber в робочих аркушах

Тепер ви можете скористатися функцією SpellNumber у ваших документах Excel. Введіть =SpellNumber(A2) в комірку, де потрібно отримати число, записане словами. Тут А2 - адреса комірки з числом або сумою.

Тут ви можете побачити результат:

Вуаля!

Швидке копіювання функції SpellNumber в інші комірки.

Якщо потрібно перетворити всю таблицю, а не тільки 1 комірку, підведіть курсор миші до правого нижнього кута комірки з формулою до тих пір, поки він не перетвориться на маленький чорний хрестик:

Натисніть ліву кнопку миші та перетягніть її по стовпчику, щоб заповнити формулу. Відпустіть кнопку, щоб побачити результати:

Примітка: майте на увазі, що якщо ви використовуєте SpellNumber з посиланням на іншу комірку, то записана сума буде оновлюватися при кожній зміні числа в комірці-джерелі.

Також можна ввести номер, наприклад, безпосередньо у функцію, =SpellNumber(29.95) (29,95 - без лапок та знаку долара).

Недоліки використання макросу для написання чисел в Excel

Перш за все, необхідно знати VBA, щоб модифікувати код відповідно до ваших потреб. Необхідно вставляти код для кожної книги, де ви плануєте його змінювати. В іншому випадку вам потрібно буде створити шаблонний файл з макросами і налаштувати Excel, щоб він завантажував цей файл при кожному запуску.

Основним недоліком використання макросу є те, що якщо ви надішлете книгу комусь іншому, ця людина не побачить текст, якщо макрос не буде вбудований в книгу. А навіть якщо він буде вбудований, вона отримає попередження про те, що в книзі є макроси.

Перетворіть цифри в слова за допомогою спеціального доповнення

Для користувачів Excel, яким потрібно швидко продиктувати суму, але немає часу вивчати VBA або шукати обхідні шляхи, ми створили спеціальний інструмент, який може швидко виконати конвертацію суми в слова для декількох популярних валют. Зустрічайте надбудову Spell Number, включену в останню версію нашого Ultimate Suite для Excel.

Крім того, що інструмент готовий до використання, він дуже гнучкий у перетворенні сум у текст:

• Ви можете вибрати одну з наступних валют: USD, EUR, GBP, BIT, AUD.
• Дробова частина пишеться в центах, пенні або бітцентах.
• Виберіть будь-який регістр тексту для результату: нижній регістр, верхній регістр, регістр заголовка або регістр речення.
• Запишіть десяткову частину по-різному.
• Включити або опустити нуль центів.

Надбудова підтримує всі сучасні версії, включаючи Excel 365, Excel 2029, Excel 2016, Excel 2013 та Excel 2010. Будь ласка, ознайомтеся з іншими можливостями на домашній сторінці продукту за посиланням вище.

А тепер давайте подивимося на цю утиліту для перевірки правопису чисел у дії:

1. Виберіть порожню комірку для результату.
2. Про це йдеться на Аблебіти у вкладці Комунальні послуги групу, натисніть Номер заклинання .
3. В рамках проекту Номер розливу У діалоговому вікні, що з'явилося, налаштуйте наступні речі:
   • Для Оберіть свій номер виберіть комірку, що містить суму, яку ви бажаєте записати як текст, і виберіть комірку, що містить суму, яку ви бажаєте записати як текст.
   • Вкажіть бажаний в даний час , регістр літер і те, яким чином десяткова частина номера слід писати по буквах.
   • Визначити, чи включати нуль копійок чи ні.
   • Виберіть, чи потрібно вставити результат у вигляді значення або формули.
4. У нижній частині діалогового вікна, попередній перегляд Якщо Вас влаштовує те, як написаний Ваш номер, натисніть Заклинання В іншому випадку спробуйте інші налаштування.

Скріншот нижче демонструє вибір за замовчуванням та написання номера в B2. Зверніть увагу на формулу (точніше, функцію, визначену користувачем) у рядку формул:

І це швидка демонстрація того, як можуть бути прописані інші валюти:

Поради та примітки:

• Тому що Номер заклинання надбудова була розроблена для обробки реальних випадків використання, таких як рахунки-фактури та інші фінансові документи, вона може тільки конвертувати один номер за один раз.
• Як пишеться a стовпчик чисел вставити формулу в першу комірку, а потім скопіювати формулу вниз.
• Якщо є ймовірність того, що ваші вихідні дані можуть змінитися в майбутньому, найкраще вставити результат у вигляді формули тому він автоматично оновлюється при зміні початкового номера.
• При виборі результат у вигляді формули опція, звичай призначена для користувача функція (Якщо ви плануєте надати спільний доступ до своєї книги комусь, у кого не встановлено Ultimate Suite, не забудьте замінити формули значеннями перед наданням спільного доступу.

Зворотний переклад - англійські слова в цифри

Чесно кажучи, не уявляю, навіщо він вам може знадобитися. Так, про всяк випадок... :)

Виявляється, що головний розробник Excel, Джеррі Летем, створив таку функцію користувача Excel (UDF), як WordsToDigits Він перетворює англійські слова назад у цифри.

Ви можете завантажити робочий зошит Джеррі WordsToDigits, щоб побачити код UDF. Тут ви також знайдете його приклади використання функції.

Як працює функція можна подивитися на аркуші " Зразки конкурсних робіт "Якщо ви плануєте використовувати WordsToDigits у своїх документах, будь ласка, зверніть увагу, що ця функція має обмеження, наприклад, вона не розпізнає дроби, введені словами. Всі деталі ви знайдете на сторінці " Інформація "аркуш.