Как сумму прописью в excel 2016 - Word и Excel - помощь в работе с программами

Добрый день уважаемый читатель!

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

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

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

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

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

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

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

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

С помощью 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,

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

Выбрать чехол 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))

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

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

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

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

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

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

Источник

Содержание

1 Создание сумм прописью с помощью формул
2 С помощью пользовательской функции
3 С помощью VBA
4 Использование надстройки
- 4.1 Помогла ли вам эта статья?
5 Num2Text
- 5.1 Создание простой формулы
- 5.2 Сумма ячеек
6 Sumprop
- 6.1 Работа с формулами
  - 6.1.1 СуммаПрописью
  - 6.1.2 СуммаПрописьюГривны
  - 6.1.3 СуммаПрописьюДоллары
  - 6.1.4 СуммаПрописьюЕвро
  - 6.1.5 ЧислоПрописью
7 Платные модули
8 Заключение
9 Видеоинструкция
10 Через функцию
11 Через формулу

Добрый день уважаемый читатель!

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

Решить эту проблему можно несколькими способами:

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

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

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

Ради общего интереса я предоставлю вам пример файла с работающей формулой, которую я нашёл на excelworld.ru, поскольку самостоятельно формульным решением задачи я не занимался, но считаю нужным предоставить весь наработанный или собранный материал. Скачать пример можно по этой ссылке.

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

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

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

С помощью VBA

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

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

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

Код нужного макроса выглядит так:

Function СУММАПРОПИСЬЮ(n As Double) As String

Dim Nums1, Nums2, Nums3, Nums4 As Variant

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

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

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

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

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

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

Nums5 = Array(«десять «, «одиннадцать «, «двенадцать «, «тринадцать «, «четырнадцать «,

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

If n <= 0 Then

СУММАПРОПИСЬЮ = «ноль»

Exit Function

End If

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

ed = Class(n, 1)

dec = Class(n, 2)

sot = Class(n, 3)

tys = Class(n, 4)

dectys = Class(n, 5)

sottys = Class(n, 6)

mil = Class(n, 7)

decmil = Class(n,

‘проверяем миллионы

Select Case decmil

Case 1

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

GoTo www

Case 2 To 9

decmil_txt = Nums2(decmil)

End Select

Select Case mil

Case 1

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

Case 2, 3, 4

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

Case 5 To 20

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

End Select

www:

sottys_txt = Nums3(sottys)

‘проверяем тысячи

Select Case dectys

Case 1

tys_txt = Nums5(tys) & «тысяч «

GoTo eee

Case 2 To 9

dectys_txt = Nums2(dectys)

End Select

Select Case tys

Case 0

If dectys > 0 Then tys_txt = Nums4(tys) & «тысяч «

Case 1

tys_txt = Nums4(tys) & «тысяча «

Case 2, 3, 4

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

Case 5 To 9

tys_txt = Nums4(tys) & «тысяч «

End Select

If dectys = 0 And tys = 0 And sottys 0 Then sottys_txt = sottys_txt & » тысяч «

eee:

sot_txt = Nums3(sot)

‘проверяем десятки

Select Case dec

Case 1

ed_txt = Nums5(ed)

GoTo rrr

Case 2 To 9

dec_txt = Nums2(dec)

End Select

ed_txt = Nums1(ed)

rrr:

‘формируем итоговую строку

СУММАПРОПИСЬЮ = decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt

End Function

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

Private Function Class(M, I)

Class = Int(Int(M — (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I — 1))

End Function

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

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

=СУММАПРОПИСЬЮ(A3)&» руб. «&ТЕКСТ((A3-ЦЕЛОЕ(A3))*100;»00″)&» коп.»

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

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

Не забудьте поблагодарить автора!

Что такое ограбление банка по сравнению с основанием банка?
Бертольт Брехт

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

Использование надстройки

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

Одной из самых удобных является надстройка NUM2TEXT. Она позволяет поменять цифры на буквы через Мастер функций.

Открываем программу Excel и переходим во вкладку «Файл».
Перемещаемся в раздел «Параметры».
В активном окне параметров переходим в раздел «Надстройки».
Далее, в параметре настроек «Управление» устанавливаем значение «Надстройки Excel». Жмем на кнопку «Перейти…».
Открывается небольшое окно надстроек Excel. Жмем на кнопку «Обзор…».
В открывшемся окне ищем предварительно скачанный и сохраненный на жесткий диск компьютера файл надстройки NUM2TEXT.xla. Выделяем его и жмем на кнопку «OK».
Мы видим, что данный элемент появился среди доступных надстроек. Ставим галочку около пункта NUM2TEXT и жмем на кнопку «OK».
Для того, чтобы проверить как работает только что установленная надстройка пишем в любой свободной ячейке листа произвольное число. Выделяем любую другую ячейку. Кликаем по значку «Вставить функцию». Он расположен слева от строки формул.
Запускается Мастер функций. В полном алфавитном перечне функций ищем запись «Сумма_прописью». Её раньше не было, но она появилась тут после установки надстройки. Выделяем эту функцию. Жмем на кнопку «OK».
Отрывается окно аргументов функции Сумма_прописью. Оно содержит только одно поле «Сумма». Сюда можно записать обычное число. Оно в выделенной ячейке отобразиться в формате записанной прописью денежной суммы в рублях и копейках.
После этого, любое число, которое записано в ячейку, указанную вами, будет отображаться в денежном виде прописью в том месте, где установлена формула функции.

Функцию можно также записать и вручную без вызова мастера функций. Она имеет синтаксис Сумма_прописью(сумма) или Сумма_прописью(координаты_ячейки). Таким образом, если вы в ячейке запишите формулу =Сумма_прописью(5) , то после нажатия кнопки ENTER в этой ячейке отобразиться надпись «Пять рублей 00 копеек».

Если вы введете в ячейку формулу =Сумма_прописью(A2) , то в таком случае, любое число, внесенное в ячейку A2 будет отображаться тут денежной суммой прописью.

Как видим, несмотря на то, что в Excel нет встроенного инструмента для преобразования чисел в сумму прописью, эту возможность можно довольно легко получить, просто установив необходимую надстройку в программу.

Мы рады, что смогли помочь Вам в решении проблемы.

Задайте свой вопрос в комментариях, подробно расписав суть проблемы. Наши специалисты постараются ответить максимально быстро.

Помогла ли вам эта статья?

Да Нет

Как правило, в финансовых документах довольно часто указывают сумму не только в виде числа, но и прописью. Вручную это делать сложно и долго. Гораздо проще автоматически преобразовать все значения при помощи функций. В данной статье мы рассмотрим, как в Excel сделать сумму прописью.

Для начала нужно открыть Эксель и написать какое-нибудь число.

Для того чтобы его перевести в текстовый вид, нужно скачать дополнительный макрос, написанный на vba. Данная функция по умолчанию в редакторе отсутствует.

Num2Text

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

Будьте внимательны. Скачивайте только те файлы, у которых расширение xla, а не exe, поскольку во втором случае там могут быть вирусы.

После этого нужно сделать следующее:

Зайдите в пункт меню «Файл».

В появившемся окне перейдите в раздел «Параметры».

Затем нажимаем на пункт «Надстройки».

Кликните на кнопку «Перейти» (предварительно убедитесь, что рядом выбран пункт «Надстройки Excel»).

После этого у вас появится окно, в котором можно вставить дополнительные файлы, чтобы редактор «узнал» новые функции. Нажмите на кнопку «Обзор».

После этого укажите заранее скаченный файл и кликните «Открыть».

Затем нужно поставить галочку около нового пункта и нажать на «ОК».

На этом этап подготовки завершен. Теперь Excel сможет делать перевод цифр в текстовый вид.

Создание простой формулы

Для того чтобы увидеть возможности новых функций, нужно сделать следующее:

Перейдите на любую соседнюю ячейку. Кликните на иконку «Fx».

В появившемся окне в разделе категории выберите пункт «Полный алфавитный перечень».

Найдите там функцию «Сумма_прописью». Выберите её и нажмите на «OK».

После этого появится окно, в котором нужно указать аргументы функции. Следует указать ячейку, значение которой должно писаться прописью. Для этого достаточно кликнуть на неё.

Сразу после этого адрес ячейки подставится автоматически. Для продолжения кликните «OK».

В результате этого вы увидите вашу сумму прописью. Вплоть до копеек. Благодаря этому можно переводить даже дробные числа.

Попробуйте изменить ваше значение на любое другое. Сумма прописью изменится мгновенно.

Сумма ячеек

В финансовых отчетах необходимо считать сумму различных ячеек или столбцов. В этом случае формула немного усложняется. Рассмотрим, как это сделать.

Проставьте цифры в 4 ячейки подряд.

Кликните на ячейку, в которой вы работали до этого. Скопируйте формулу при помощи сочетания клавиш Ctrl+C.

После этого перейдите в другую ячейку, чтобы создать новую формулу. Активируйте строку ввода уравнений.

Нажмите на клавиатуре на кнопки Ctrl+V.

Удаляем аргумент функции, то есть «C4» в нашем случае. Вместо этого в скобке пишем обычную формулу суммы, которая будет считать диапазон наших ячеек.

=Сумма_прописью(СУММ(A4:D4))

В результате этого должно получиться следующее.

Нажмите на клавиатуре на кнопку Enter. В итоге вы увидите, что сумма указанного диапазона значений отобразилась прописью.

У данного модуля есть большой минус – вы сможете работать только с российкими рублями. То есть, не получится сделать сумму прописью для узбекских сумов, украинских гривен, казахских тенге, американских долларов, белорусских рублей, английских фунтов и так далее. Язык поменять не выйдет. Для таких случаев существует альтернативный метод.

Sumprop

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

Ставим галочку возле новой надстройки и нажимаем на кнопку «OK».

После этого в вашем редакторе появится еще несколько новых функций. Рассмотрим их всех.

Работа с формулами

Для этого нужно сделать следующие действия.

Первым делом создадим наглядную таблицу. В одном столбце у нас будут цифры, во втором – результат. Для демонстрации возможностей будем использовать дробные числа.

Переходим первую пустую ячейку и нажимаем на кнопку «Fx».

В появившемся окне выберите категорию «Определенные пользователем». Новые функции будут именно там.

Будем вставлять поочередно. Именно в той хронологии, как они идут в списке.

СуммаПрописью

Выберите соответствующий пункт и нажмите на кнопку «OK».

Справка нам подсказывает, что эта функция для рублей.

В появившемся окне нужно вставить аргумент. Для этого достаточно кликнуть на ячейку с числом.

Благодаря этому адрес подставится автоматически. Для продолжения нажмите на кнопку «OK».

В результате этого вы увидите следующее.

СуммаПрописьюГривны

Выделяем следующую строчку и кликаем на иконку вставки функции.

На этот раз выбираем вторую функцию. Для вставки нажимаем на кнопку «OK».

Затем кликаем на следующее число.
После автоматической подстановки нажмите на кнопку «OK».

Результат будет следующим.

СуммаПрописьюДоллары

Переходим на третью строчку и кликаем на иконку «Fx».

Выбираем «долларовую» функцию и нажимаем на «OK».

Указываем соответствующий аргумент.

Кликаем на «OK».

Благодаря этому целое число отображается в долларах, а дробное – в центах.

СуммаПрописьюЕвро

Переходим на четвертую строчку и вызываем окно вставки уравнения.

Указываем функцию для «Евро».

Кликаем на соответствующий аргумент.

Нажимаем на кнопку «OK».

Результат будет следующим.

Обратите внимание на то, что количество центов (копеек) выводится всегда. Даже если их 0.

ЧислоПрописью

Преимущество данного модуля в том, что вы можете осуществить преобразование без дополнительных денежных приставок.

Перейдите на последнюю строчку и нажмите на иконку «Fx».

Выберите последнюю функцию.

В качестве аргумента укажите последнее оставшееся число.

Для вставки нажмите на кнопку «OK».

В результате проделанных действий, мы увидим следующую таблицу.

Обратите внимание на то, что во всех ячейках сумма прописью указывается с большой буквы и только число – с маленькой.

Платные модули

Описанные выше надстройки были бесплатными. В интернете можно найти и более мощные инструменты, но за определенную плату.

На сайте PlanetaExcel продается надстройка PLEX.

Нам показывают, что в ней находится огромная библиотека формул.

На момент публикации статьи стоимость надстройки оценивается в 795 рублей.

Разумеется, они предоставляют возможность бесплатного тестирования, но количество запусков ограничено.

Заключение

Прочитав данную инструкцию, вы должны были понять, как настроить редактор Excel, чтобы можно был выводить сумму прописью. Если у вас что-то не получается, возможны следующие варианты:

вы скачали не тот файл;
вы не добавили эту надстройку в Эксель;
вы выделяете не те ячейки;
используете не те функции;
допускаете опечатку при подсчете суммы различных значений.

Видеоинструкция

Если у вас остались какие-нибудь вопросы или вы так и не смогли найти причину своих проблем, рекомендуется посмотреть видеоролик, в котором приводятся дополнительные комментарии к описанным выше инструкциям.

Сумма прописью в Excel — одна из возможностей, которая не реализована в стандартном Excel. Почему, я скажу позже свои доводы. А пока для чего она нужна: прописью записанная сумма позволяет не ошибиться со знаком после запятой, не принять одну сумму за другую. Еще такая запись лучше выглядит по сравнению с набором цифр. Те, кто работает с цифрами, со временем и печатает документы с использованием таких цифр, нуждаются в таком инструменте.

К счастью, решений проблемы масса, их можно найти в инете и причем бесплатно:

Формулы. Это громоздко, но вполне используемо. Тем более, что если вы разбираетесь в этой формуле, сможете сами поправить ее: разрядность, склонение и т.д.
Функции. На мой взгляд, лучшее решение. Позволяет не воевать с функцией, диапазонами и книгами. Просто добавить надстройку и использовать функцию Суммапрописью (или любую другую).

При выборе нужного решения я бы рекомендовал определиться, что именно вам нужно:

Просто число или единица времени, денег и т.д.?
Мужской род единицы или женский?
Сколько разрядов поддерживать?

Через функцию

Среди тех решений, что я нашел, мне понравилась вот эта . Правда, там файл надо скачивать через пару лишних этапов, поэтому можете его скачать .

Как пользоваться надстройкой:

Открываете Excel. Параметры Excel/Надстройки/Кнопка «Перейти».
В открывшемся окне нажимаете «Обзор…»
Выбираете ту папку, куда вы скачали файл sumprop.xla и нажимаете «Ок».
Нажимаете на нужную вам ячейку и выбираете функции. Там будут новые для вас функции.Что хорошо в этой настройке — можно выбрать денежную валюту, а можно просто число. Причем в денежной валюте прописаны сразу и копейки (центы). Я не говорю, что это самая лучшая надстройка, их много. Я просто описываю первую устроившую меня.

Через формулу

Теперь я бы хотел поговорить о сложности построения такой функции или формулы самому. Как бы я строил подобную функцию:

Я бы определил разрядность числа.
Потом я бы подобрал каждой цифре нужное слово, которое бы выбирал из группы названий.
Определил бы падеж единицы.

Т.е., тут пришлось бы использовать как минимум 4 диапазона (например, один диапазон отвечает за сотни: сто, двести, триста и т.д.), кучу условий, функции деления на ноль, ну и само собой ряд функций, текстовых и массивных.

Я имею в виду, что вот так сразу задачу не взять, поэтому, как мне понимается, Excel и не включает в стандартные средства сумму прописью, ведь условия написания разные на каждом языке.

Мне понравились формулы получения суммы прописью вот по этому . Здесь я их разбирать не буду, т.к. это долгий процесс и немного ненужный, т.к. проще взять и пользоваться.

Удачи в использовании!

«Глаза боятся, а руки делают»

P.S. Понравилась статья? Подпишитесь на рассылку в правой части страницы (Бесплатный курс «Топ-10 инструментов Excel») и будьте в курсе новых событий.

Навигация по записям ← Водяные знаки в Excel Заглавные и строчные буквы в Excel →

Дано : Excel c числами и суммами в рублях в ячейках.

Задача : написать данные числа прописью

без использования макросов и каких-либо

надстроек программы Excel, т.е. написать число прописью

при помощи стандартных формул .

Пример файла excel с таким решением можно скачать здесь.

См. также

Сумма прописью онлайн

(если просто нужно получить результат). Что означает прописью?Данный файл производит следующие манипуляции с числами:1. Формула 1 преобразовывает число в сумму прописью следующего формата:

«0 (пропись) рублей 00 копеек»

2. Формула 2 преобразовывает число в сумму прописью следующего формата:

«Пропись рублей 00 копеек»

3. Формула 3 просто переводит число в текст:

число = пропись

Вот формулы, которые пишут сумму прописью:1) Формула 1:

=ПОДСТАВИТЬ(ТЕКСТ(ОТБР(A1;0);»# ##0_ «) & «(» & ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);2;1)+1;ПСТР(ТЕКСТ(A1;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);1;3);»миллиард»&ВПР(ПСТР(ТЕКСТ(A1;n0);3;1)*И(ПСТР(ТЕКСТ(A1;n0);2;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);5;1)+1;ПСТР(ТЕКСТ(A1;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);4;3);»миллион»&ВПР(ПСТР(ТЕКСТ(A1;n0);6;1)*И(ПСТР(ТЕКСТ(A1;n0);5;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(A1;n0);8;1)+1;ПСТР(ТЕКСТ(A1;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);7;3);ВПР(ПСТР(ТЕКСТ(A1;n0);9;1)*И(ПСТР(ТЕКСТ(A1;n0);8;1)-1);тыс;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);10;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);11;1)+1;ПСТР(ТЕКСТ(A1;n0);12;1)+1));»z»;» «)&ЕСЛИ(ОТБР(ТЕКСТ(A1;n0));»»;»Ноль «)&») рубл»&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A1;n0);11;2)-11;100);9);10);{0;»ь «:1;»я «:4;»ей «};2)&ПРАВСИМВ(ТЕКСТ(A1;n0);2)&» копе»&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(A1;n0);2)-11;100);9);10);{0;»йка»:1;»йки»:4;»ек»};2);» )»;»)»)

2) Формула 2

=ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);2;1)+1;ПСТР(ТЕКСТ(A1;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);1;3);»миллиард»&ВПР(ПСТР(ТЕКСТ(A1;n0);3;1)*И(ПСТР(ТЕКСТ(A1;n0);2;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);5;1)+1;ПСТР(ТЕКСТ(A1;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);4;3);»миллион»&ВПР(ПСТР(ТЕКСТ(A1;n0);6;1)*И(ПСТР(ТЕКСТ(A1;n0);5;1)-1);мил;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(A1;n0);8;1)+1;ПСТР(ТЕКСТ(A1;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;n0);7;3);ВПР(ПСТР(ТЕКСТ(A1;n0);9;1)*И(ПСТР(ТЕКСТ(A1;n0);8;1)-1);тыс;2);»»)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A1;n0);10;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A1;n0);11;1)+1;ПСТР(ТЕКСТ(A1;n0);12;1)+1));»z»;» «)&ЕСЛИ(ОТБР(ТЕКСТ(A1;n0));»»;»Ноль «)&»рубл»&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A1;n0);11;2)-11;100);9);10);{0;»ь «:1;»я «:4;»ей «};2)&ПРАВСИМВ(ТЕКСТ(A1;n0);2)&» копе»&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(A1;n0);2)-11;100);9);10);{0;»йка»:1;»йки»:4;»ек»};2)

3) Формула 3

При необходимости формулу можно подогнать под нужный формат.

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

Если же у Вас уже есть готовый файл с заполненными данными и Вам необходимо добавить возможность написания суммы прописью, то чтобы формула заработала, необходимо сделать некоторые подготовительные действия, а именно добавить справочники, которые использует формула. В данном примере справочники заданы как именованные диапазоны (это решение хорошо тем, что пользователь эти диапазоны не видит на листах и соответственно не сможет лишний раз что-то испортить).

Итак, нам необходимо сделать следующие справочники:

Имя диапазона: n_1

Диапазон:

={«»;»одинz»;»дваz»;»триz»;»четыреz»;»пятьz»;»шестьz»;»семьz»;»восемьz»;»девятьz»}

Имя диапазона: n_2

Диапазон:

={«десятьz»;»одиннадцатьz»;»двенадцатьz»;»тринадцатьz»;»четырнадцатьz»;»пятнадцатьz»;»шестнадцатьz»;»семнадцатьz»;»восемнадцатьz»;»девятнадцатьz»}

Имя диапазона: n_3

Диапазон:

={«»:1:»двадцатьz»:»тридцатьz»:»сорокz»:»пятьдесятz»:»шестьдесятz»:»семьдесятz»:»восемьдесятz»:»девяностоz»}

Имя диапазона: n_4

Диапазон:

={«»;»стоz»;»двестиz»;»тристаz»;»четырестаz»;»пятьсотz»;»шестьсотz»;»семьсотz»;»восемьсотz»;»девятьсотz»}

Имя диапазона: n_5

Диапазон:

={«»;»однаz»;»двеz»;»триz»;»четыреz»;»пятьz»;»шестьz»;»семьz»;»восемьz»;»девятьz»}

Имя диапазона: n0

Диапазон:

=»000000000000″&ПСТР(1/2;2;1)&»00″

Имя диапазона: n0x

Диапазон:

=ЕСЛИ(n_3=1;n_2;n_3&n_1)

Имя диапазона: n1x

Диапазон:

=ЕСЛИ(n_3=1;n_2;n_3&n_5)

Имя диапазона: мил

Диапазон:

={0;»овz»:1;»z»:2;»аz»:5;»овz»}

Имя диапазона: тыс

Диапазон:

={0;»тысячz»:1;»тысячаz»:2;»тысячиz»:5;»тысячz»}

Чтобы создать справочник таких диапазонов, переходим на вкладку «Формулы» — «Диспетчер имен«:

В открывшемся окне нажимаем кнопку «

Создать » и в форме вводим данные первого диапазона из таблицы:

Далее таким же образом вводим все остальные диапазоны из таблицы:

Всё, теперь можно использовать указанные выше формулы: вставьте формулу в ячейку, где необходимо отобразить число прописью, а в самой формуле (можно через любой текстовый редактор)

замените адрес «A1» на адрес той ячейки, где располагается исходное число.

Ella S.

Основано на материалах форума excelworld.ru/forum/3-9902

Если Вам понравилась статья, пожалуйста, поставьте лайк, сделайте репост или оставьте комментарий. Если у Вас есть какие-либо замечания, также пишите комментарии.

Источник

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

Зачем это нужно

Число, указанное прописью, применяют во многих бухгалтерских документов. Если фирма использует специальные программы, например 1С для формирования отчетности, то такой потребности не возникнет. Но когда нужно ввести сумму прописью при заполнении бумаг в обычных программах, могут возникнуть проблемы. Это требует большого количества времени, поэтому встает вопрос об автоматизации процесса.

Кроме специалистов, которым на работе нужно указать буквенное значение числа, обычным пользователям тоже может потребоваться такой ввод для своих личных целей.

Использование надстройки

В Экселе отсутствует стандартный инструмент, позволяющий добавить сумму прописью, для этого применяют специальные надстройки. Одна из популярных надстроек — NUM2TEXT, которую можно скачать бесплатно. Она меняет цифровые значения на буквенные с помощью Мастера функций. Предварительно необходимо загрузить и сохранить на жестком диске компьютера файл NUM2TEXT.xla.

Преобразовать числа в текст прописью в Excel 2007, 2010, 2016, можно следующим образом:

Запустить Эксель и зайти в раздел «файл».
Кликнуть на строку «параметры».
Откроется окошко, в котором необходимо перейти в пункт «надстройки».
Внизу в строке «управление» поставить значение «надстройки Эксель» и щелкнуть на элемент «перейти».
Появится маленькое окно, в котором требуется нажать на кнопку «обзор».
В появившемся окошке найти предварительно скачанный файл, выделить его и кликнуть на ОК.
Инструмент появился в доступных надстройках. Поставить галочку в квадратике рядом с ним и снова щелкнуть мышкой на ОК.
Теперь нужно проверить функционирование надстройки. Для этого в любой ячейке ввести произвольное число.
Выделить любой другой элемент и кликнуть на ярлычок «вставить функцию», находящийся с левой стороны от строчки формулы.
Открыть мастер функций, в предложенном списке найти «сумма прописью». Выделить ее и кликнуть на ОК.
В окошке «аргументы функции» в строке «сумма» вписать нужное числовое значение. Оно сразу отобразится в указанной области в рублях и копейках прописью.
В строчке можно указать адрес любой ячейки. Возможны 2 варианта – ручным способом через запись координат или простым нажатием на нее в тот момент, когда указатель мышки стоит в поле «сумма». Щелкнуть на ОК.
Далее цифра, введенная в ячейку, отобразится в стоимостном выражении прописью в той клетке, где стоит формула.

Использование формулы

Опцию записи значения прописью можно запустить вручную, не прибегая к помощи мастера функций. Но для преобразования числа в текст сначала нужно составить формулу. Примеры различных формул под разные требования можно найти на специализированном форуме.

Синтаксис обычно такой: Сумма_прописью (сумма) или Сумма_прописью (координаты_ячейки).

Если пользователь напечатает в ячейке формулу =Сумма_прописью (74) и нажмет на клавишу ENTER, то в ней автоматически появится текст «семьдесят четыре рубля 00 копеек» (с копейками или без зависит от самой формулы).

Если пользователь напечатает в ячейке =Сумма прописью (А3), то цифра, стоящая в клетке А3, отобразится в запрашиваемом формате.

Скрипт VBA

Далее представлена подготовленная функция на VBA для пользователей, которая переведет цифровой показатель от 0 до 9 999 999 в его текстовое выражение, т.е. в сумму прописью. Сначала ее потребуется занести в книгу. Алгоритм действий:

нажимают одновременно на ALT+F11, откроется редактор Visual Basic;
добавляют новый пустой модуль посредством меню Insert – Module;
копируют и добавляют туда скрипт:

Function СУММАПРОПИСЬЮ(n As Double) As String
 
 Dim Nums1, Nums2, Nums3, Nums4 As Variant
 
 Nums1 = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
 Nums2 = Array("", "десять ", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
 Nums3 = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
 Nums4 = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
 Nums5 = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ",  "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
 If n <= 0 Then
   СУММАПРОПИСЬЮ = "ноль"
   Exit Function
 End If
 'разделяем число на разряды, используя вспомогательную функцию Class
 ed = Class(n, 1)
 dec = Class(n, 2)
 sot = Class(n, 3)
 tys = Class(n, 4)
 dectys = Class(n, 5)
 sottys = Class(n, 6)
 mil = Class(n, 7)
 decmil = Class(n, 8)
 'проверяем миллионы
 Select Case decmil
   Case 1
     mil_txt = Nums5(mil) & "миллионов "
     GoTo www
   Case 2 To 9
     decmil_txt = Nums2(decmil)
 End Select
 Select Case mil
   Case 1
     mil_txt = Nums1(mil) & "миллион "
   Case 2, 3, 4
     mil_txt = Nums1(mil) & "миллиона "
   Case  5 To 20
     mil_txt = Nums1(mil) & "миллионов "
 End Select
 www:
 sottys_txt = Nums3(sottys)
 'проверяем тысячи
 Select Case dectys
   Case 1
     tys_txt = Nums5(tys) & "тысяч "
     GoTo eee
   Case 2 To 9
     dectys_txt = Nums2(dectys)
 End Select
 Select Case tys
   Case 0
     If dectys > 0 Then tys_txt = Nums4(tys) & "тысяч "
   Case 1
     tys_txt = Nums4(tys) & "тысяча "
   Case 2, 3, 4
     tys_txt = Nums4(tys) & "тысячи "
   Case 5 To 9
     tys_txt = Nums4(tys) & "тысяч "
 End Select
 If dectys = 0 And tys = 0 And sottys <> 0 Then sottys_txt = sottys_txt & " тысяч "
 eee:
 sot_txt = Nums3(sot)
 'проверяем десятки
 Select Case dec
   Case 1
     ed_txt = Nums5(ed)
     GoTo rrr
   Case 2 To 9
     dec_txt = Nums2(dec)
 End Select
 ed_txt = Nums1(ed)
 rrr:
 'формируем итоговую строку
 СУММАПРОПИСЬЮ = decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt
End Function
'вспомогательная функция для выделения из числа разрядов
Private Function Class(M, I)
  Class = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1))
End Function

Сохраняют файл и возвращаются в Excel. Затем вставляют функцию в любую клетку листа книги привычным способом — через мастер функций или просто набирают ее в ячейке вручную, а в качестве аргумента указывают ячейку с суммой.

Источник

Использование надстройки

Одной из самых удобных является надстройка NUM2TEXT. Она позволяет поменять цифры на буквы через Мастер функций.

Открываем программу Excel и переходим во вкладку «Файл».

Перемещаемся в раздел «Параметры».

В активном окне параметров переходим в раздел «Надстройки».

Далее, в параметре настроек «Управление» устанавливаем значение «Надстройки Excel». Жмем на кнопку «Перейти…».

Открывается небольшое окно надстроек Excel. Жмем на кнопку «Обзор…».

В открывшемся окне ищем предварительно скачанный и сохраненный на жесткий диск компьютера файл надстройки NUM2TEXT.xla. Выделяем его и жмем на кнопку «OK».

Мы видим, что данный элемент появился среди доступных надстроек. Ставим галочку около пункта NUM2TEXT и жмем на кнопку «OK».

Для того, чтобы проверить как работает только что установленная надстройка пишем в любой свободной ячейке листа произвольное число. Выделяем любую другую ячейку. Кликаем по значку «Вставить функцию». Он расположен слева от строки формул.

Запускается Мастер функций. В полном алфавитном перечне функций ищем запись «Сумма_прописью». Её раньше не было, но она появилась тут после установки надстройки. Выделяем эту функцию. Жмем на кнопку «OK».

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

Можно в поле занести адрес любой ячейки. Это делается либо путем ручной записи координат этой ячейки, либо простым кликом по ней в то время, когда курсор находится в поле параметра «Сумма». Жмем на кнопку «OK».

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

Функцию можно также записать и вручную без вызова мастера функций. Она имеет синтаксис Сумма_прописью(сумма) или Сумма_прописью(координаты_ячейки). Таким образом, если вы в ячейке запишите формулу =Сумма_прописью(5) , то после нажатия кнопки ENTER в этой ячейке отобразиться надпись «Пять рублей 00 копеек».

Еще статьи по данной теме:

Помогла ли Вам статья?

Источник

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

Смотрите также не можете описатьРеализовано формулой и 2003 Excel. нужную валюту в — для тысяч shag — 1, -1 shag = 1, «восемнадцать рублей», евро», IIf(Valuta = n As String, «: n = «ж») strТысячи =Тогда, например, для числа & «тысяч « отображаться тут денежной пишем в любойПри заполнении различных финансовых словами. два варианта UDFMCH

сумме прописью: склонение «один» и

Использование надстройки

1) = 0 shag + 1 «восемнадцать долларов»)) Edinicy(19) 1, «четыре рубля», Имя1 As String, Right(n, 1) Case strТысячи & ИмяРазряда(strТысячи,

35,15 результат функции Case 1 tys_txt суммой прописью. свободной ячейке листа документов часто требуется

PelenaMCH: Число прописью с1-рубли;
«два» неприменимо ( And vl = Select Case x
= «девятнадцать «: «четыре доллара»)) Edinicy(5) Имя24 As String, «5»: Десятки =
Mid(strЧисло, Поз + будет выглядеть как = Nums4(tys) &Как видим, несмотря на произвольное число. Выделяем прописать сумму не: Алексей, дело в
: Сумма прописью на долями2-доллары; поэтому вводим переменную «0») Then GoTo
Case 12 ‘ EdinicyPoslednie(19) = IIf(Valuta = «пять «: ИмяПроч As String) «пятьдесят «: n 1, 2), «тысяча «тридцать пять руб. «тысяча » Case то, что в
любую другую ячейку. только числом, но том, что у туркменском, азербайджанском (кириллицейФормула базируется на0-евро; Sclon_Tys ) If 10 End If
— сотни миллиардов = 0, «девятнадцать EdinicyPoslednie(5) = IIf(Valuta As String If = Right(n, 1) «, «тысячи «, 15 коп.» 2, 3, 4 Excel нет встроенного Кликаем по значку и прописью. Конечно,
Евгении не MS и латиницей) и предыдущей формулеКак видите, этот VBA-код shag > 1 If shag > vl = Mid(SumInt, евро», IIf(Valuta = = 0, «пять Строка <> «» Case «6»: Десятки «тысяч «) ‘Единицы’
Часто нужно перевести число tys_txt = Nums4(tys) инструмента для преобразования«Вставить функцию» это занимает гораздо Excel, а какая-то турецком языкахОсобенности: макроса преобразует числа Then If Mid(SumInt, 1 Then If shag, 1) txt

1, «девятнадцать рублей», евро», IIf(Valuta = Then ИмяРазряда = = «шестьдесят «: Поз = 10 в текст в & «тысячи « чисел в сумму. Он расположен слева больше времени, чем другая похожая программа,Функция на турецком1. Без макросов. в слова. После
shag — 1, Mid(SumInt, shag - = txt & «девятнадцать долларов»)) »——————————————— 1, «пять рублей», «» Select Case n = Right(n, strЕдиницы = Сотни(Mid(strЧисло,

Excel так, чтобы Case 5 To прописью, эту возможность от строки формул. обычное написание с якобы совместимая с реализована не полностью2. Работает до вставки данного кода 1) = 1 1, 1) = Sotni(vl) Case 11 Desyatki(0) = «»: «пять долларов»)) Edinicy(6) Left(n, 1) Case 1) Case «7»: Поз, 1)) strЕдиницы

оно отображалось прописью 9 tys_txt = можно довольно легкоЗапускается Мастер функций. В помощью цифр. Если Excel (помню по (отсутствуют копейки) 999 млрд. в модуль редактора

Then Sclon_Tys = 1 Then txt ‘ — десятки Sotni(0) = «»: = «шесть «: «0», «2», «3», Десятки = «семьдесят = strЕдиницы & (словами) на русском Nums4(tys) & «тысяч

получить, просто установив

lumpics.ru

Сумма прописью

полном алфавитном перечне подобным образом нужно предыдущему обсуждению)EvgeniyaD3. Округляет число макросов, у нас Edinicy(Mid(SumInt, shag - = txt & миллиардов vl = tys(0) = «тисячь EdinicyPoslednie(6) = IIf(Valuta «4», «5», «6», «: n =

Десятки(Mid(strЧисло, Поз + или других языках. » End Select необходимую надстройку в
функций ищем запись заполнить не одно,Alex_ST
: Раз предыдущий топик до 6 знаков

работает новая функция, 1, 2)) & Edinicy(Mid(SumInt, shag - Mid(SumInt, shag, 1) «: mln(0) = = 0, «шесть «7», «8», «9»: Right(n, 1) Case 1, 2), «м») Так как по If dectys = программу.«Сумма_прописью» а много документов,: А-а-а… Так вот, удалился, напишу вопрос после запятой. которую можно вызвать «тисяч » End 1, 2)) & If vl = «миллионов «: mlrd(0) евро», IIf(Valuta = n = Right(n, «8»: Десятки = If strМиллиарды & умолчанию нет готовой 0 And tysАвтор: Максим Тютюшев. Её раньше не то временные потери похоже, в чём заново здесь. Как4. Делает первую из мастера (кнопка If txt = «мільйонів » Else: «1» And Mid(SumInt, = «миллиардов « 1, «шесть рублей», 1) End Select «восемьдесят «: n strМиллионы & strТысячи функции, создадим свою = 0 AndНиже вы найдете готовую было, но она становятся огромными. Кроме собака порылась! только в вставила, букву прописной, остальные fx возле строки txt & Sclon_Tys txt = txt shag + 1, Desyatki(1) = «десять «шесть долларов»)) Edinicy(7) Select Case n = Right(n, 1) & strЕдиницы = пользовательскую функцию с sottys <> 0 пользовательскую функцию на появилась тут после того, именно вНу так предупреждать формула работала как строчные. формул). ‘-КОНЕЦ БЛОКА_______________________ Case & Edinicy(vl) & 1) <> 0 «: Sotni(1) = = «семь «: Case «1»: ИмяРазряда Case «9»: Десятки «» Then strЕдиницы помощью макросов. Then sottys_txt = VBA, которая переводит установки надстройки. Выделяем записи суммы прописью же надо было, часы. но после5. Если числоСкачать число прописью в 3 ‘ - mln(vl) ‘числа в Then GoTo 10

«сто «: tys(1) EdinicyPoslednie(7) = IIf(Valuta = Имя1 Case = «девяносто «: = «ноль «Для создания пользовательской функции, sottys_txt & « любое число эту функцию. Жмем наиболее часто встречаютсяEvgeniyaD закрытия и открытия целое, например 121, Excel. сотни vl = диапозоне от 11_{Else txt =} = «тысяча «: = 0, «семь «2», «3», «4»: n = Right(n, ‘strЕдиницы = strЕдиницы которая сможет перевести тысяч » eee:от 0 до 9

на кнопку грамматические ошибки. Давайте, а не морочить документа в начале то результат будет

Теперь вы можете быстро

Mid(SumInt, shag, 1)

до 19 склоняются txt & Desyatki(vl) mln(1) = «миллион евро», IIf(Valuta = ИмяРазряда = Имя24

planetaexcel.ru

Как перевести сумму или число прописью в Excel

1) End Select & ИмяРазряда(» «, число в текст sot_txt = Nums3(sot) 999 999«OK» выясним, как сделать голову людям. появились какие-то нули. «Сто двадцать один», перевести сумму в

txt = txt на «мільярдов» независимо ‘ — если «: mlrd(1) = 1, «семь рублей», Case Else: ИмяРазряда

Dim Двадцатка As
Mid(strЧисло, Поз + прописью , нам ‘проверяем десятки Selectв его текстовое. так, чтобы числаС Вашим фальшивым В чем может если дробное - слова прописью. Чтобы
& Sotni(vl) Case от последнего числа

конец триады от

«миллиарда » Desyatki(2) «семь долларов»)) Edinicy(8) = ИмяПроч End String Двадцатка = 1, 2), «рубль нужно выполнить 3 Case dec Case представление, т.е. вОтрывается окно аргументов функции прописью вносились автоматически. Excel’ем быть дело и 121,22, то результат воспользоваться готовым решением 2 ‘ - триады Else txt 11 до 19 = «двадцать «: = «восемь «: Select End If «» Select Case «, «рубля «, простых шага: 1 ed_txt = сумму прописью. ПередСумма_прописьюСкачать последнюю версиюВам тогда не возможно ли это получится «Сто двадцать рекомендуем скачать пример десятки vl = = txt & то перескакиваем на Sotni(2) = «двести EdinicyPoslednie(8) = IIf(Valuta End Function n Case «0»: «рублей «) ‘Сотые’Открыть редактор макросов ALT+F11. Nums5(ed) GoTo rrr использованием, эту функцию. Оно содержит только Excel в этот раздел, исправить? Спасибо. одна целая двадцать числа прописью в Mid(SumInt, shag, 1) Edinicy(vl) & mln(vl) единицы, иначе - «: tys(2) = = 0, «восемьМожно написать алгоритм макро Двадцатка = «» ‘strСотые = strКопейкиСоздать новый модуль и Case 2 To необходимо добавить в одно полеВ Эксель нет встроенного а в «ДругиеMCH две сотых». Excel. Данный файл If vl = End If ‘-КОНЕЦ формируем десятки Case «тысячи «: mln(2) евро», IIf(Valuta = программы по-другому и Case «1» Select & » « в нем нужно 9 dec_txt = вашу книгу. Для«Сумма» инструмента, который бы приложения», где о: Открыл файл в6. Формула получилась содержит уже готовую «1» And Mid(SumInt, БЛОКА_______________________ Case 6 10 ‘ - = «миллиона «: 1, «восемь рублей», еще сделать так, Case Sex Case & ИмяРазряда(strКопейки, Right(strКопейки, написать функцию особенным Nums2(dec) End Select этого:. Сюда можно записать помогал автоматически переводить всяких Опен-Дроид- и MS Excel 2010 большая и не пользовательскую функцию и shag + 1, ‘ — сотни единицы миллиардов vl mlrd(2) = «миллиарда «восемь долларов»)) Edinicy(9) чтобы она дописывала «м»: Двадцатка = 2), ‘»копейка», «копейки», способом: Function вместо ed_txt = Nums1(ed)нажмите сочетание клавиш обычное число. Оно цифры в слова. прочих Офисах проблемыНулей не увидел, редактируется в Ex2003, VBA-код макроса, который 1) <> 0 тысяч vl = = Mid(SumInt, shag, » Desyatki(3) = = «девять «: валюту суммы прописью. «один » Case «копеек») ЧислоПропись = Sub. Тогда наша rrr: ‘формируем итоговуюALT+F11 в выделенной ячейке Поэтому для решения и обсуждают. в ячейке А56 но работает в доступен в модуле Then GoTo 10 Mid(SumInt, shag, 1) 1) If shag «тридцать «: Sotni(3) EdinicyPoslednie(9) = IIf(Valuta Для этого создайте «ж»: Двадцатка = strМиллиарды & strМиллионы функция «ЧислоПропись» будет строку СУММАПРОПИСЬЮ =, чтобы открыть редактор отобразиться в формате поставленной задачи используютEvgeniyaD находится текст: «Две нем и свободно из редактора. Else txt = txt = txt > 1 Then = «триста «: = 0, «девять Module2 и введите «одна » Case & strТысячи & отображаться в списке decmil_txt & mil_txt Visual Basic записанной прописью денежной специальные надстройки.: Alex_ST, Pelena права, тысячи шестьдесят восемь копируется.MCH txt & Desyatki(vl) & Sotni(vl) Case If Mid(SumInt, shag tys(3) = «тысячи евро», IIf(Valuta = в него следующий «с»: Двадцатка = strЕдиницы ЧислоПропись = мастера функций (SHIFT+F3), & sottys_txt &добавьте новый пустой модуль суммы в рубляхОдной из самых удобных у тех, для рублей 00 копеек»MCH: ‘ — если 5 ‘ - — 1, 1) «: mln(3) = 1, «девять рублей», код: «одно » End UCase(Left(ЧислоПропись, 1)) & в категории «Определенные dectys_txt & tys_txt через меню и копейках. является надстройка NUM2TEXT. кого я этоAlex_ST: Сумма прописью наВ связи с удалением конец триады от десятки тысяч vl = 1 Then «миллиона «: mlrd(3) «девять долларов»)) Edinicy(11)Function ЧислоПрописьюВалюта(SumBase As Double, Select Case «2»: Right(ЧислоПропись, Len(ЧислоПропись) - пользователем». & sot_txt &Insert — ModuleМожно в поле занести Она позволяет поменять делаю, к сожалению,: «В начале» это русском (MSumProp) и оригинальной темы (http://www.excelworld.ru/forum/3-3521-1), 11 до 19 = Mid(SumInt, shag, txt = txt = «миллиарда « = «одиннадцать «:

Valuta As Integer) Select Case Sex 1) Exit FunctionВставить в модуль следующий dec_txt & ed_txtскопируйте и вставьте туда адрес любой ячейки. цифры на буквы не excel, а

где? На каком на украинском (MSumPropUkr) размещаю дубликат то перескакиваем на 1) If vl & Edinicy(Mid(SumInt, shag Desyatki(4) = «сорок EdinicyPoslednie(11) = IIf(Valuta Dim Edinicy(0 To Case «м»: Двадцатка Число_Error: MsgBox Err.Description код и сохранить: End Function ‘вспомогательная текст этой функции: Это делается либо через Мастер функций. libreoffice листе? В какой языках, реализовано сРешил опубликовать собственные единицы, иначе - = 1 And — 1, 2)) «: Sotni(4) = = 0, «одиннадцать 19) As String: = «два « End Function Function функция для выделенияFunction СУММАПРОПИСЬЮ(n As путем ручной записиОткрываем программу Excel иСпасибо за отклики. ячейке? помошью UDF наработки в этом формируем десятки Case Mid(SumInt, shag + & «мільярдів « «четыреста «: tys(4) евро», IIf(Valuta = Dim EdinicyPoslednie(0 To Case «ж»: Двадцатка Сотни(n As String)Function ЧислоПропись(Число As Currency) из числа разрядов Double) As String координат этой ячейки, переходим во вкладкуAlex_STУ Вас наОсобенности: направлении. 1 ‘ - 1, 1) <> Else txt = = «тысячи «: 1, «одиннадцать рублей», 19) As String = «две « As String Сотни As String ‘до Private Function Class(M, Dim Nums1, Nums2, либо простым кликом«Файл»: листе «Гарантированный» в1. Работают доЕсть решения на единицы If Mid(SumInt, 0 Then GoTo txt & Edinicy(vl) mln(4) = «миллиона «одиннадцать долларов»)) Edinicy(12) Dim Desyatki(0 To Case «с»: Двадцатка = «» Select 999 999 999 I) Class = Nums3, Nums4 As по ней в.EvgeniyaD начале в ячейках 999 трлн. формулах и с shag — 1, 10 Else txt & mlrd(vl) ‘числа «: mlrd(4) = = «двенадцать «: 9) As String: = «Два « Case n Case 999 On Error Int(Int(M — (10 Variant Nums1 = то время, когдаПеремещаемся в раздел, загляните-ка СЮДА . А5:А11 битая формула,2. Делают первую помощью UDF. 1) <> 1 = txt & в диапозоне от «миллиарда » Desyatki(5) EdinicyPoslednie(12) = IIf(Valuta Dim Sotni(0 To End Select Case 0: Сотни = GoTo Число_Error Dim ^ I) * Array(«», «один «, курсор находится в«Параметры» Там про Word, возвращающая значение букву прописной, остальныеТак как представлены Or Mid(SumInt, shag Desyatki(vl) ‘ - 11 до 19 = «пятьдесят «: = 0, «двенадцать 9) As String: «3»: Двадцатка = «» Case 1: strМиллиарды As String, Int(M / (10 «два «, «три поле параметра. но поищите вокруг,#ССЫЛКА! строчные. прописи не только — 1, 2) если конец триады склоняются на «мільярдов» Sotni(5) = «пятьсот евро», IIf(Valuta = Dim mlrd(0 To «три » Case Сотни = «сто strМиллионы As String, ^ I))) / «, «четыре «,«Сумма»В активном окне параметров нет ли там. Наверное, что-то удалили3. Округляют до на русском языке, = «10» Then от 11 до независимо от последнего «: tys(5) = 1, «двенадцать рублей», 9) As String «4»: Двадцатка = » Case 2: strТысячи As String, 10 ^ (I «пять «, «шесть. Жмем на кнопку переходим в раздел чего ценного и не аккуратно, потому целых копеек. то если вы vl = Mid(SumInt, 19 то перескакиваем числа триады Else «тысяч «: mln(5) «двенадцать долларов»)) Edinicy(13) Dim mln(0 To «четыре » Case Сотни = «двести strЕдиницы As String, — 1)) End «, «семь «,«OK»«Надстройки» про Excel ? и ошибка.4. Функции получились найдете ошибки в shag, 1) Else на единицы, иначе txt = txt = «миллионов «: = «тринадцать «: 9) As String: «5»: Двадцатка = » Case 3: strСотые As String Function «восемь «, «девять..Да и убедитьсяНо это явно относительно небольшими по написании числительных, прошу vl = Mid(SumInt, — формируем десятки & Edinicy(vl) & mlrd(5) = «миллиардов EdinicyPoslednie(13) = IIf(Valuta Dim tys(0 To «пять » Case Сотни = «триста Dim Поз AsСохраните файл (если у «) Nums2 =После этого, любое число,Далее, в параметре настроек в установке самых не из-за формулы сравнению с другими сообщить, внесу соответствующие shag — 1, Case 4 ‘ mlrd(vl) End If » Desyatki(6) = = 0, «тринадцать 9) As String «6»: Двадцатка = » Case 4: Integer strЧисло = вас Excel 2007 Array(«», «десять «, которое записано в«Управление» свежих версий как вычисления суммы прописью, аналогичными реализациями поправки 2) txt = — единицы тысяч ‘-КОНЕЦ БЛОКА_______________________ Case «шестьдесят «: Sotni(6) евро», IIf(Valuta = Dim SumInt, x, «шесть » Case Сотни = «четыреста Format(Int(Число), «000000000000») ‘Миллиарды’ или 2010, то «двадцать «, «тридцать ячейку, указанную вами,устанавливаем значение самого LibreOffice, так которая на листеMCHДля начала, сумма txt & EdinicyPoslednie(vl) vl = Mid(SumInt, 9 ‘ - = «шестьсот «: 1, «тринадцать рублей», shag, vl As «7»: Двадцатка = » Case 5: Поз = 1 тип файла должен «, «сорок «, будет отображаться в«Надстройки Excel» и пакетов совместимости «А» в ячейке: Время прописью прописью без использования ‘-КОНЕЦ БЛОКА_______________________ End shag, 1) If сотни миллионов vl tys(6) = «тысяч «тринадцать долларов»)) Edinicy(14) Integer: Dim txt, «семь » Case Сотни = «пятьсот strМиллиарды = Сотни(Mid(strЧисло, быть с поддержкой «пятьдесят «, «шестьдесят денежном виде прописью. Жмем на кнопку не помешает А56 работает нормально.Особенности: макросов. Select 10: Next shag > 2 = Mid(SumInt, shag, «: mln(6) = = «четырнадцать «: Sclon_Tys As String «8»: Двадцатка = » Case 6: Поз, 1)) strМиллиарды макросов, т.е. в «, «семьдесят «, в том месте,«Перейти…»AlumpEvgeniyaD1. Реализовано формулой,Особенности: x a = Then If (Mid(SumInt, 1) txt = «миллионов «: mlrd(6) EdinicyPoslednie(14) = IIf(Valuta ‘——————————————— Application.Volatile ‘——————————————— «восемь » Case Сотни = «шестьсот = strМиллиарды & формате xlsm!) и _ «восемьдесят «, где установлена формула.: Добрый день!: MCH, ясно. Отображается без макросов.1. Без макросов. SumBase b = shag — 2, txt & Sotni(vl) = «миллиардов « = 0, «четырнадцать Edinicy(0) = «»: «9»: Двадцатка = » Case 7: Десятки(Mid(strЧисло, Поз + вернитесь в Excel. «девяносто «) Nums3 функции.Открывается небольшое окно надстроекМожно ли сделать у нас по-разному.2. Работает только Пропись реализована формулой Int(a) c = 1) = 0 Case 8 ‘ Desyatki(7) = «семьдесят евро», IIf(Valuta = EdinicyPoslednie(0) = IIf(Valuta «девять » Case Сотни = «семьсот 1, 2), «м») Теперь вы можете = Array(«», «стоФункцию можно также записать Excel. Жмем на что бы копейки Alex_ST, «гарантированный» просто с часами и с использованием имен. (a — b) And Mid(SumInt, shag — десятки миллионов «: Sotni(7) = 1, «четырнадцать рублей», = 0, «евро», «10»: Двадцатка = » Case 8: strМиллиарды = strМиллиарды вставить созданную функцию «, «двести «, и вручную без кнопку тоже писались прописью? забыла удалить. Я минутами, отбрасывая секунды.2. Не привязана * 100 If — 1, 1) vl = Mid(SumInt, «семьсот «: tys(7) «четырнадцать долларов»)) Edinicy(15) IIf(Valuta = 1, «десять » Case Сотни = «восемьсот & ИмяРазряда(strМиллиарды, Mid(strЧисло, в любую ячейку «триста «, «четыреста вызова мастера функций.«Обзор…»Заранее спасибо! имела ввиду именно3. Все реализовано к диапазонам, можно c = 0 = 0 And shag, 1) If = «тысяч «: = «пятнадцать «: «рублей», «долларов»)) Edinicy(1) «11»: Двадцатка = » Case 9: Поз + 1, листа этой книги «, «пятьсот «, Она имеет синтаксис.Gustav ячейку а56. Но, в одной формуле легко копировать/переносить, в Then c = vl = «0») vl = «1» mln(7) = «миллионов EdinicyPoslednie(15) = IIf(Valuta = «один «: «одиннадцать » Case Сотни = «девятьсот 2), «миллиард «, обычным способом - «шестьсот «, «семьсотСумма_прописью(сумма)В открывшемся окне ищем: Хм… А почему видимо, зависит от без ссылок на т.ч. и в CStr(c) + «0» Then GoTo 10 And Mid(SumInt, shag «: mlrd(7) = = 0, «пятнадцать EdinicyPoslednie(1) = IIf(Valuta «12»: Двадцатка = » End Select «миллиарда «, «миллиардов

через мастер функций «, _ «восемьсотили предварительно скачанный и она была удалена? программы. имена, при этом

другие книги.
d = «»
End If Sclon_Tys

+ 1, 1) «миллиардов » Desyatki(8) евро», IIf(Valuta = = 0, «один «двенадцать » Case End Function Function «) ‘Миллионы’ Поз (кнопка «, «девятьсот «)Сумма_прописью(координаты_ячейки) сохраненный на жесткий

У меня тамAlex_ST

формула чуть более3. Работает до If Valuta = = Edinicy(vl) & <> 0 Then = «восемьдесят «: 1, «пятнадцать рублей», евро», IIf(Valuta = «13»: Двадцатка = Десятки(n As String, = 4 strМиллионыf

exceltable.com

Суммы и числа прописью (Excel)

 Nums4 = Array(«»,. Таким образом, если диск компьютера файл была выложена в: Да похоже, что
700 знаков и 999 млрд. руб. 1 Then d
tys(vl) ‘ - GoTo 10 Else Sotni(8) = «восемьсот
«пятнадцать долларов»)) Edinicy(16) 1, «один рубль», «тринадцать » Case Sex As String) = Сотни(Mid(strЧисло, Поз,x «одна «, «две вы в ячейке
надстройки NUM2TEXT.xla. Выделяем текстовом файле процедурка от версии Офиса
легко редактируется в
4. Делает первую = «коп.» Else вводим переменную Sclon_Tys
txt = txt «: tys(8) = = «шестнадцать «: «один доллар»)) Edinicy(2) «14»: Двадцатка =
As String Десятки 1)) strМиллионы =
в строке формул, «, «три «, запишите формулу
его и жмем на эту тему, как раз и 2003 Excel.
букву прописной, остальные d = «цен.» из-за иного склонения & Desyatki(vl) ‘ «тысяч «: mln(8) EdinicyPoslednie(16) = IIf(Valuta
= «два «: «четырнадцать » Case = «» Select strМиллионы & Десятки(Mid(strЧисло,

 категория «четыре «, «пять=Сумма_прописью(5)
на кнопку которая хоть и
не зависит.
MCH
строчные. If Valuta >
тысяч в русском — если конец = «миллионов «:
= 0, «шестнадцать EdinicyPoslednie(2) = IIf(Valuta «15»: Двадцатка =
Case Left(n, 1) Поз + 1,Определенные пользователем «, «шесть «,, то после«OK» прошла незамеченной, ноМСН проверял Ваш: Дата прописью на
5. Правильно округляет 2 Or Valuta языке If vl триады от 11 mlrd(8) = «миллиардов евро», IIf(Valuta =

 = 0, «два «пятнадцать » Case Case «0»: Десятки 2), «м») strМиллионы) или просто набрав «семь «, «восемь
нажатия кнопки
. содержала в себе
файл на 2010, украинском языке до целых копеек,
2 Or Valuta = 1 Then
до 19 то » Desyatki(9) = 1, «шестнадцать рублей», евро», IIf(Valuta =

 «16»: Двадцатка = = «»: n
= strМиллионы &
ее в ячейке «, «девять «)
ENTERМы видим, что данный неплохой потенциал «масштабирования»
я — наРеализовано тремя вариантами: даже если копейки < 0 Then Sclon_Tys = «одна перескакиваем на единицы, «девяносто «: Sotni(9) «шестнадцать долларов»)) Edinicy(17)

 1, «два рубля», «шестнадцать » Case = Right(n, 1)
ИмяРазряда(strМиллионы, Mid(strЧисло, Поз
вручную и указав Nums5 = Array(«десятьв этой ячейке
элемент появился среди на любые числительные…
2003. Результат одинаковый1. Формулой с

 дробные. GoTo 11 ЧислоПрописьюВалюта » & tys(vl)
иначе — формируем = «девятьсот «:

 = «семнадцать «: «два доллара»)) Edinicy(3) «17»: Двадцатка = Case «1»: Десятки + 1, 2),
в качестве аргумента «, «одиннадцать «, отобразиться надпись «Пять

 доступных надстроек. Ставим Я, конечно, ее — на листе ссылкой на дополнительный6. Изменяет окончание = txt + ‘ — для десятки Case 7 tys(9) = «тысяч EdinicyPoslednie(17) = IIf(Valuta = «три «: «семнадцать » Case = «» Case «миллион «, «миллиона

 ячейку с суммой: «двенадцать «, «тринадцать рублей 00 копеек».
галочку около пункта попробую снова найти «А» в ячейке лист в слове «копейка»

 » » + тысяч склонение «один» ‘ — единицы «: mln(9) = = 0, «семнадцать
EdinicyPoslednie(3) = IIf(Valuta «18»: Двадцатка = «2»: Десятки = «, «миллионов «)Если вам необходимо добавить «, «четырнадцать «,Если вы введете в NUM2TEXT и жмем в своих залежах,
А56 сумму прописью2. Формулой с в соответствии с CStr(c) + d и «два» неприменимо миллионов vl =

 «миллионов «: mlrd(9) евро», IIf(Valuta = = 0, «три «восемнадцать » Case «двадцать «: n ‘Тысячи’ Поз = к полученному тексту _ «пятнадцать «, ячейку формулу

 на кнопку но всё-таки почему? формула выводит нормально. использованием имен правилами русского языка,
11: End Function ( поэтому вводим Mid(SumInt, shag, 1) = «миллиардов « 1, «семнадцать рублей», евро», IIf(Valuta = «19»: Двадцатка = = Right(n, 1)
7 strТысячи = копейки, то можно «шестнадцать «, «семнадцать=Сумма_прописью(A2)«OK»PelenaПоясните, что значит

3. с помощью а не простоЕсли мы указываем число переменную Sclon_Tys ) If shag > ‘——————————————— On Error «семнадцать долларов»)) Edinicy(18) 1, «три рубля», «девятнадцать » End

 Case «3»: Десятки Сотни(Mid(strЧисло, Поз, 1)) воспользоваться чуть более «, «восемнадцать «,
, то в.: Случайно «какие-то нули»? Речь UDF
«коп.». (от 0 до If vl = 2 Then If Resume Next SumInt = «восемнадцать «: «три доллара»)) Edinicy(4) Select Десятки = = «тридцать «:

 strТысячи = strТысячи сложной конструкцией: «девятнадцать «) If таком случае, любоеДля того, чтобы проверитьMCH про А56? НуMCH

7. Формула менее 2)в параметре второй 2 Then Sclon_Tys (Mid(SumInt, shag - = Int(SumBase) For EdinicyPoslednie(18) = IIf(Valuta = «четыре «: Десятки & Двадцатка n = Right(n,
& Десятки(Mid(strЧисло, Поз =СУММАПРОПИСЬЮ(A3)&» руб. «&ТЕКСТ((A3-ЦЕЛОЕ(A3))*100;»00″)&» коп.» n 0 Then число, внесенное в как работает только: Сделал на формулах

 так сделайте скриншот: Сумма прописью на
1000 знаков, и функции «ЧислоПрописьюВалюта» то = «дві «
2, 1) =

 x = Len(SumInt) = 0, «восемнадцать EdinicyPoslednie(4) = IIf(Valuta End Function Function 1) Case «4»: + 1, 2),=СУММАПРОПИСЬЮ(A3)&» руб. «&TEXT((A3-INT(A3))*100;»00″)&» коп.» tys_txt = Nums4(tys) ячейку A2 будет что установленная надстройка (без макросов), проверяйте и выложите, если таджикском языке спокойно редактируется в функция автоматически подставит & tys(vl) ‘

 0 And Mid(SumInt, To 1 Step

 евро», IIf(Valuta = = 0, «четыре ИмяРазряда(Строка As String,

excelworld.ru

Десятки = «сорок

Источник

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

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

С помощью VBA

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

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

С помощью VBA

Использование надстройки

Помогла ли вам эта статья?

Num2Text

Создание простой формулы

Сумма ячеек

Sumprop

Работа с формулами

СуммаПрописью

СуммаПрописьюГривны

СуммаПрописьюДоллары

СуммаПрописьюЕвро

ЧислоПрописью

Платные модули

Заключение

Видеоинструкция

Через функцию

Через формулу

Зачем это нужно

Использование надстройки

Использование формулы

Скрипт VBA

Использование надстройки

Еще статьи по данной теме:

Помогла ли Вам статья?

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

Использование надстройки

Сумма прописью

Как перевести сумму или число прописью в Excel

Суммы и числа прописью (Excel)

А вот еще интересные статьи: