powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вес прописью
20 сообщений из 20, страница 1 из 1
Вес прописью
    #35701315
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемые знатоки Excel,
помогите, пожалуйста. Что надо переделать, чтобы он правильно показывал граммы?
Очень-очень надо.
...
Рейтинг: 0 / 0
Вес прописью
    #35701650
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Kg_gr = Kg_gr * 1000
Kg_gr = Int(CDbl(CStr(Kg_gr)))
If Kg_gr > 99999999999999# Then
КГ_ГР_ПРОПИСЬЮ = "Слишком большое число!!!"
Exit Function
End If
КГ_ГР_ПРОПИСЬЮ = Right(CStr(Kg_gr), 3) & " гр"
If Len(CStr(Kg_gr)) = 1 Then КГ_ГР_ПРОПИСЬЮ = "0" & КГ_ГР_ПРОПИСЬЮ
КГ_ГР_ПРОПИСЬЮ = "кг " & КГ_ГР_ПРОПИСЬЮ
Kg_gr = Int(Kg_gr / 1000)


ps
Код безумно кривой, найдите нормальный код для перевода в пропись
...
Рейтинг: 0 / 0
Вес прописью
    #35702107
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
big-dukeKg_gr = Kg_gr * 1000
Kg_gr = Int(CDbl(CStr(Kg_gr)))
If Kg_gr > 99999999999999# Then
КГ_ГР_ПРОПИСЬЮ = "Слишком большое число!!!"
Exit Function
End If
КГ_ГР_ПРОПИСЬЮ = Right(CStr(Kg_gr), 3) & " гр"
If Len(CStr(Kg_gr)) = 1 Then КГ_ГР_ПРОПИСЬЮ = "0" & КГ_ГР_ПРОПИСЬЮ
КГ_ГР_ПРОПИСЬЮ = "кг " & КГ_ГР_ПРОПИСЬЮ
Kg_gr = Int(Kg_gr / 1000)


ps
Код безумно кривой, найдите нормальный код для перевода в пропись

Ох, Большой Дюк, я уж так правила - граммы пишет правильно, зато в килограммах не пойми что.
Код по переводу веса в пропись искала по всем поисковикам - нигде не нашла.
Мне нужно, чтобы он прикреплялся к книге - там будет очень много листов.
Большое спасибо за то что откликнулись.
Обливаюсь горькими слезами и пишу всё вручную.
...
Рейтинг: 0 / 0
Вес прописью
    #35702606
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Sebastian,
вот Вам скорректированный файл.

Но в принципе - не надо искать пропись именно граммов, можно взять любую пропись и приделать к ней граммы - они то не прописью.
...
Рейтинг: 0 / 0
Вес прописью
    #35702642
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_slan_Sebastian,
вот Вам скорректированный файл.

Но в принципе - не надо искать пропись именно граммов, можно взять любую пропись и приделать к ней граммы - они то не прописью.

Слэн, спасибо большое, но килограммы-то неправильно пишутся!
Пожалуйста, за ради Христа, доделай до конца, ну не могу я сама, чеслово!
...
Рейтинг: 0 / 0
Вес прописью
    #35702776
СамБамбук
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
строка 23 - делить НЕ надо ...
...
Рейтинг: 0 / 0
Вес прописью
    #35702810
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
:) - ну да, умножение то я закомментировал, тогда и делить не надо
...
Рейтинг: 0 / 0
Вес прописью
    #35702945
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"СамБамбук
Guest строка 23 - делить НЕ надо ... "

_slan_:) - ну да, умножение то я закомментировал, тогда и делить не надо

Ой, мальчики, миленькие!
Спасибо вам огромное-преогромное, вы даже не представляете как вы меня спасли!
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Вес прописью
    #36697344
bada78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извиняюсь за ап старой темки, но не могу сообразить где и как отредактировать чтобы вместо "кг" писало "т" , а вместо "гр" писало "кг"

Помогите пожалуйста.
...
Рейтинг: 0 / 0
Вес прописью
    #36697403
nilem
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
bada78,
См. файл
...
Рейтинг: 0 / 0
Вес прописью
    #36699398
bada78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
nilembada78,
См. файл
Спасибо огромное.
только вместо "тн" мне нужно, "т" , подскажите где вы правите?
и еще проблемка если например:
"21.3" --> "двадцать один т. 300 кг" , а правельнее будет "одна"
...
Рейтинг: 0 / 0
Вес прописью
    #36699427
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bada78... и еще проблемка если например:
"21.3" --> "двадцать один т. 300 кг" , а правельнее будет "одна"

правельнее © будет "прав и льнее"
...
Рейтинг: 0 / 0
Вес прописью
    #36699435
bada78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vlth,

Я то в курсе, что так пишется,очепятка. Это во всем виновата пропись веса руками:)
А по теме есть че?
...
Рейтинг: 0 / 0
Вес прописью
    #36699439
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bada78,

Попробуйте зайти в редактор VBA (Alt + F11) и в поиске (Ctrl + F) исследовать все эти
тонны, килограммы, граммы и пр.
Заодно, я уверен, опыта наберётесь


Удачи!
...
Рейтинг: 0 / 0
Вес прописью
    #36699450
bada78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vlth,

Спасибо огромное.
Теперь без проблем все сделаю.
Еще раз спасибо.
...
Рейтинг: 0 / 0
Вес прописью
    #36821836
beaves
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
F как этот макрос применить на другом файле экселя?
...
Рейтинг: 0 / 0
Вес прописью
    #36822641
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
beavesF как этот макрос применить на другом файле экселя?
1) Поместите этот макрос в чистую книгу, желательно также перед UDF поставить Public. Сохраните книгу как надстройку (*.xla). Можете положить в стандартный каталог %USERPROFILE%\Application Data\Microsoft\AddIns\, можете куда угодно.
2) ЗапустИте Excel, выберите Сервис-Надстройки и подключИте этот ваш файл.

Недостаток: подключенные надстройки линкуются прямо к приложению, причем без предупреждения о макросах, так что функции станут доступны всегда; хотя расположение в локальном каталоге приводит к неприятным последствиям - на другой машине ссылка будет недоступна, так что надстройку надо либо размещать на расшаренном ресурсе, либо заново прилинковывать формулу.
Достоинство: можно без напряга создать собственную библиотеку общих функций.
...
Рейтинг: 0 / 0
Вес прописью
    #37257834
bada78
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Снова актуально,заплачу за помощь.


Excel 2003
необходимо преобразовывать
21.55 --->> Двадцать одна т. 550 кг.

Icq для связи 265два66семь8ноль
...
Рейтинг: 0 / 0
Вес прописью
    #37258511
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bada78Снова актуально,заплачу за помощь.


Excel 2003
необходимо преобразовывать
21.55 --->> Двадцать одна т. 550 кг.

Icq для связи 265два66семь8нольесть несколько вариантов
1. вы пытаетесь научиться сами. выкладываете свои попытки и вам помогают (бесплатно);
2. вы перестаете изобретать велосипед с макросами и организоваваете всё по-другому: либо без vba (в котором вы не понимаете) - формулами, либо прото без буковок в циферки;
3. вы ищете специализированные организации, коих масса по данной теме;
4. уже ни раз обсуждалось, и, если не ошибаюсь, стандартная цена ответа на этом форуме при вашей постановке вопроса - 5 тыс рублей.
...
Рейтинг: 0 / 0
Вес прописью
    #37258709
Михаил Ч.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Решение на формулах, считает до тысяч (легко можно переделать до млн/млрд).
...
Рейтинг: 0 / 0
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вес прописью
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]