Как преобразовать число в текст прописью?
В некоторых бухгалтерских документах первичной отчетности, а также в договорах, доверенностях и других документах можно встретить написание чисел прописью. Расшифровка чисел используется для избежания различного рода проблем, которые могут возникать как по невнимательности, так и по злому умыслу, когда число сознательно искажается путем приписки цифр к сумме, указанной ранее.
Основная масса документов, которую приходится заполнять сотрудникам предприятий — это так называемая «Первичка», или первичные учетные документы (приходные кассовые ордера, квитанции, товарные накладные, счета на оплату и так далее). Правила работы с документами первичной отчетности регламентируются Федеральным законом «О бухгалтерском учете». Многие документы, формы которых утверждены постановлениями Госкомстата РФ содержат не только строки с указанием сумм, но и строки для расшифровки этих сумм прописью, при этом расшифровка является обязательной.
Наряду с бухгалтерскими существуют и другие документы, где присутствует расшифровка суммы, например договор, доверенность или письмо. Порядок расшифровки суммы, указанной в договоре или доверенности Гражданским Кодексом РФ не регламентируется, но правила написания сумм прописью являются общими для всех документов.
Правила написания расшифровки сумм прописью
1. Сначала указывается сумма цифрами, затем эта сумма повторяется прописью;
2. сумма прописью указывается в именительном падеже, при этом прописью указывается только та часть суммы, которая выражена в рублях, копейки обозначаются цифрами;
3. во избежание приписок первое слово в расшифровке прописью необходимо начинать с заглавной буквы.
Надстройка для преобразования числа в текст прописью в Word
Написание расшифровок сумм прописью в бухгалтерских документах, как правило уже автоматизировано в системах учета финансово-хозяйственной деятельности таких как 1-С, SAP ERP и др. Если же какие-то документы формируются в текстовом редакторе Microsoft Word, при этом в документах предусмотрены поля для расшифровки сумм прописью, то автоматизировать их написание можно при помощи надстройки для Word (аналогичная надстройка для Excelаналогичная надстройка для Excel).
Надстройка позволяет быстро преобразовать число в текст прописью, для этого нужно выделить число, запустить макрос, при необходимости выбрать нужную валюту (по умолчанию установлены рубли) и нажать ОК. Сумма прописью формируется в соответствии с вышеперечисленными правилами и вставляется сразу после выделенного числового значения.
На выбор пользователя доступны несколько валют: рубли, доллары, евро, гривны и предусмотрен режим «без валюты», когда вместо названия валют прописываются слова «целые» и «сотые» (например, Сорок четыре тысячи шестьсот двадцать целых, 00 сотых). При выборе опции «Все прописью» та часть числа, которая находится после запятой, также прописывается прописью.
Преобразование цифр в текст прописью в Word
Раньше при оформлении договоров в word напрягало каждый раз дублировать суммы всех платежей прописью, особенно когда суммы длинные, а платежей много.
Удивился, что это умеет делать автоматом обычная бесплатная программа punto switcher (которая от яндекса) для переключения раскладки клавиатуры. Пользуюсь ей лет 15, но про эту фишку не знал.
Выделяешь цифры, например 12436, жмешь сочетание клавишь и цифры превращается в "двенадцать тысяч четыреста тридцать шесть".
Забавно, но по умолчанию эта функция отключена! Чтобы включить, нужно зайти в настройки, выбрать слева "горячие клавиши" и в перечне напротив строчки "Преобразовать числа в текст" поставить удобное сочетание клавиш.
Зачем было ее так прятать — непонятно.
Тем не менее здорово облегчает жизнь, особенно если суммы часто корректируются и приходится вносить изменения в один и тот же договор много раз.
Если в числе есть запятая, то после целой части добавляется "руб", дробная остается цифрами и после нее добавляется "коп".
А причем тут Ворд, вообще?
Зачем было ее так прятать — непонятно.
99% людей эта функция нахер не нужна. Поэтому и не выпячивают как главную функцию.
У программы изначально задача другая.
Иногда использую для бухгалтерской отчетности
123456789123456789123456789 — сто двадцать три септиллиона четыреста пятьдесят шесть секстиллионов семьсот восемьдесят девять квинтиллионов сто двадцать три квадриллиона четыреста пятьдесят шесть триллионов семьсот восемьдесят девять миллиардов сто двадцать три миллиона четыреста пятьдесят шесть тысяч семьсот восемьдесят девять
Правильнее сказать «использование говнопрограммы-шпиона на работе, потому что я не умею печатать»
Сумма ячеек по цвету, шрифту, формату и т.д
Допустим вы используете таблицу с числовыми данными, которые для удобства помечаете цветом для последующего их подсчёта. Исходя из названия заголовка рассмотрим, как такое можно реализовать в Excel.
1. Сохраняем документ с поддержкой макросов, хотя его там и не будет, но в данном случае так надо.
2. Нажатием Ctrl+F3 или на вкладке «Формулы» выбираем «Диспетчер имён», где в строке «Имя» вводим название формулы ЦветЯчейки, а в поле «Диапазон» саму формулу: =ПОЛУЧИТЬ.ЯЧЕЙКУ(63;ДВССЫЛ(«RC[-1]»;0))
Я не буду грузить читателя разъяснением значений этой формулы, главное, чтобы всё работало, не так ли?)) Отмечу лишь, что 63 это код цвета заливки, заменяя который, можно подсчитывать ячейки по формату, шрифту, выделению курсивом и т.п.
Вот таблица с кодами и их значениями:
3. В соседнюю от цветной ячейки вводим «равно» и имя созданной формулы ЦветЯчейки, затем протягиваем её вниз. В результате отображаются коды цветов, которые будут необходимы нам для подсчёта.
4. Теперь с помощью формулы =СУММЕСЛИ(B2:B12;10;A2:A12) можно посчитать сумму цветных ячеек, где 10 это код цвета, для жёлтых — 6:
Созданная формула =ЦветЯчейки определяет 56 цветов. На некоторые цветовые гаммы он реагирует некорректно, так что любителям 50 оттенков серого придётся воспользоваться хардкорным чёрным или серым))
Вот пример палитры «твёрдых» цветов:
Следует учесть, что Excel при изменении цвета ячейки автоматически не совершит пересчёт данных, для этого необходимо заново ввести формулу, либо нажать Ctlr+Alt+F9, что гораздо проще и быстрее.
Также на этот случай есть макрос,
1. Нажимаем Alt+F11 и в открывшемся окне вводим следующий текст
Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
Dim Sum As Double
For Each cell In DataRange
If cell.Interior.Color = ColorSample.Interior.Color Then
Sum = Sum + cell.Value
2. В разделе «Формулы» — «Вставить функцию» выбираем категорию «Определенные пользователем», где указываем нашу функцию, которой задаём диапазон подсчёта и образец цвета:
И получаем результат:
Чтобы макрос учитывал не цвет заливки фона, а цвет шрифта ячейки, в шестой строке заменяем свойство Interior на Font в обеих частях выражения.
Для подсчёта количества цветных ячеек, а не суммы, заменяем в седьмой строке Sum = Sum + cell.Value на Sum = Sum + 1
Как и в первом варианте, макрос также не может подсчитать сумму ячеек автоматически, поэтому после произведённых изменений нажимаем клавишу F9.
Если значения в Вашей таблице окрашены в различные цвета и нужно их пересчитать по отдельности, то просто замените ячейку с образцом на цвет из таблицы и нажав F9 получите мгновенный результат.
Также используя ту же формулу, заменив лишь ячейку с образцом, можно вывести сумму и в другой ячейке.
Следует учесть, что функция перебирает все, в том числе и пустые ячейки, в DataRange, поэтому задавайте в качестве первого аргумента только диапазон со значениями, а не весь столбец, иначе Excel «зависнет» надолго.
P.S. Уважаемые подписчики, посты про Excel будут выходить по понедельникам
Групповое переименование файлов в Total Commander
Для тех, кто любит порядок в документах или занимается сортировкой файлов в папках, есть возможность быстрого переименования файлов
1. Функция группового переименования
Чтобы воспользоваться возможностью группового переименования на любой из панелей Total Commander открываем папку с оперируемыми файлами и выделяем все их клавишами Ctrl+A. Или удерживаем зажатой Ctrl и указываем только отдельные из них. Далее запускаем групповое переименование – либо в меню «Файл», либо горячими клавишами Ctrl+M.
Поле ввода значений в открывшемся окошке функции – это маска имён. В неё необходимо ввести свои значения, которые будут содержаться в названиях всех файлов как то: «Фото», «Видео», «Wallpapers», «Событие такое-то», «Track» и т.п. А затем добавить заключённое в скобки [ ] выражение, реализованное в виде кнопок.
Это выражение будет предопределять приписку в будущих названиях – порядковый номер, дату создания, специфические параметры для отдельных типов файлов. Выражений можно добавлять сколь-угодно, разделяя их пробелом, нижним подчёркиванием, точкой, скобками или другими удобными для восприятия символами.
Нижняя часть окошка функции — это таблица сопоставлений названий старых и новых, какими они будут после выполнения операции. Так что, подбирая критерии переименования, прямо на лету можно отслеживать удобочитаемость будущих имён. И когда нужный формат будет найден, только тогда приступать к выполнению операции по переименованию (кнопка внизу «Выполнить»).
Групповое переименование возможно также для расширений файлов. С помощью этой функции Total Commander можно менять не только имена целиком, но и убирать из них отдельные значения или заменять их другими, задавать желаемый регистр букв, а также делать прочие интересные вещи. Рассмотрим отдельные шаблоны группового переименования.
2. Изменение имён
Функция группового переименования запускается с по умолчанию установленным в маске выражением [N] – текущим именем файлов. Если оставить это выражение, имена останутся такими как есть и изменятся, соответственно, только в части выбранных дописок. Если имена необходимо изменить полностью, убираем [N] (клавишами Del или Backspace) и вписываем своё общее значение. Как, например, в нашем случае задаётся общее имя всем обоям для рабочего стола «Space Wallpapers». Далее необходимо выбрать способ идентификации файлов с этим общим именем.
Не меняя текущие названия, их можно упорядочить, выставив единый формат написания с учётом букв нижнего и верхнего регистра.
3. Порядковые номера в названиях
Идентифицировать файлы с единым общим названием, прописав каждому из них порядковый номер, можно с помощью выражения [C]. В графе маски ставим курсор до или после общего названия и жмём кнопку «[C] Счётчик».
Для счётчика доступны некоторые настройки:
— Шаг счёта (нумерация, например, по типу 1, 3, 5, 7 и т.д.);
— Цифра, с которой начинается отсчёт,
— Формат числа (количество цифр в порядковом номере).
Если групповое переименование проводится для более чем 9 файлов, можно установить, например, 3 цифры в порядковых номерах. Тогда они будут иметь формат 001, 002, 003 и т.д. И, соответственно, такие файлы в отдельных файловых менеджерах будут отображаться так, как нужно, а не с искажённым порядком, когда за 1 следует 10, и только потом – 2.
4. Даты создания файлов в именах
Возможно, кому-то станет удобнее ориентироваться в своей медиатеке, если фото и видео будут содержать даты запечатлённых событий. Для этого в качестве одного из идентифицирующих обозначений в маску необходимо добавить выражение [YMD Дата]. Это дата создания файла.
Возможность формирования названий с включением других дат для отдельных типов файлов Total Commander предусматривает в числе плагинов выражений. При нажатии кнопки «[=?] Плагин» у нас появится выбор огромного числа различных параметров. Так, в подборке плагинов «tc» в названия можно включить дату и время модификации, дату и время последнего доступа.
5. Различные параметры в именах
Итак, упомянутая кнопка «[=?] Плагин» открывает доступ к огромному перечню параметров файлов. В частности, в подборках плагинов «shelldetails» и «tcmediainfo» можем включить в названия медиафайлов:
— даты звукозаписи, съёмки или оцифровки;
— альбом, его год выпуска;
— размер кадра для видео;
— видео- или аудиокодеки;
— а также прочие данные.
Конечно, при условии, что медиаданные содержат информацию о выбранных параметрах.
6. Изменение расширений
Групповое переименование осуществляется не только для непосредственных имён данных, но также для их расширений. Total Commander не является конвертером форматов, с помощью такого переименования можно сделать только то, что делается и обычной ручной заменой расширений. Как, например, приведение расширений в единый формат с учётом регистра букв.
Или замена файлов «.txt» на «.ini», «.bat» и т.п. Чтобы вовсе убрать расширения у файлов, просто оставляем их маску без какого-либо выражения.
7. Переименование с перемещением
Переименование файлов можно совместить с распределением их по папкам. Для этого операцию по переименованию нужно проводить для каждой отдельной группы данных, которые помещаются в одну папку. В начале маски вписываем имя папки (либо существующей, либо новой, она будет создана автоматически), затем ставим косую черту, а далее уже подбираем прочие выражения.
8. Избавление от порядковых номеров в именах
Как убрать приписку в виде нумерации файлов и оставить только основные названия? Такая необходимость может стать при упорядочивании коллекции аудиозаписей. Жмём кнопку «[N##] Диапазон» и выделяем блоком основное имя, т.е. часть названия без порядковых номеров. Жмём «Ок» и выполняем операцию.
9. Удаление отдельных значений из имён
Как убрать из имён группы данных одинаковую их составляющую? Например, значения «Ярлык» или «Копия», жанр, год альбома или любую другую информацию, не столь важную, чтобы значиться в названиях и усложнять восприятие информации. Это значение нужно вставить в графу «Найти». В графе ниже «Заменить на» выбирается «<Пусто>».
10. Сохранение шаблонов переименования
Любую подборку выражений, плагинов, настроек замены и счётчика можно сохранить как шаблон, если в будущем нужно будет снова вернуться к переименованию данных именно в таком формате. Заполняем поле маски, выставляем прочие опции и из выпадающего перечня графы «F2 Шаблоны операции» выбираем «Сохранить шаблон». В этом выпадающем списке и будут находиться все сохранённые шаблоны.
11. Отмена изменений
Групповое переименование файлов можно отменить кнопкой «Откат». И тогда именам будет возвращён их прежний вид. Важно: для этой процедуры принципиальное значение имеет исходное расположение данных.
Число или сумма прописью
Знаете ли вы, как можно в текстовом редакторе Word цифры, числа или суммы представить прописью? Например так: 1.290 = Одна тысяча двести девяносто?
ПОЛЯ Word — набор кодов (инструкций), обеспечивающих автоматическую вставку в документ текста, рисунков, номеров страниц и других сведений (из справки MS Word).
Я вижу две возможности: с помощью полей (с соответствующими ключами) Word или воспользоваться готовыми специализированными программами (в том числе и макросами).
Рассмотрим первый вариант.
Широко известен такой способ: создаем или открываем документ и в том месте, где необходимо вывести числовое значение прописью, ставим курсор и нажимаем комбинацию клавиш Ctrl + F9 . В тексте появится затененное поле с фигурными скобками:
Внутри фигурных скобок вставьте следующую конструкцию (я показываю вместе со скобками):
<=1290 \*CardText>, где 1290 — это любое ваше число (не забывайте про знак равенства перед числом), \*CardText — это ключ поля (о нем будет сказано ниже).
Затем нажмите клавишу F9 . В результате вы увидите представленное прописью ваше число, в данном случае — одна тысяча двести девяносто .
В нашем примере мы использовали ключ \*CardText . У Word множество различных ключей. Естественно, что знать их все на память нереально, да и не нужно. А в случае необходимости можно обратиться на официальный сайт Microsoft в раздел справочной информации.
Этот ключ выводит результат в виде количественных числительных (записанных словами). По умолчанию используются строчные буквы. Можно дополнительно в поле вставить другие ключи, например ключ \* Upper (преобразовывает все буквы в прописные, то есть заглавные), или ключ \* FirstCap (преобразует первую букву первого слова в прописную).
Если вам необходимо вывести число не арабскими цифрами, а римскими, то для этих целей служит ключ \*roman . Здесь тоже есть небольшая хитрость: регистр выводимого числа будет именно такой, каким вы введете ключ \*roman . Если так: \*roman — то и результат будет в строчных буквах, если так: \*ROMAN — то соответственно результат будет выведен заглавными буквами.
Большое количество ключей с описаниями можно увидеть в справочной системе на сайте Microsoft.
Понятно, что использовать в своей работе эти поля не очень удобно, особенно, когда вам нужно очень часто преобразовывать цифры в строки. Здесь на помощь приходят специальные программы, коих много создано.
Я кратко опишу только некоторые программы, которые показались мне достаточно удобными в использовании.
Начну с программы TRANSNUM — число прописью .
Достаточно интересная программа, работающая с MS Word и MS Excel. Полностью самостоятельная программа, становящаяся полупрозрачной, когда вы переносите фокус на редактор.
Корректно работает со всеми версиями Word, кроме Word 2007.
Программа имеет собственную страничку
Другая программа — R2S (Сумма прописью) . Программа старенькая и разрабатывалась для конкурсной программы Microsoft Office Extensions. Бесплатная.
Преобразовывает числовой формат суммы вида 123-45 или 123,45 в прописной вида 123-45 (Сто двадцать три рубля 45 копеек) или 123,45 (Ста двадцати трёх долларов 45 центов). Возможные падежи: шменительный, Родительный. Валюты: Рубли, Доллары.
Работает без ошибок с MS Word 2002 (проверено). C версиями Word 2003 и Word 2007 работает только в режиме буферного обмена.
С описанием программы можно ознакомиться и скачать на официальном сайте Microsoft: R2s (сумма прописью) v. 6.0 (Word 95/97/2000)
Следующая программа — макрос Num2String , преобразующая числа в текстовые представления.
В принципе позволяет даже вывести на панель инструментов свою кнопку, но при установке выводит сообщения об ошибках в коде макроса. В чем там именно проблема я не разбирался, так как не являюсь специалистом в VB.
И последняя программа, стоящая внимания: DigWord — программа печати числа прописью . Привожу описание с сайта программы:
работает через буфер обмена Windows. Пользоваться так: Вам необходимо скопировать число в буфер, затем запустить DigWord.exe, и, наконец, вставить из буфера продукт преобразования. Для удобства можно программе назначить «горячие» клавиши стандартными средствами Windows.
Нет, все-таки приведу для примера еще одну интересную программу — DigitalToWord — Сумма прописью .
Это платная программа (200 рублей на момент напизания заметки), предназначенная для пользователей, так или иначе постоянно работающих с цифрами. Особенностью программы является возможность проверки ИНН юридических лиц (требуется, если у Вас есть подозрение, что на каком-либо документе напечатан «фальшивый» ИНН).
Надеюсь, что эта статья поможет вам сориентироваться и выбрать наиболее подходящий способ перевода чисел, цифр или сумм в строковые представления.
Если у вас есть дополнения к статье — прошу вас высказаться ниже — в комментариях.
Число или сумма прописью в Word (download)
Знаете ли вы, как можно в текстовом редакторе Word цифры, числа или суммы представить прописью? Например так: 1.290 = Одна тысяча двести девяносто?
Я вижу две возможности: с помощью полей (с соответствующими ключами) Word или воспользоваться готовыми специализированными программами (в том числе и макросами).
Рассмотрим первый вариант.
ПОЛЯ Word — набор кодов (инструкций), обеспечивающих автоматическую вставку в документ текста, рисунков, номеров страниц и других сведений (из справки MS Word).
Широко известен такой способ: создаем или открываем документ и в том месте, где необходимо вывести числовое значение прописью, ставим курсор и нажимаем комбинацию клавиш Ctrl + F9 . В тексте появится затененное поле с фигурными скобками:
Внутри фигурных скобок вставьте следующую конструкцию (я показываю вместе со скобками):
<=1290 \*CardText>, где 1290 — это любое ваше число (не забывайте про знак равенства перед числом), \*CardText — это ключ поля (о нем будет сказано ниже).
Затем нажмите клавишу F9 . В результате вы увидите представленное прописью ваше число, в данном случае — одна тысяча двести девяносто .
Обратите внимание на следующий момент: если вы используете локализованную (русскую) версию редактора Word, то цифры будут представлены прописью по-русски. Если редактор англоязычный, то и вывод чисел прописью будет на этом языке. Возможна ситуация, когда в локализованной версии Word цифры выводятся по-английски. Значит, раскладка клавиатуры в редакторе в данный момент не русская, а английская.
КЛЮЧ — особая инструкция, которая при помещении в поле вызывает выполнение определенного действия. Например, вставка в поле ключа \* Caps определяет, что первая буква каждого слова в значении поля прописная (из справки MS Word).
В нашем примере мы использовали ключ \*CardText . У Word множество различных ключей. Естественно, что знать их все на память нереально, да и не нужно. А в случае необходимости можно обратиться на официальный сайт Microsoft в раздел справочной информации.
Этот ключ выводит результат в виде количественных числительных (записанных словами). По умолчанию используются строчные буквы. Можно дополнительно в поле вставить другие ключи, например ключ \* Upper (преобразовывает все буквы в прописные, то есть заглавные), или ключ \* FirstCap (преобразует первую букву первого слова в прописную).
Если вам необходимо вывести число не арабскими цифрами, а римскими, то для этих целей служит ключ \*roman . Здесь тоже есть небольшая хитрость: регистр выводимого числа будет именно такой, каким вы введете ключ \*roman . Если так: \*roman — то и результат будет в строчных буквах, если так: \*ROMAN — то соответственно результат будет выведен заглавными буквами.
Понятно, что использовать в своей работе эти поля не очень удобно, особенно, когда вам нужно очень часто преобразовывать цифры в строки. Здесь на помощь приходят специальные программы, коих много создано.
Я кратко опишу только некоторые программы, которые показались мне достаточно удобными в использовании.
Начну с программы TRANSNUM — число прописью .
Достаточно интересная программа, работающая с MS Word и MS Excel. Полностью самостоятельная программа, становящаяся полупрозрачной, когда вы переносите фокус на редактор.
Корректно работает со всеми версиями Word, кроме Word 2007.
Другая программа — R2S (Сумма прописью) . Программа старенькая и разрабатывалась для конкурсной программы Microsoft Office Extensions. Бесплатная.
Возможности:
Преобразовывает числовой формат суммы вида 123-45 или 123,45 в прописной вида 123-45 (Сто двадцать три рубля 45 копеек) или 123,45 (Ста двадцати трёх долларов 45 центов). Возможные падежи: Именительный, Родительный. Валюты: Рубли, Доллары.
Работает без ошибок с MS Word 2002 (проверено). C версиями Word 2003 и Word 2007 работает только в режиме буферного обмена.
Следующая программа — макрос Num2String , преобразующая числа в текстовые представления.
В принципе позволяет даже вывести на панель инструментов свою кнопку, но при установке выводит сообщения об ошибках в коде макроса. В чем там именно проблема я не разбирался, так как не являюсь специалистом в VB.
Надеюсь, что эта статья поможет вам сориентироваться и выбрать наиболее подходящий способ перевода чисел, цифр или сумм в строковые представления.
Если у вас есть дополнения к статье — прошу вас высказаться ниже — в комментариях.
В каталоге Download Вы можете найти другие полезные материалы — утилиты, программы, документацию, исходники, электронные книги. Если Вы обнаружили неработающую ссылку, пожалуйста, помогите другим посетителям и администратору каталога Download — сообщите об этом редактору.