Сумма прописью в Excel 2016

Сумма прописью в Excel 2016
На чтение
15 мин.
Просмотров
45
Дата обновления
06.11.2024

как сделать сумму прописью в excel 2016       Добрый день уважаемый читатель!

     Статья посвящена такому интересному вопросу: «Как в Excel создается прописная сумма?» Эта возможность позволяет организовать всю массу информации и расчетов, которые сведены в единый результат, как финансовый документ, который нельзя интерпретировать двояко. Недаром банковские, юридические и финансовые документы оформляются цифрами и буквами. Кроме того, такие суммы не позволяют ошибиться там, где должна быть запятая, и они просто отлично смотрятся по сравнению с рядом чисел. Подводя итог, скажу, что любому пользователю Excel, который работает с числами и временем, а также печатает документы с их помощью, действительно нужен инструмент, который создает сумму на словах.

       Есть несколько способов решить эту проблему:

  1. Использование формул;
  2. Использование пользовательской функции;
  3. С VBA.

      Создание сумм прописью с помощью формул

     Это возможный, но очень громоздкий вариант. Формула, которая умеет самостоятельно переводить числа в буквы и правильно записывать сумму словами, получится очень большой. Если вы хотите упростить формулу, вам понадобится отдельный блок формул, который позаботится обо всех преобразованиях. Единственное преимущество использования формулы заключается в том, что когда вы ее понимаете, вы можете изменить ее самостоятельно: разрядность, валюту, склонение и т.д.

  

С помощью пользовательской функции

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

     Для этого нужно выполнить несколько шагов. Сначала загрузите файл надстройки здесь. Затем перенесите его в папку AddIns, которая находится по пути C: Documents и SettingsUserApplication DataMicrosoftAddIns, только вы замените свое имя пользователя Windows вместо «User». Также может быть проблема с отображением папки «Данные приложения», она может быть скрытой, поэтому нужно в настройках «Параметры папки» включить пункт «Показывать скрытые файлы и папки». как сделать сумму прописью в excel 2016      А теперь собственно, приступим к включению этого дополнения. В Excel выберите «Файл» — «Параметры» — «Надстройки». как сделать сумму прописью в excel 2016      В диалоговом окне «Настройки» поставьте галочку напротив включенного надстройки «Сумма прописью» и нажмите «ОК». как сделать сумму прописью в excel 2016    Следующим шагом является установка курсора на нужную ячейку и вызов «управляемой функции». В разделе «Категория» выберите пункт «Определяется пользователем» и теперь доступен весь список встроенных функций для записи сумм прописью. Кстати, как видите, есть еще и выбор функций в разрезе валют. Сразу замечаю, что надстроек много, есть и более продвинутые, но этот меня полностью устраивает, поэтому я его описываю. как сделать сумму прописью в excel 2016      В результате мы имеем возможность получить следующие данные: как сделать сумму прописью в excel 2016

С помощью VBA

     Вот еще один способ на любителя. Конечно, словесное создание суммы в Excel с помощью макроса — не самый распространенный способ, но он использовался довольно часто и до сих пор используется. Это не очень сложно, нужно:

  • Используйте комбинацию горячих клавиш ALT + F11 для вызова редактора Visual Basic;
  • Используя меню «Вставка» — «Модуль», создайте новый пустой модуль;
  • Скопируйте код макроса, указанный в теле модуля.

      Получается готовая кастомная функция VBA, которая может конвертировать любую сумму от 0 до 9 999 999 в текстовом варианте, сумма создается словами.

      Требуемый код макроса выглядит так:

 

Функция СУММ (n как double) как строка

   Dim Num1, Num2, Num3, Num4 как вариант

      Num1 = Array («», «один», «два», «три», «четыре», «пять», «шесть», «семь», «восемь», «девять «)

      Num2 = Array («», «десять», «двадцать», «тридцать», «сорок», «пятьдесят», «шестьдесят», «семьдесят», _

              «Восемьдесят», «девяносто «)

      Num3 = Array («», «сто», «двести», «триста», «четыреста», «пятьсот», «шестьсот», «семьсот», _

             «Девятнадцатый век», «двадцатый век «)

      Num4 = Массив («», «один», «два», «три», «четыре», «пять», «шесть», «семь», «восемь», «девять «)

      Num5 = Массив («десять», «одиннадцать», «двенадцать», «тринадцать», «четырнадцать «,

             «Пятнадцать», «шестнадцать», «семнадцать», «восемнадцать», «девятнадцать «)

    Если n

        SUMA = «ноль»

Выйти из функции

Конец, если

 ‘разделите число на цифры с помощью функции справки по классу

   ed = Класс (n, 1)

   dic = Класс (n, 2)

   sot = Класс (n, 3)

   tys = Класс (n, 4)

   dectys = Класс (n, 5)

   sottys = Класс (n, 6)

   mil = Класс (n, 7)

   decimil = Класс (n, 8)

«проверить миллионы

Выбрать чехол Decmil

   Дело 1

     mil_txt = Num5 (mil) & «миллион «

     Перейти на www

   Случаи 2-9

     decmil_txt = Num2 (декамил)

Конец выбора

Выбрать Case Mil

   Дело 1

     mil_txt = Num1 (mil) & «миллион «

   Случай 2, 3, 4

     mil_txt = Num1 (mil) & «миллион «

   Случаи 5-20

     mil_txt = Num1 (mil) & «миллион «

Конец выбора

www:

sottys_txt = Nums3 (sottys)

проверить тысячи

Выберите Case dectys

   Дело 1

     tys_txt = Num5 (тыс) & «одна тысяча «

     Перейти к eee

   Случаи 2-9

     dectys_txt = Num2 (dectys)

Конец выбора

Выберите типы кейсов

   Случай 0

     Если dectys> 0, то tys_txt = Nums4 (tys) & «тысяча «

   Дело 1

     tys_txt = Num4 (тыс) & «одна тысяча «

   Случай 2, 3, 4

     tys_txt = Num4 (тыс) & «тысячи «

   Случаи 5–9

     tys_txt = Num4 (тыс) & «одна тысяча «

Конец выбора

Если dectys = 0 И tys = 0 И sottys 0 Тогда sottys_txt = sottys_txt & «mille «

эээ:

sot_txt = Num3 (сот)

«проверить дюжину

Выбрать дело Dec

   Дело 1

     ed_txt = Num5 (ред)

     Перейти на rrr

   Случаи 2-9

     dec_txt = Num2 (dec)

Конец выбора

ed_txt = Num1 (изд)

ррр:

‘формируем последнюю строку

ИТОГО = decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt

Конец функции

‘Функция поддержки для извлечения из числа цифр

Класс частных функций (M, I)

  Класс = Int (Int (M — (10 ^ I) * Int (M / (10 ^ I))) / 10 ^ (I — 1))

Конец функции

      Сохраните изменения, и теперь вы можете использовать новую функцию, как и другие функции, представленные в «Функции мастера» в категории «Определяемые пользователем», или просто введите ее вручную в ячейку, указав сумму для заглавной буквы. как сделать сумму прописью в excel 2016

      Но, как видите, макрос записывает суммы словами, только целыми числами, но чтобы получить копейки, эту конструкцию нужно модифицировать с помощью следующей функции:

      = ИТОГО (A3) & «руб.» & ТЕКСТ ((A3-ВЕСЬ (A3)) * 100; «00») & «коп.»

    Вы можете опустить префикс «Module2» в моей формуле, так как таким образом программа отделяет 2 похожие формулы: одну от установленных надстроек, а вторую — от макроса.

как сделать сумму прописью в excel 2016     И это все для меня! Я действительно надеюсь, что все, что касается использования ваших чисел, вам ясно. Буду очень благодарен за оставленные комментарии, так как это показатель читабельности и вдохновляет на написание новых статей! Делитесь прочитанным с друзьями и ставьте им лайки!

0 Комментариев
Комментариев на модерации: 0
Оставьте комментарий