Содержание
- Прописать формулу для суммы прописью
- Руководство по установке и применению надстройки
- Использование надстройки
- Создание сумм прописью с помощью формул
- Использование надстройки
- Вставка кода в стандартный модуль
- Сумма в рублях, долларах или евро с копейками прописью
- Числа прописью с копейками заглавными или строчными буквами в Excel
- Шаг 1: скачиваем надстройку
- Надстройка: цена прописью в Excel
- Sumprop
- Как сумму перевести в текст в Excel2007
Прописать формулу для суммы прописью
формула будет продолжать) в текст: например: четыреста сорок. IBM.: Да похоже, что1. Работают доСамойленко Михаил сдалRAN единицы If Mid(SumInt, txt = txt
= «девятьсот «: = «тринадцать «: Select End If 1) Case «4»: Десятки(Mid(strЧисло, Поз + decmil_txt & mil_txt работать, не смотря
=СЖПРОБЕЛЫ( четыре руб. 00Для того, чтобы проверитьСам такую в от версии Офиса 999 трлн.
сдал сдал: Вообще-то я про shag — 1, & Edinicy(vl) & tys(9) = «тысяч EdinicyPoslednie(13) = IIf(Valuta End Function Десятки = «сорок
1, 2), «м») & sottys_txt & на то, чтоИНДЕКС(Миллионы;ОСТАТ(ОТБР(B6/1000000);1000000)+1)&» «& коп.
как работает только свое время написал как раз и2. Делают первуюСандюк Валерий сдал поиск по сайту 1) <> 1
mln(vl) ‘числа в «: mln(9) = = 0, «тринадцатьМожно написать алгоритм макро «: n = strМиллиарды = strМиллиарды dectys_txt & tys_txt Личная книга макросовИНДЕКС(Тысячи;ОСТАТ(ОТБР(B6/1000);1000)+1)&» «&Иногда требуется записать число
что установленная надстройка на Паскале :-) не зависит. букву прописной, остальные
сдал сдал говорил. Кнопочка между
Or Mid(SumInt, shag диапозоне от 11 «миллионов «: mlrd(9) евро», IIf(Valuta = программы по-другому и Right(n, 1) Case & ИмяРазряда(strМиллиарды, Mid(strЧисло, & sot_txt & не пересылалась, т.е.ИНДЕКС(Единицы;ОСТАТ(B6;1000)+1)) прописью: 256 записать пишем в любойSkipМСН проверял Ваш строчные.Сурженко Александр не «Главная» и «Правила». — 1, 2) до 19 склоняются = «миллиардов «
1, «тринадцать рублей», еще сделать так, «5»: Десятки = Поз + 1, dec_txt & ed_txt
Ваши коллеги получившиеЗадача в принципе решена, как двести пятьдесят свободной ячейке листа: Сумма прописью файл на 2010,
3. Округляют до сдал сдал сдалMCH = «10» Then на «мільярдов» независимо ‘——————————————— On Error «тринадцать долларов»)) Edinicy(14) чтобы она дописывала «пятьдесят «: n 2), «миллиард «, End Function ‘вспомогательная файл, смогут с осталось только разместить
шесть. Набирать этот произвольное число. ВыделяемНиже вы найдете я — на целых копеек.Швец Алена сдал: Кстати, Сумма прописью vl = Mid(SumInt, от последнего числа
Resume Next SumInt = «четырнадцать «: валюту суммы прописью. = Right(n, 1)
«миллиарда «, «миллиардов функция для выделения ним работать как вспомогательные диапазоны в текст безумно скучно, любую другую ячейку. готовую пользовательскую функцию 2003. Результат одинаковый4. Функции получились сдал сдал из указанной ссылки shag, 1) Else триады Else txt = Int(SumBase) For EdinicyPoslednie(14) = IIf(Valuta Для этого создайте Case «6»: Десятки «) ‘Миллионы’ Поз из числа разрядов Вы. Личную книгу макросов кроме того легко Кликаем по значку на VBA, которая — на листе относительно небольшими поЮщенко Мария сдал не корректна vl = Mid(SumInt,
= txt & x = Len(SumInt) = 0, «четырнадцать Module2 и введите = «шестьдесят «:
excelworld.ru>
Руководство по установке и применению надстройки
Открываем с локального диска сохраненную надстройку
После поисков надстройки файл следует сохранить в нужном месте, где хранятся и другие дополнительные инструменты. Нужный маршрут в основном зависит от версии программы, но должно быть примерно так: «Мой компьютер» — «Локальный диск С» — «Documents and Settings» — «User» — «Application Data» — папка «Microsoft» — «AddIns». При этом вместо «User» необходимо указать имя пользователя «ОС Windows».
Активируем надстройку «Сумма Прописью»
Для размещения скачанного инструмента следует в соответствующей папке выбрать в меню Excel «сервис», после чего перейти в раздел «надстройки» и нажать команду «обзор». Вашему вниманию будет представлено диалоговое окно, где и окажется папка «AddIns» (фото 1).
После запуска проводника Windows с установленной надстройкой вам нужно перебросить мышкой значок файла из окна проводника в открытое диалоговое окно. Задача с перемещением в нужное место надстройки выполнена. Закройте диалог, нажав на кнопку «Ок», после чего в списке надстроек, доступных в увиденной строке «Сумма прописью», поставьте галочку и нажмите «Ок» (фото 2). Теперь вам в полной степени доступен инструмент, позволяющий печатать цифровые единицы прописью.
Полный список новых функций по представлению суммы прописью будут доступны через мастер функций
Для использования новых возможностей (для того чтобы сумма писалась прописью) вам необходимо в открытом окне программы выбрать команду в меню «Вставка» — «Функция» или же нажать кнопку «fx» (слева строки формул). В появившемся окне вам необходимо выбрать нужную категорию, чтобы перейти к следующему окну мастера функции (фото 3). Завершающим этапом воспроизведения желаемой функции является ввод значения или конкретной ячейки, которые должны в последующей работе писаться прописью.
Представленная выше информация поможет не только улучшить программу, но и облегчить работу в ней.
Использование надстройки
В Эксель нет встроенного инструмента, который бы помогал автоматически переводить цифры в слова. Поэтому для решения поставленной задачи используют специальные надстройки.
Одной из самых удобных является надстройка NUM2TEXT. Она позволяет поменять цифры на буквы через Мастер функций.
- Открываем программу Excel и переходим во вкладку «Файл».
Перемещаемся в раздел «Параметры».
В активном окне параметров переходим в раздел «Надстройки».
Открывается небольшое окно надстроек Excel. Жмем на кнопку «Обзор…».
В открывшемся окне ищем предварительно скачанный и сохраненный на жесткий диск компьютера файл надстройки NUM2TEXT.xla. Выделяем его и жмем на кнопку «OK».
Мы видим, что данный элемент появился среди доступных надстроек. Ставим галочку около пункта NUM2TEXT и жмем на кнопку «OK».
Запускается Мастер функций. В полном алфавитном перечне функций ищем запись «Сумма_прописью». Её раньше не было, но она появилась тут после установки надстройки. Выделяем эту функцию. Жмем на кнопку «OK».
Отрывается окно аргументов функции Сумма_прописью. Оно содержит только одно поле «Сумма». Сюда можно записать обычное число. Оно в выделенной ячейке отобразиться в формате записанной прописью денежной суммы в рублях и копейках.
Можно в поле занести адрес любой ячейки. Это делается либо путем ручной записи координат этой ячейки, либо простым кликом по ней в то время, когда курсор находится в поле параметра «Сумма». Жмем на кнопку «OK».
После этого, любое число, которое записано в ячейку, указанную вами, будет отображаться в денежном виде прописью в том месте, где установлена формула функции.
Функцию можно также записать и вручную без вызова мастера функций. Она имеет синтаксис Сумма_прописью(сумма) или Сумма_прописью(координаты_ячейки). Таким образом, если вы в ячейке запишите формулу =Сумма_прописью(5) , то после нажатия кнопки ENTER в этой ячейке отобразиться надпись «Пять рублей 00 копеек».
Если вы введете в ячейку формулу =Сумма_прописью(A2) , то в таком случае, любое число, внесенное в ячейку A2 будет отображаться тут денежной суммой прописью.
Как видим, несмотря на то, что в Excel нет встроенного инструмента для преобразования чисел в сумму прописью, эту возможность можно довольно легко получить, просто установив необходимую надстройку в программу.
Office 365, AD, Active Directory, Sharepoint, C#, Powershell. Технические статьи и заметки.
Excel. Сумма прописью без макросов и надстроек
Дано: Excel c числами и суммами в рублях в ячейках. Задача: написать данные числа прописью без использования макросов и каких-либо надстроек программы Excel, т.е. написать число прописью при помощи стандартных формул.
Пример файла excel с таким решением можно скачать здесь. См. также Сумма прописью онлайн (если просто нужно получить результат). Что означает прописью? Данный файл производит следующие манипуляции с числами:
1. Формула 1 преобразовывает число в сумму прописью следующего формата: «0 (пропись) рублей 00 копеек»
2. Формула 2 преобразовывает число в сумму прописью следующего формата: «Пропись рублей 00 копеек»
3. Формула 3 просто переводит число в текст: число = пропись
Вот формулы, которые пишут сумму прописью:
При необходимости формулу можно подогнать под нужный формат.
Как использовать данную формулу? Вы можете взять файл примера и внести в него свои данные, чтобы получить результат. Если же у Вас уже есть готовый файл с заполненными данными и Вам необходимо добавить возможность написания суммы прописью, то чтобы формула заработала, необходимо сделать некоторые подготовительные действия, а именно добавить справочники, которые использует формула. В данном примере справочники заданы как именованные диапазоны (это решение хорошо тем, что пользователь эти диапазоны не видит на листах и соответственно не сможет лишний раз что-то испортить).
Итак, нам необходимо сделать следующие справочники:
Имя диапазона: n_1 Диапазон: =
Имя диапазона: n_2 Диапазон: =
Имя диапазона: n_3 Диапазон: =
Имя диапазона: n_4 Диапазон: =
Имя диапазона: n_5 Диапазон: =
Имя диапазона: 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)
Имя диапазона: мил Диапазон: =
Имя диапазона: тыс Диапазон: =
Чтобы создать справочник таких диапазонов, переходим на вкладку «Формулы» — «Диспетчер имен«:
В открывшемся окне нажимаем кнопку «Создать» и в форме вводим данные первого диапазона из таблицы:
Далее таким же образом вводим все остальные диапазоны из таблицы:
Создание сумм прописью с помощью формул
Это вполне осуществимый вариант, но очень громоздкий. Формула, которая может самостоятельно преобразовывать числа в буковки и правильно орфографически написать сумму прописью получится очень большой. В случае, когда вы захотите упростить формулу, вам нужно будет отдельный блок формул, который буде и заниматься всеми преобразованиями. Единственное преимущество от использования формулы, это когда вы разберетесь с ней, то самостоятельно сможете ее изменять: разрядность, валюту, склонение и т.п.
Ради общего интереса я предоставлю вам пример файла с работающей формулой, которую я нашёл на excelworld.ru, поскольку самостоятельно формульным решением задачи я не занимался, но считаю нужным предоставить весь наработанный или собранный материал. Скачать пример можно по этой ссылке.
Использование надстройки
В Эксель нет встроенного инструмента, который бы помогал автоматически переводить цифры в слова. Поэтому для решения поставленной задачи используют специальные надстройки.
Одной из самых удобных является надстройка NUM2TEXT. Она позволяет поменять цифры на буквы через Мастер функций.
- Открываем программу Excel и переходим во вкладку «Файл».
Перемещаемся в раздел «Параметры».
В активном окне параметров переходим в раздел «Надстройки».
Далее, в параметре настроек «Управление» устанавливаем значение «Надстройки Excel». Жмем на кнопку «Перейти…».
Открывается небольшое окно надстроек Excel. Жмем на кнопку «Обзор…».
В открывшемся окне ищем предварительно скачанный и сохраненный на жесткий диск компьютера файл надстройки NUM2TEXT.xla. Выделяем его и жмем на кнопку «OK».
Мы видим, что данный элемент появился среди доступных надстроек. Ставим галочку около пункта NUM2TEXT и жмем на кнопку «OK».
Для того, чтобы проверить как работает только что установленная надстройка пишем в любой свободной ячейке листа произвольное число. Выделяем любую другую ячейку. Кликаем по значку «Вставить функцию». Он расположен слева от строки формул.
Запускается Мастер функций. В полном алфавитном перечне функций ищем запись «Сумма_прописью». Её раньше не было, но она появилась тут после установки надстройки. Выделяем эту функцию. Жмем на кнопку «OK».
Отрывается окно аргументов функции Сумма_прописью. Оно содержит только одно поле «Сумма». Сюда можно записать обычное число. Оно в выделенной ячейке отобразиться в формате записанной прописью денежной суммы в рублях и копейках.
Можно в поле занести адрес любой ячейки. Это делается либо путем ручной записи координат этой ячейки, либо простым кликом по ней в то время, когда курсор находится в поле параметра «Сумма». Жмем на кнопку «OK».
После этого, любое число, которое записано в ячейку, указанную вами, будет отображаться в денежном виде прописью в том месте, где установлена формула функции.
Функцию можно также записать и вручную без вызова мастера функций. Она имеет синтаксис Сумма_прописью(сумма) или Сумма_прописью(координаты_ячейки). Таким образом, если вы в ячейке запишите формулу , то после нажатия кнопки ENTER в этой ячейке отобразиться надпись «Пять рублей 00 копеек».
Если вы введете в ячейку формулу , то в таком случае, любое число, внесенное в ячейку A2 будет отображаться тут денежной суммой прописью.
Как видим, несмотря на то, что в Excel нет встроенного инструмента для преобразования чисел в сумму прописью, эту возможность можно довольно легко получить, просто установив необходимую надстройку в программу.
Опишите, что у вас не получилось.
Наши специалисты постараются ответить максимально быстро.
Вставка кода в стандартный модуль
- Создайте новый стандартный модуль и откройте его (или откройте уже имеющийся).
- Скопируйте и вставьте в открытый модуль код функции «ДатаПрописью», приведенный ниже.
1 |
‘Преобразование даты из числового формата в текст с 2001 по 2099 год PublicFunctionДатаПрописью(md AsDate)AsString If(md<36892)Or(md>73050)Then ДатаПрописью=»Преобразуемая дата должна быть с 2001 по 2099 год!» Else Dimden AsByte,dg(1To4)AsByte,mes AsByte,god AsByte,_ mespr AsString,dmgpr AsString den=Day(md) mes=Month(md) god=(Year(md)Mod100) dg(1)=god Mod10 dg(2)=Fix(god10) dg(3)=den Mod10 dg(4)=Fix(den10) Dimdgpr(1To4)AsString,i1 AsByte Fori1=1To4 If(i1=1)Or(i1=3)Then Ifdg(i1+1)=1Then dgpr(i1)=Choose(dg(i1)+1,»десятого «,»одиннадцатого «,»двенадцатого «,_ «тринадцатого «,»четырнадцатого «,»пятнадцатого «,»шестнадцатого «,_ «семнадцатого «,»восемнадцатого «,»девятнадцатого «) Else dgpr(i1)=Choose(dg(i1)+1,»»,»первого «,»второго «,_ «третьего «,»четвертого «,»пятого «,»шестого «,_ «седьмого «,»восьмого «,»девятого «) EndIf ElseIf(i1=2)Or(i1=4)Then Ifdg(i1-1)=Then dgpr(i1)=Choose(dg(i1)+1,»»,»»,»двадцатого «,_ «тридцатого «,»сорокового «,»пятидесятого «,»шестидесятого «,_ «семидесятого «,»восьмидесятого «,»девяностого «) Else dgpr(i1)=Choose(dg(i1)+1,»»,»»,»двадцать «,_ «тридцать «,»сорок «,»пятьдесят «,»шестьдесят «,_ «семьдесят «,»восемьдесят «,»девяносто «) EndIf EndIf Next mespr=Choose(mes,»января «,»февраля «,»марта «,»апреля «,»мая «,_ «июня «,»июля «,»августа «,»сентября «,»октября «,»ноября «,»декабря «) dmgpr=dgpr(4)&dgpr(3)&mespr&»две тысячи «&dgpr(2)&dgpr(1)&»года» ДатаПрописью=Replace(dmgpr,Left(dmgpr,1),UCase(Left(dmgpr,1)),1,1) EndIf EndFunction |
Если вы хотите, чтобы функция «ДатаПрописью» была доступна из всех рабочих книг на вашем компьютере, вставьте приведенный код в модуль, расположенный в Личной книге макросов.
Сумма в рублях, долларах или евро с копейками прописью
Допустим, мы делаем какие-то расчеты в таблице и получаем итоговую сумму в рублях 1526,23
Нам необходимо прописать эту цифру в рублях и желательно указать так же и копейки. Для этого создадим специальную универсальную пользовательскую функцию, которая будет выглядеть следующим образом
Propis( Amount ; Money ; lang ; Prec )
Amount — это ссылка на ячейку с числом
Money — тут указывается вид валюты, можно указать рубли, доллары и евро ( «RUB» , «USD» , «EUR» ) — валюта обязательно указывается в кавычках.
lang — это язык на котором необходимо вывести сумму, доступно два языка английский и русский ( «EN» , «RU» ) — так же указываем в кавычках
Prec — показывать ( 1 ) или не показывать ( 0 ) дробную часть
Таким образом, вы сможете прописать сумму в рублях, долларах или евро прописью русскими или английскими буквами вместе с дробной частью, при этом в зависимости от числа будет вставляться правильное окончание, например 2 рубля, 8 рублей, 1 рубль и так далее.
Чтобы создать пользовательскую функцию Propis, необходимо скопировать код, указанный ниже, далее нажмите ALT+F11, чтобы открыть VBA, добавьте новый пустой модуль через меню Insert — Module и вставьте туда скопированный код
Макрос пользовательской функции суммы прописью
Итак, функция создана, чтобы воспользоваться ей, просто введите ячейке Propis с нужными аргументами, например, если нам необходимо прописать сумму прописью в рублях с копейками и на русском языке, то формула будет выглядеть следующим образом.
Числа прописью с копейками заглавными или строчными буквами в Excel
Вот код VBA для пользовательской функции. Отображение суммы прописью с копейками и выбором первой заглавной или строчной буквы
Function РубПропись(Сумма As Double, Optional Без_копеек As Boolean = False, _ Optional КопПрописью As Boolean = False, Optional начинитьПрописной As Boolean = True) As String 'Функция для написания суммы прописью Dim ed, des, sot, ten, razr, dec Dim i As Integer, str As String, s As String Dim intPart As String, frPart As String Dim mlnEnd, tscEnd, razrEnd, rub, cop dec = Array("", "одна ", "две ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ") ed = Array("", "один ", "два ", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ") ten = Array("десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ") des = Array("", "", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ") sot = Array("", "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ") razr = Array("", "тысяч", "миллион", "миллиард") mlnEnd = Array("ов ", " ", "а ", "а ", "а ", "ов ", "ов ", "ов ", "ов ", "ов ") tscEnd = Array(" ", "а ", "и ", "и ", "и ", " ", " ", " ", " ", " ") razrEnd = Array(mlnEnd, mlnEnd, tscEnd, "") rub = Array("рублей", "рубль", "рубля", "рубля", "рубля", "рублей", "рублей", "рублей", "рублей", "рублей") cop = Array("копеек", "копейка", "копейки", "копейки", "копейки", "копеек", "копеек", "копеек", "копеек", "копеек") If Сумма >= 1000000000000# Or Сумма < 0 Then РубПропись = CVErr(xlErrValue): Exit Function '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >= 1 Then intPart = Left$(Format(Сумма, "000000000000.00"), 12) For i = 0 To 3 s = Mid$(intPart, i * 3 + 1, 3) If s <> "000" Then str = str & sot(CInt(Left$(s, 1))) If Mid$(s, 2, 1) = "1" Then str = str & ten(CInt(Right$(s, 1))) Else str = str & des(CInt(Mid$(s, 2, 1))) & IIf(i = 2, dec(CInt(Right$(s, 1))), ed(CInt(Right$(s, 1)))) End If On Error Resume Next str = str & IIf(Mid$(s, 2, 1) = "1", razr(3 - i) & razrEnd(i)(0), _ razr(3 - i) & razrEnd(i)(CInt(Right$(s, 1)))) On Error GoTo 0 End If Next i str = str & IIf(Mid$(s, 2, 1) = "1", rub(0), rub(CInt(Right$(s, 1)))) End If РубПропись = str '''''''''''''''''' If Без_копеек = False Then frPart = Right$(Format(Сумма, "0.00"), 2) If frPart = "00" Then frPart = "" Else If КопПрописью Then frPart = IIf(Left$(frPart, 1) = "1", ten(CInt(Right$(frPart, 1))) & cop(0), _ des(CInt(Left$(frPart, 1))) & dec(CInt(Right$(frPart, 1))) & cop(CInt(Right$(frPart, 1)))) Else frPart = IIf(Left$(frPart, 1) = "1", frPart & " " & cop(0), frPart & " " & cop(CInt(Right$(frPart, 1)))) End If End If РубПропись = str & " " & frPart End If '''''''''''''''''' ' РубПропись = str & frPart If начинитьПрописной Then Mid$(РубПропись, 1, 1) = UCase(Mid$(РубПропись, 1, 1)) ' If начинитьПрописной Then РубПропись = UCase(Left(РубПропись, 1)) & Mid(РубПропись, 2) End Function
- Без копеек (1), с копейками (0)
- Копейки прописью (1), числом (0)
- Начинать прописью (0), заглавной (1)
Вот как используется функция
Примечание
- Данная функция будет работать с числами от 0 до 99 999 999
- Перед копирование кода переключите раскладку клавиатуры на русский язык (для корректного копирования русского текста)
- Код VBA необходимо вставлять во все файлы (Книги Excel), где вы хотите, чтобы она работала
- После вставки код, необходимо сохранить файл с поддержкой макросов xlsm (в Excel, начиная с 2007 версии)
- Функцию можно либо набирать в ручную, либо, если вы забыли как она пишется, через мастер функций (кнопка fx в строке формул, категория Определенные пользователем)
Шаг 1: скачиваем надстройку
Как было сказано, в стандартной сборке офисного приложения Excel инструмента для преобразования чисел в слова нет, поэтому необходимо установить специальную надстройку, которая добавит новую функцию в Excel СУММА_ПРОПИСЬЮ.
Но предварительно ее необходимо скачать. Для этого на любом поисковом ресурсе необходимо вписать выражение «скачать num2text для excel» и выполнить поиск. По итогу на первом же сайте вам предоставят ссылку для скачивания соответствующего файла.
Стоит также отметить, что порой в код самой надстройки злоумышленники помещают вирус. Ввиду этого рекомендуется не доверять малоизвестным ресурсам, которые не вызывают доверия. На всякий случай проверьте скачанный файл антивирусом, чтобы исключить возможность заражения.
Надстройка: цена прописью в Excel
В большинстве случаев ее использование в качестве надстройки наиболее удобно, хотя иногда возникают проблемы подключения надстройки.
Нужно поместить полученный файл sumprop.xla в папку, в которой хранятся дополнительные надстройки. Конкретный путь к этой папке зависит от версии Excel, но скорее всего, в Windows 7, он будет похожим на этот:
C:\Documents and Settings\User\Application Data\Microsoft\AddIns
где: вместо User следует подставить имя пользователя Windows.
Дополнительное неудобство вызывается тем, что папка Application Data может быть скрыта, то есть не видна при просмотре в проводнике Windows.
Проще всего для размещения скачанного файла в нужной папке нужно:
- Выбрать в Excel команду меню Сервис — Надстройки и в появившемся диалоге нажать кнопку Обзор. Будет открыт диалог выбора файла с надстройкой, причем текущей окажется нужная вам папка.
- Запустите проводник Windows и перейдите в нем к папке, в которой находится скачанный ранее из интернета файл. Перетащите с помощью мыши значок файла из окна проводника в открытый диалог. Теперь файл с нужной надстройкой находится в нужной папке.
- Щелкните на нем мышью и нажмите кнопку OK, чтобы закрыть диалог. В списке доступных надстроек должна появиться строка Сумма Прописью.
- Установите флажок рядом с этой строкой и нажмите кнопку OK,
- После чего вы сможете использовать функцию печати суммы прописью в Excel.
Как использовать мастер функций, для работы с функциями вывода суммы прописью и числа прописью
Для этого вначале щелкните мышью на ячейке, в которую вы хотите вставить функцию, после чего откройте список доступных функций. В нем следует выбрать вариант Другие функции. Кроме того, для вызова функций можно нажать кнопку fx, расположенную в левой части строки формул. В ранних версиях программы аналогичная кнопка расположена на панели инструментов. Каким бы способом не вызван был мастер функций, в появившемся диалоге необходимо выбрать категорию Определенные пользователем. В списке функций данной категории должны находиться СуммаПрописью и ЧислоПрописью. Выбрав нужную функцию, нажмите кнопку OK, чтобы перейти к следующему диалогу мастера функций. В нем задаются аргументы, то есть вы должны ввести число, которое будет преобразовано в слова. Можно ввести непосредственно значение или сослаться на ячейку, в которой это значение расположено. Нажав кнопку OK, вы закроете диалог и вставите результат в текущую ячейку.
Sumprop
Установка данного модуля происходит точно так же, как в описанном выше способе, только на этот раз выбираем другой файл.
Ставим галочку возле новой надстройки и нажимаем на кнопку «OK».
После этого в вашем редакторе появится еще несколько новых функций. Рассмотрим их всех.
Работа с формулами
Для этого нужно сделать следующие действия.
- Первым делом создадим наглядную таблицу. В одном столбце у нас будут цифры, во втором – результат. Для демонстрации возможностей будем использовать дробные числа.
- Переходим первую пустую ячейку и нажимаем на кнопку «Fx».
В появившемся окне выберите категорию «Определенные пользователем». Новые функции будут именно там.
Будем вставлять поочередно. Именно в той хронологии, как они идут в списке.
СуммаПрописью
- Выберите соответствующий пункт и нажмите на кнопку «OK».
- В появившемся окне нужно вставить аргумент. Для этого достаточно кликнуть на ячейку с числом.
- Благодаря этому адрес подставится автоматически. Для продолжения нажмите на кнопку «OK».
- В результате этого вы увидите следующее.
СуммаПрописьюГривны
- Выделяем следующую строчку и кликаем на иконку вставки функции.
- На этот раз выбираем вторую функцию. Для вставки нажимаем на кнопку «OK».
- Затем кликаем на следующее число.
- После автоматической подстановки нажмите на кнопку «OK».
- Результат будет следующим.
СуммаПрописьюДоллары
- Переходим на третью строчку и кликаем на иконку «Fx».
- Выбираем «долларовую» функцию и нажимаем на «OK».
- Указываем соответствующий аргумент.
- Кликаем на «OK».
- Благодаря этому целое число отображается в долларах, а дробное – в центах.
СуммаПрописьюЕвро
- Переходим на четвертую строчку и вызываем окно вставки уравнения.
- Указываем функцию для «Евро».
- Кликаем на соответствующий аргумент.
- Нажимаем на кнопку «OK».
- Результат будет следующим.
ЧислоПрописью
Преимущество данного модуля в том, что вы можете осуществить преобразование без дополнительных денежных приставок.
- Перейдите на последнюю строчку и нажмите на иконку «Fx».
- Выберите последнюю функцию.
- В качестве аргумента укажите последнее оставшееся число.
- Для вставки нажмите на кнопку «OK».
В результате проделанных действий, мы увидим следующую таблицу.
Как сумму перевести в текст в Excel2007
. Сюда можно записать в 2003.Юрий М тысяча рублей 00 «А» в ячейке после запятой. rrr: ‘формируем итоговую:Wasp49 десятки vl = txt = txt = «миллиона «: = 0, «два «ж»: Двадцатка = ИмяРазряда(strМиллионы, Mid(strЧисло, ПозИНДЕКС(PERSONAL.XLSB!Единицы;ОСТАТ(A1;1000)+1)&» руб. «&ТЕКСТ((A1-ЦЕЛОЕ(A1))*100;»00»)&»
прерогатива VBA. обычное число. ОноЯ сделал так:: А что -
копеек. А56 работает нормально.4. Делает первую строку СУММАПРОПИСЬЮ =Аля, был человек, который: «Спасибо большое, кажется Mid(SumInt, shag, 1)
& Desyatki(vl) ‘ mlrd(2) = «миллиарда евро», IIf(Valuta =
«одна » Case + 1, 2), коп.»);»ноль руб. 00
Тем не менее, можно в выделенной ячейке распаковал post-106917 и нашу «Копилку» обворовали?GuestEvgeniyaD букву прописной, остальные decmil_txt & mil_txt
сам с собой нашла!!! А без If vl = — если конец » Desyatki(3) = 1, «два рубля», «с»: Двадцатка =
«миллион «, «миллиона коп.») предложить следующее решение отобразиться в формате
скопировал файл в Там нет Суммы: Стандартной функции нет.
: MCH, ясно. Отображается строчные. & sottys_txt &
говорил, но по макросов, с помощью «1» And Mid(SumInt, триады от 11 «тридцать «: Sotni(3) «два доллара»)) Edinicy(3) «одно » End «, «миллионов «)
Формула отобразит число прописью. с помощью обычных записанной прописью денежной C-DocumSet-User-ApplicData-Microsoft-AddIns. Затем в прописью?Есть только пользовательские.
у нас по-разному.5. Если число dectys_txt & tys_txt делу - какой-нибудь формулы этого shag + 1,
до 19 то = «триста «: = «три «: Select Case «2»: ‘Тысячи’ Поз = Ячейки, содержащие исходное формул: суммы в рублях рабочет документе (счете,Guest
Поищите на форуме Alex_ST, «гарантированный» просто целое, например 121, & sot_txt &Guest
сделать нельзя?» 1) <> 0
перескакиваем на единицы, tys(3) = «тысячи
EdinicyPoslednie(3) = IIf(Valuta Select Case Sex 7 strТысячи =
число и формулу,разместить в Личной книге и копейках. накладной) в любой: не такая
самостоятельно — примеры забыла удалить. Я то результат будет dec_txt & ed_txt: работает и сПопробую найти у Then GoTo 10 иначе — формируем «: mln(3) = = 0, «три
Case «м»: Двадцатка Сотни(Mid(strЧисло, Поз, 1))
можно перенести в макросов (PERSONAL.XLSB) вспомогательныеМожно в поле занести нужной ячейке пишуЮрий М
выкладывались неоднократно. имела ввиду именно «Сто двадцать один», End Function ‘вспомогательная офисом 2к10 себя в файлах Else txt = десятки Case 7 «миллиона «: mlrd(3) евро», IIf(Valuta = = «два « strТысячи = strТысячи любое место в диапазоны, содержащие некоторые адрес любой ячейки. =СуммаПрописью(), где в: Что не такая?ytk5kyky
ячейку а56. Но, если дробное - функция для выделенияMCH пропись на русском txt & Desyatki(vl) ‘ — единицы = «миллиарда « 1, «три рубля», Case «ж»: Двадцатка & Десятки(Mid(strЧисло, Поз книге или даже числа прописью (от Это делается либо скобках указываю суммуdude: Я уж было видимо, зависит от 121,22, то результат из числа разрядов: Функция кривая, на языке без маросов.
‘ — если миллионов vl =
Desyatki(4) = «сорок «три доллара»)) Edinicy(4) = «две « + 1, 2), в другую книгу. 0 до 999); путем ручной записи или даю ссылку
: сумма прописью подумал, что никто программы. получится «Сто двадцать
Private Function Class(M, числах 0, 1000000, есть на английском конец триады от Mid(SumInt, shag, 1) «: Sotni(4) = = «четыре «: Case «с»: Двадцатка «ж») strТысячи =Чтобы еще больше приблизитьсясоздать формулу, переводящую в координат этой ячейки, на ячейку. Все(без арабской вязи)
этот вопрос неAlex_ST одна целая двадцать I) Class = 1000000000 и др. (но там все
11 до 19 If shag > «четыреста «: tys(4) EdinicyPoslednie(4) = IIf(Valuta = «Два « strТысячи & ИмяРазряда(strТысячи, к идеалу создадим текст любое число либо простым кликом работает!Владимир задаст. Большой был: Да похоже, что две сотых». Int(Int(M — (10 дает не правильное проще — нет то перескакиваем на 2 Then If = «тысячи «: = 0, «четыре End Select Case
planetaexcel.ru>
Mid(strЧисло, Поз +
- В excel преобразовать число в время в
- Excel 2016 сумма прописью
- Excel преобразовать в число
- Преобразовать дату в число в excel
- В excel перевод числа в текст
- Excel число преобразовать в строку
- Excel как число преобразовать в текст
- Excel преобразовать дату в текст
- Как в excel выделить число из текста
- Как преобразовать текст в число эксель
- Как в excel число сделать прописью
- Функция в excel преобразовать в число

Эта тема закрыта для публикации ответов.