Перетворення числа на слова

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

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

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

У цій статті

Створення SpellNumber функції для перетворення числа на слова

  1. За допомогою сполучення клавіш Alt + F11, щоб відкрити редактор Visual Basic.

    Примітка.: Можна також відкрити редактор Visual Basic, відображаючи вкладки Розробник» на стрічці.

  2. Перейдіть на вкладку Вставлення та натисніть кнопку модуль.

    У меню вставлення натисніть кнопку модуль.
  3. Скопіюйте наведені нижче рядки коду.

    Примітка.: Відома як функції макросів, код Автоматизація завдань перетворення числа на текст в усій електронній таблиці.

    Параметр явне

    "Основні функції

    Функція SpellNumber (ByVal MyNumber)

    Dim доларів копійок, Temp

    Dim DecimalPlace, Count

    ReDim Place(9) як рядок

    Place(2) = "Тисяч"

    Place(3) = "мільйонів"

    Place(4) = "Мільярд"

    Place(5) = "трлн"

    "Представлення суми рядків.

    MyNumber = Trim(Str(MyNumber))

    ' Розташування десяткового розряду 0, якщо немає.

    DecimalPlace = InStr (MyNumber, «.»)

    "Перетворення копійок і встановити MyNumber долара обсяг.

    Якщо DecimalPlace > 0 тоді

    Копійок = GetTens (вліво (Mid (MyNumber, DecimalPlace + 1) & _ "00"; 2))

    MyNumber = Trim (ліворуч (MyNumber, DecimalPlace - 1))

    Кінець, якщо

    Кількість = 1

    Хоча MyNumber <> ""

    Temp = GetHundreds (праворуч (MyNumber, 3))

    Якщо температура <> "" виберіть доларів = Temp & Place(Count) доларів

    Якщо Len(MyNumber) > 3 натисніть

    MyNumber = вліво (MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = ""

    Кінець, якщо

    Count = Count + 1

    Замикання

    Виберіть справа доларів

    Регістр "»

    Доларів = "Ні доларів"

    Регістр "Один"

    Доларів = "Один долар"

    Регістр відомості

    Доларів = доларів & "Продав"

    Виберіть команду завершити

    Виберіть справа копійок

    Регістр "»

    Копійок = "а не копійок"

    Регістр "Один"

    Копійок = "та одного відсотка"

    Регістр відомості

    Копійок = "та" & копійок & «Копійок»

    Виберіть команду завершити

    SpellNumber = доларів & копійок

    Функція завершення

    ' Перетворює число 100 999 на текст

    Функція GetHundreds (ByVal MyNumber)

    Dim результат у вигляді рядка

    Якщо Val(MyNumber) = 0 потім вихід функції

    MyNumber = вправо ("000" & MyNumber 3)

    "Перетворити сотні місць.

    Якщо Mid (MyNumber, 1, 1) <> "0" виберіть

    Результат = GetDigit (Mid (MyNumber, 1, 1)) & "сто"

    Кінець, якщо

    "Перетворення десятків і ті місця.

    Якщо Mid (MyNumber, 2, 1) <> "0" виберіть

    Результат = результат & GetTens (Mid (MyNumber, 2))

    Else

    Результат = результат & GetDigit (Mid (MyNumber, 3))

    Кінець, якщо

    GetHundreds = результат

    Функція завершення

    ' Перетворює число від 10 до 99 на текст.

    Функція GetTens(TensText)

    Dim результат у вигляді рядка

    Результат = "" ' Null-значення тимчасові функції.

    Якщо Val (ліворуч (TensText, 1)) = 1, то "Якщо значення від 10-19...

    Виберіть справа Val(TensText)

    Випадку 10: Результат = «10»

    Випадку 11: Результат = "11"

    Випадку 12: Результат = "Дванадцять"

    Випадку 13: Результат = "Тринадцять"

    Випадку 14: Результат = "Чотирнадцять"

    Випадку 15: Результат = «15»

    Випадку 16: Результат = "16"

    Випадку 17: Результат = "Сімнадцять"

    Випадку 18: Результат = "Вісімнадцять"

    Випадку 19: Результат = "19"

    Регістр відомості

    Виберіть команду завершити

    Відомості "Якщо значення між 20 99...

    Виберіть справа Val (ліворуч (TensText, 1))

    Випадку 2: Результат = "Двадцяти"

    Випадку 3: Результат = "Тридцяти"

    Випадку 4: Результат = "Сорока"

    Випадку 5: Результат = "П'ятдесят"

    Випадку 6: Результат = "Шістдесят"

    Випадку 7: Результат = "Сімдесят"

    Випадку 8: Результат = "Вісімдесят"

    Випадку 9: Результат = "Дев'яносто"

    Регістр відомості

    Виберіть команду завершити

    Результат = результат й GetDigit _

    (Праворуч (TensText, 1)) "Отримати ті місця.

    Кінець, якщо

    GetTens = результат

    Функція завершення

    ' Перетворює число від 1 до 9 на текст.

    Функція GetDigit(Digit)

    Виберіть справа Val(Digit)

    Випадку 1: GetDigit = "Один"

    Випадку 2: GetDigit = "2"

    Випадку 3: GetDigit = «Три»

    Випадку 4: GetDigit = "Чотири"

    Регістр 5: GetDigit = "5"

    Регістр 6: GetDigit = "Шість"

    Регістр 7: GetDigit = "Зображення"

    Регістр 8: GetDigit = "Вісім"

    Регістр 9: GetDigit = "Дев'ять"

    Регістр відомості: GetDigit = ""

    Виберіть команду завершити

    Функція завершення

  4. Вставте рядки коду до на модулі1 (код) поля.

    Код вставили в модулі1 поле (код).
  5. Виберіть файлі натисніть кнопку закрити й повернутися до програми Microsoft Excel. Функція SpellNumber готовий до використання.

    Примітка.: Ця функція працює лише для поточного файлу Excel було відкрито. Щоб використовувати цю функцію в іншій книзі Excel , необхідно повторіть кроки, щоб скопіюйте та вставте цей код в цьому файлі.

На початок сторінки

Використовуйте функцію SpellNumber в окремих клітинках

  1. Введіть у формулу = SpellNumber(значення) у клітинку, де має відображатися написаний номер, замінивши ваш номер вибір значення .

  2. За допомогою клавіатури натисніть клавішу Enter.

    Наприклад, ввести =SpellNumber(22.50), клітинку слід прочитати Двадцяти двох гривень п'ятдесят копійок.

    Порада.: Для перетворення числа на текст в окрему клітинку, замініть посилання на клітинку у формулі SpellNumber числове значення. Наприклад, введіть =SpellNumber(A1) для відображення написаних значення клітинки A1.

На початок сторінки

Збереження книги SpellNumber функції

Excel з функції макросів у форматі стандартний макросів книги не можна зберігати у книзі. Якщо клацнути елементи файл > зберегти. Відкриється діалогове вікно проект Visual Basic . Натисніть кнопку ні.

У діалоговому вікні проекту б. натисніть кнопку ні.

Можна зберегти файл як Шаблон Excel із підтримкою макросів , щоб зберегти файл у поточному форматі.

  1. Відкрийте меню Файл і виберіть команду Зберегти як.

  2. Натисніть кнопку Зберегти як тип розкривного меню та виберіть пункт Excel Macro-Enabled Template.

    Виберіть пункт шаблон Excel із підтримкою роботи макросів.
  3. Натисніть кнопку Зберегти.

На початок сторінки

Див. також

Функція TEXT

Удосконалення навичок роботи з Office
Ознайомтеся з навчальними матеріалами
Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

Ця інформація корисна?

Дякуємо за ваш відгук!

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×