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

Вход

Регистрация

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

 

= Мир MS Excel/Превратить/конвертировать число в текст - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Превратить/конвертировать число в текст (найти ошибку...)
Превратить/конвертировать число в текст
карандаш Дата: Вторник, 20.02.2018, 20:32 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
Здравствуйте,
Однажды, давным давно, как-то раз на этом форуме пытался решить вышеуказанную задачу. Задача была решена с помощью честноукраде позаимствованного макроса + собственной правки + помощи тутшних спецов (в частности Pelena).

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

Может кто-нибудь сможет подсказать. почему склонение неправильно работает для чисел х11 ... х14 - вместо "рублей" пишет "рубля", хотя для просто 11, 12, ... 14 пишет правильно - "рублей"
(на поставить указатель/маркер на число и кликнуть по кнопке вызова макроса, чтобы он превратил число в текст)

К сообщению приложен файл: 1_.docx (12.9 Kb)


Сообщение отредактировал карандаш - Вторник, 20.02.2018, 20:49
 
Ответить
СообщениеЗдравствуйте,
Однажды, давным давно, как-то раз на этом форуме пытался решить вышеуказанную задачу. Задача была решена с помощью честноукраде позаимствованного макроса + собственной правки + помощи тутшних спецов (в частности Pelena).

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

Может кто-нибудь сможет подсказать. почему склонение неправильно работает для чисел х11 ... х14 - вместо "рублей" пишет "рубля", хотя для просто 11, 12, ... 14 пишет правильно - "рублей"
(на поставить указатель/маркер на число и кликнуть по кнопке вызова макроса, чтобы он превратил число в текст)


Автор - карандаш
Дата добавления - 20.02.2018 в 20:32
Pelena Дата: Вторник, 20.02.2018, 20:42 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Эту строчку поправьте
[vba]
Код
        СУМ_ПРОП = "(" & UCase(Left(m, 1)) & Mid(m, 2) & "рубл" & IIf(rub \ 10 Mod 10 = 1 Or ((rub + 9) Mod 10) >= 4, "ей", IIf(rub Mod 10 = 1, "ь", "я")) & _
                ""    'kop & " копе" & IIf(kop \ 10 mod 10 = 1 Or ((kop + 9) Mod 10) >= 4, "ек)", IIf(kop Mod 10 = 1, "йка)", "йки)"))
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЭту строчку поправьте
[vba]
Код
        СУМ_ПРОП = "(" & UCase(Left(m, 1)) & Mid(m, 2) & "рубл" & IIf(rub \ 10 Mod 10 = 1 Or ((rub + 9) Mod 10) >= 4, "ей", IIf(rub Mod 10 = 1, "ь", "я")) & _
                ""    'kop & " копе" & IIf(kop \ 10 mod 10 = 1 Or ((kop + 9) Mod 10) >= 4, "ек)", IIf(kop Mod 10 = 1, "йка)", "йки)"))
[/vba]

Автор - Pelena
Дата добавления - 20.02.2018 в 20:42
карандаш Дата: Вторник, 20.02.2018, 20:48 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
Спасибо! помогло )))
 
Ответить
СообщениеСпасибо! помогло )))

Автор - карандаш
Дата добавления - 20.02.2018 в 20:48
Otter Дата: Пятница, 24.08.2018, 14:18 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 174
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019, Word 2019
А как сделать чтоб было так:
(Двенадцать тысяч рублей) 52 копейки
Все разобрался сам просто код длинный надо весь смотреть hands


Сообщение отредактировал Otter - Суббота, 25.08.2018, 07:39
 
Ответить
СообщениеА как сделать чтоб было так:
(Двенадцать тысяч рублей) 52 копейки
Все разобрался сам просто код длинный надо весь смотреть hands

Автор - Otter
Дата добавления - 24.08.2018 в 14:18
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Превратить/конвертировать число в текст (найти ошибку...)
  • Страница 1 из 1
  • 1
Поиск:

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