Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / runtime error 6 overflow vba / 3 сообщений из 3, страница 1 из 1
25.10.2011, 12:20
    #37496726
CTYDEHT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
runtime error 6 overflow vba
Здравствуйте, при выполнении кода вылезло такое сообщение.

Только не пойму из-за чего такое может вылезти((
Прилагаю файл
Скачать файл

у меня ошибка вылезает в строке

Код: plaintext
1.
2.
Sheets("Переходный").Cells(skl -  1 , sklad_cena).Value = CInt(Sheets("Переходный").Cells(skl -  1 , sklad_cena).Text) _
                    + CInt(Sheets("Переходный").Cells( 6 , sklad_cena).Text)

где

sklad_cena = 46
skl = 194

Sheets("Переходный").Cells(6, sklad_cena).Text = "29496"
Sheets("Переходный").Cells(skl - 1, sklad_cena).Text = "3600"
...
Рейтинг: 0 / 0
25.10.2011, 12:43
    #37496770
_тип_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
runtime error 6 overflow vba
CTYDEHT,

у каждого типа есть свой диапазон значений. Для зачем-то использованного здесь Integer (к чему здесь .Text и приведение к Integer через CInt вообще?) этот диапазон -32768..32767. 29496 + 3600 > 32767 -> overflow.
...
Рейтинг: 0 / 0
25.10.2011, 13:01
    #37496800
CTYDEHT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
runtime error 6 overflow vba
Спасибо за подсказку, не обратил внимания на это.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / runtime error 6 overflow vba / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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