Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос "сумма прописью" - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос "сумма прописью" (Макросы/Sub)
Макрос "сумма прописью"
inforus Дата: Вторник, 29.03.2016, 16:31 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добрый вечер!

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

То есть, чтобы в исходном виде отображалось "/Одна тысяча сто одиннадцать рублей 00 копеек/".

Исходный код макроса в приложенном файле.
К сообщению приложен файл: 1908450.txt(8Kb)


Сообщение отредактировал inforus - Вторник, 29.03.2016, 16:32
 
Ответить
СообщениеДобрый вечер!

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

То есть, чтобы в исходном виде отображалось "/Одна тысяча сто одиннадцать рублей 00 копеек/".

Исходный код макроса в приложенном файле.

Автор - inforus
Дата добавления - 29.03.2016 в 16:31
Karataev Дата: Вторник, 29.03.2016, 16:40 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 643
Репутация: 226 ±
Замечаний: 0% ±

Excel
В функции "Propis", в самом низу, после:
[vba]
Код
Propis = WorksheetFunction.Trim(Out)
[/vba]
запишите:
[vba]
Код
Propis = "/" & Propis & "/"
[/vba]
То есть в конце должно быть так:
[vba]
Код
Propis = WorksheetFunction.Trim(Out)
Propis = "/" & Propis & "/"
End Function
[/vba]




Сообщение отредактировал Karataev - Вторник, 29.03.2016, 16:41
 
Ответить
СообщениеВ функции "Propis", в самом низу, после:
[vba]
Код
Propis = WorksheetFunction.Trim(Out)
[/vba]
запишите:
[vba]
Код
Propis = "/" & Propis & "/"
[/vba]
То есть в конце должно быть так:
[vba]
Код
Propis = WorksheetFunction.Trim(Out)
Propis = "/" & Propis & "/"
End Function
[/vba]

Автор - Karataev
Дата добавления - 29.03.2016 в 16:40
_Boroda_ Дата: Вторник, 29.03.2016, 16:41 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 9375
Репутация: 3948 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Перед первым Енд Функшн строку перепишите

[vba]
Код
Propis = "/" & WorksheetFunction.Trim(Out) & "/"
[/vba]
К сообщению приложен файл: 1908450_1.txt(8Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПеред первым Енд Функшн строку перепишите

[vba]
Код
Propis = "/" & WorksheetFunction.Trim(Out) & "/"
[/vba]

Автор - _Boroda_
Дата добавления - 29.03.2016 в 16:41
китин Дата: Вторник, 29.03.2016, 16:46 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3448
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
а поиском не судьба воспользоваться? сумма прописью Пост № 3 .к UDF оттуда просто прикрутить"/" с помощью сцепить
Код
="/"&MSumProp(A1)&"/"


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538


Сообщение отредактировал китин - Вторник, 29.03.2016, 16:47
 
Ответить
Сообщениеа поиском не судьба воспользоваться? сумма прописью Пост № 3 .к UDF оттуда просто прикрутить"/" с помощью сцепить
Код
="/"&MSumProp(A1)&"/"

Автор - китин
Дата добавления - 29.03.2016 в 16:46
inforus Дата: Вторник, 29.03.2016, 17:08 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
о есть в конце должно быть так:
Propis = WorksheetFunction.Trim(Out)
Propis = "/" & Propis & "/"
End Function


К сожалению, сбивается кодировка.
Перед первым Енд Функшн строку перепишите

Propis = "/" & WorksheetFunction.Trim(Out) & "/"
К сообщению приложен файл: 1908450_1.txt(8Kb)


Тоже сбивается кодировка
К сообщению приложен файл: 0815323.jpg(47Kb)
 
Ответить
Сообщение
о есть в конце должно быть так:
Propis = WorksheetFunction.Trim(Out)
Propis = "/" & Propis & "/"
End Function


К сожалению, сбивается кодировка.
Перед первым Енд Функшн строку перепишите

Propis = "/" & WorksheetFunction.Trim(Out) & "/"
К сообщению приложен файл: 1908450_1.txt(8Kb)


Тоже сбивается кодировка

Автор - inforus
Дата добавления - 29.03.2016 в 17:08
_Boroda_ Дата: Вторник, 29.03.2016, 17:36 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 9375
Репутация: 3948 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А у меня не сбивается. См. файл
К сообщению приложен файл: 78272867.xlsm(26Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА у меня не сбивается. См. файл

Автор - _Boroda_
Дата добавления - 29.03.2016 в 17:36
inforus Дата: Среда, 30.03.2016, 11:07 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
А у меня не сбивается. См. файл


Спасибо, все работает!
 
Ответить
Сообщение
А у меня не сбивается. См. файл


Спасибо, все работает!

Автор - inforus
Дата добавления - 30.03.2016 в 11:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос "сумма прописью" (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!