powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / overflow
4 сообщений из 4, страница 1 из 1
overflow
    #33691750
sv_2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
прошу помощи!

привожу пример кода. Он работает и все правильно считает и даже выдает результат, но в конце выполнения выскакивает сообщение о переполнении.
В чем здесь может быть дело
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
 For i =  1  To  36 
    
      For j =  1  To  394 
     
       t = (CDbl(Workbooks("øàáëîí").Sheets("Îñòàòêè(íåä)").Cells( 2  + j,  6  + i).Value) * CDbl(Workbooks("øàáëîí").Sheets("ïëàí ïðîäàæ").Cells( 2  + j,  6  + i).Value)) / CDbl(Workbooks("øàáëîí").Sheets("Îñòàòêè(íåä)").Cells( 2 ,  6  + i).Value)
       Workbooks("øàáëîí").Sheets("Îñòàòêè(øò)").Cells( 2  + j,  6  + i).Value = t
       t =  0 
      
      Next j
      
    Next i

...
Рейтинг: 0 / 0
overflow
    #33691974
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Такая ошибка обычно возникает, когда значение переменной выходит за пределы значений для этого типа данных.

С каким типом объявлена переменная "t"?
...
Рейтинг: 0 / 0
overflow
    #33692001
5631
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
F1 "Type Conversion Functions" в VBA.
Может, CLng поможет ?
...
Рейтинг: 0 / 0
overflow
    #33692090
sv_2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо всем!
Я разобрался. Оказывается я перепутал диапазон и при делении захватывались пустые ячейки. Не могу понять почему выскакивает overflow
по идее должно быть деление на ноль.
Кстати после устранения ошибки скорость выполнения программы увеличилась раза в 4.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / overflow
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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