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

Вход

Регистрация

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

 

= Мир MS Excel/OVERFLOW при числах выше определенного порога - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
OVERFLOW при числах выше определенного порога
UExperim Дата: Среда, 19.08.2020, 15:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте! Прошу помочь мне, так как я не программист и мне сложно понять откуда в прайсе подсчета мебельных деталей выскакивает ошибка Overflow. Пока в прайсе стоимость стоит до 12 000 - код работает исправно, если же хотя бы 12050 - уже выдаёт ошибку. Скрины прилагаю. Если информации будет недостаточно - пишите пожалуйста, добавлю, что необходимо. Сам файл приложить не могу, он весит за 15 мб. Спасибо большое.
К сообщению приложен файл: 7796495.xls (233.0 Kb) · 5260583.xls (413.0 Kb)


полный дилетант

Сообщение отредактировал UExperim - Среда, 19.08.2020, 15:26
 
Ответить
СообщениеЗдравствуйте! Прошу помочь мне, так как я не программист и мне сложно понять откуда в прайсе подсчета мебельных деталей выскакивает ошибка Overflow. Пока в прайсе стоимость стоит до 12 000 - код работает исправно, если же хотя бы 12050 - уже выдаёт ошибку. Скрины прилагаю. Если информации будет недостаточно - пишите пожалуйста, добавлю, что необходимо. Сам файл приложить не могу, он весит за 15 мб. Спасибо большое.

Автор - UExperim
Дата добавления - 19.08.2020 в 15:25
nilem Дата: Среда, 19.08.2020, 15:38 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
UExperim, привет
Скорее всего, преобразовывать нужно не в Integer, а в Long (т.е. не CInt, а CLng)
Попробуйте в желтой строке вот это
[vba]
Код
... CInt(add04Ws.Range("H" & Cstr...
[/vba]
заменить на это
[vba]
Код
... CLng(add04Ws.Range("H" & Cstr...
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеUExperim, привет
Скорее всего, преобразовывать нужно не в Integer, а в Long (т.е. не CInt, а CLng)
Попробуйте в желтой строке вот это
[vba]
Код
... CInt(add04Ws.Range("H" & Cstr...
[/vba]
заменить на это
[vba]
Код
... CLng(add04Ws.Range("H" & Cstr...
[/vba]

Автор - nilem
Дата добавления - 19.08.2020 в 15:38
UExperim Дата: Среда, 19.08.2020, 16:07 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Огромное спасибо! Всё получилось! Тема закрыта.


полный дилетант
 
Ответить
СообщениеОгромное спасибо! Всё получилось! Тема закрыта.

Автор - UExperim
Дата добавления - 19.08.2020 в 16:07
  • Страница 1 из 1
  • 1
Поиск:

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