Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

15 Декабрь 2019, 12:57 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Сумма прописью  (Прочитано 14547 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Радмила
Участник
**
Offline Offline

Сообщений: 9


« Стартовое сообщение: 14 Февраль 2016, 19:52 »

Здравствуйте!
Как можно прописать сумму, не используя кирилик документ и ее команду копировать функции в документ.

В ексель когда работала, скачала надстройку sumprop.xla, и милое дело.

А как быть с опен офис?
Может быть, написать макрос?
Пробовала скопировать макрос

Код:
Для этого задействуются функции

InfraLinux.N2Scribe.Long2Scribe(n)

    преобразует действительное число к виду: **** **** *****


InfraLinux.N2Scribe.Number2Scribe(n)

    преобразует действительное число к виду: **** **** целых **** **** сотых


Пример создания пользовательской функции Calc[1]:

Function CalcNum2Scribe(num_value as Single) as String
  If (Not GlobalScope.BasicLibraries.isLibraryLoaded("InfraLinux")) Then GlobalScope.BasicLibraries.LoadLibrary("InfraLinux")
 
  CalcNum2Scribe = Number2Scribe(num_value)
End Function

После сохранения макроса, в Calc становится доступной функция:

=CalcNum2Scribe(123567657,4556)




Но ругается на слове Function
Записан
Yakov
Администратор
**
Offline Offline

Сообщений: 2 455


WWW
« Ответ #1: 14 Февраль 2016, 23:40 »

А чем Cyrrilic Tools не устраивает?
Записан

Yakov
Администратор
**
Offline Offline

Сообщений: 2 455


WWW
« Ответ #2: 14 Февраль 2016, 23:50 »

Альтернативный вариант – расширение
NumberText

И формула будет такой:
Код:
=NUMBERTEXT(345;"ru")
« Последнее редактирование: 15 Февраль 2016, 00:01 от Yakov » Записан

Радмила
Участник
**
Offline Offline

Сообщений: 9


« Ответ #3: 15 Февраль 2016, 06:47 »

Спасибо, я попробовала - не то.
Мне нужно, чтобы была сумма прописью в рублях и коп, как в бух. доках.
Кириллик не устраивает, потому что надо нажимать несколько раз, чтобы получить сумму прописью, в отличие от екселя - один раз вставил функцию Сумма прописью, а в опен офисе постоянно надо менять значение и функцию.
Записан
Yakov
Администратор
**
Offline Offline

Сообщений: 2 455


WWW
« Ответ #4: 15 Февраль 2016, 08:49 »

Для денежной суммы в расширении NumberText  есть специальная функция

Код:
=MONEYTEXT(76,6;"RUB")
« Последнее редактирование: 15 Февраль 2016, 08:52 от Yakov » Записан

Rafik
Форумчанин
***
Offline Offline

Сообщений: 96


« Ответ #5: 15 Февраль 2016, 10:34 »

Попробуйте Sumtex может быть он подойдет.
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 764


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #6: 15 Февраль 2016, 12:34 »

Может быть, написать макрос?
Пробовала скопировать макрос
Радмила, не тот макрос копировала. Тот, который "сумма прописью в рублях и коп, как в бух. доках." должен выглядеть приблизительно так:
Код:
Function SumPropis(dVal As Double, Optional uCase As Boolean) As Variant
Const LIB_NAME = "CyrillicTools"
If GlobalScope.BasicLibraries.HasByName(LIB_NAME) Then
If (Not GlobalScope.BasicLibraries.isLibraryLoaded(LIB_NAME)) Then GlobalScope.BasicLibraries.LoadLibrary(LIB_NAME)
SumPropis = N2S_RU_RUR(dVal, uCase)
Else
SumPropis = dVal
EndIf
End Function
Лежать эта функция должна в любом модуле любой библиотеки Standard - хоть прямо в книге, где нужно числа в пропись превращать (но тогда иногда книга будет просить включить макросы - а это пугает неопытных пользователей и в конце концов просто надоедает), хоть в "Мои макросы и диалоги" (но тогда это нужно один раз сделать на каждой бухгалтерской машине)
Спасибо, я попробовала - не то.
Кириллик не устраивает, потому что надо нажимать несколько раз, чтобы получить сумму прописью
Извини, но это не совсем соответствует действительности.

Если ты установишь CyrillicTools и поместишь вот эту функцию SumPropis в библиотеку Standard, то в любой ячейке можешь написать, например:
Код:
=SUMPROPIS(D6)
или, если не нужна первая заглавная буква (весь текст строчными)
Код:
=SUMPROPIS(D6;0)
или, чтобы уберечься от некрасивых сообщений об ошибках при открытии этой книги на машине, где запрещены макросы
Код:
=IFERROR(SUMPROPIS(D6);D6)
Если CyrillicTools на машине не будет установлен, то вместо суммы прописью будешь получать ту же сумму, но в виде обычного числа.


* Сумма прописью из CyrillicTools.png (12.88 Кб, 268x244 - просмотрено 248 раз.)
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Радмила
Участник
**
Offline Offline

Сообщений: 9


« Ответ #7: 3 Апрель 2016, 06:58 »

спасибо всем за помощь.
больше всего мне подошел вариант
=MONEYTEXT(А1)
Но только мне надо, чтобы первая буква была прописной и чтобы копейки были в цифрах, вот так:
150,94 Сто пятьдесят рублей 94 копейки

А у меня пока вот так:
150,94 сто пятьдесят рублей девяносто четыре копейки.

Спасибо за ответ

Записан
Rafik
Форумчанин
***
Offline Offline

Сообщений: 96


« Ответ #8: 6 Апрель 2016, 09:11 »

Но только мне надо, чтобы первая буква была прописной и чтобы копейки были в цифрах, вот так:
150,94 Сто пятьдесят рублей 94 копейки

А у меня пока вот так:
150,94 сто пятьдесят рублей девяносто четыре копейки.
Давным-давно как-то находил макрос Sumtex и до сих пор пользуюсь им. Для получения первой заглавной буквы использую костыль в виде формулы. Работает, пока тьфу-тьфу, нормально. См. вложенный документ. На первом листе есть неплохая шпаргалка с описанием параметров. Макрос sumtex прикручен в сам документ.

* _Тест SumTex.ods (132.64 Кб - загружено 682 раз.)
Записан
foxyra
Участник
**
Offline Offline

Сообщений: 19


« Ответ #9: 4 Июнь 2019, 14:46 »


_Тест SumTex.ods

ПРивет,у меня проблема , макрос прописываю,функцию вставляю, и у меня вместо русского шрифта какие то кракозябры.
Помогите плз. если открываешь в вашем файле все нормас, но только если в другую ячейку копируешь ,шрифт не русский становиться .
Если перетягиваешь ячейку с функцией то все нормас. Это значит что к этой ячейке что то еще привязано ,а что именно я не знаю.
За ранее спасибо.
Записан
mikekaganski
Мастер
*****
Offline Offline

Пол: Мужской
Расположение: Хабаровск -> Москва
Сообщений: 1 628


« Ответ #10: 4 Июнь 2019, 15:13 »

Начиная с версии 6.1 макрос не нужен: формат ячейки [NatNum12 capitalize cardinal]0 показывает 12345 как "Двенадцать тысяч триста сорок пять".

Но только мне надо, чтобы первая буква была прописной и чтобы копейки были в цифрах, вот так:
150,94 Сто пятьдесят рублей 94 копейки

А у меня пока вот так:
150,94 сто пятьдесят рублей девяносто четыре копейки.

Хмм... ну да, формат [NatNum12 capitalize RUB]0,00 так и выдаёт - "Сто пятьдесят рублей девяносто четыре копейки" (первую прописную сделать легко, а копейки цифрами - нужно доделывать).
« Последнее редактирование: 4 Июнь 2019, 15:27 от mikekaganski » Записан

С уважением,
Михаил Каганский
foxyra
Участник
**
Offline Offline

Сообщений: 19


« Ответ #11: 16 Июнь 2019, 15:22 »

тут все понятно расписано , мне помогло не так давно .  test.ods

* test.ods (16.09 Кб - загружено 74 раз.)
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!