|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.06.2017, 10:39 | #1 |
Пользователь
Регистрация: 12.11.2010
Сообщений: 83
|
Переполнгение счетчика
Добрый день!
Смысл программы, открывается куча ОСВ (обороток) в них ищется контрагент и подсвечивается. Но при выполнении пишет ошибку (переполнение счетчика qwer), если изменить на тип ЛОНГ, то он вообще зависает, но при этом если выполнять программу построчно через Ф8, то все гуд работает. Код:
Последний раз редактировалось Palomnik1096; 22.06.2017 в 10:43. |
22.06.2017, 10:48 | #2 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
для проверки попробуйте просто: Код:
p.s. а ещё, если в макросе используется .Select . Activate - то, в 99.9% случаев это означает, что макрос написан крайне неэффективно... |
|
22.06.2017, 10:53 | #3 | ||
Пользователь
Регистрация: 12.11.2010
Сообщений: 83
|
Цитата:
Цитата:
|
||
22.06.2017, 11:07 | #4 | |
Пользователь
Регистрация: 12.11.2010
Сообщений: 83
|
Цитата:
По остальным все гуд, считает как есть... Если делать через Ф8, то считает, как положено... Последний раз редактировалось Palomnik1096; 22.06.2017 в 11:13. |
|
22.06.2017, 11:35 | #5 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
я, например, не понимаю, что Вы в цикле делаете. а вообще, думаю, что для решения вашей проблемы полезно было 1) объяснить, какую задачу Вы решаете, что именно Вы этим кодом пытаетесь найти 2) выложить на форум архив с проблемной книгой (если там информация не для посторонних, то заменить все значимые данные на случайные, чтобы скрыть их). впрочем, возможно, что решение будет предложено и без файла. |
|
22.06.2017, 11:43 | #6 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
на листе что-то косячно было вставлено от и столько строк получилось
попробуйте такой qwer Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
23.06.2017, 10:15 | #7 | |||
Пользователь
Регистрация: 12.11.2010
Сообщений: 83
|
[QUOTE=Serge_Bliznykov;1688216]подождите кого-то, кто разбирается в VBA.
я, например, не понимаю, что Вы в цикле делаете. а вообще, думаю, что для решения вашей проблемы полезно было [QUOTE] Цитата:
Цитата:
Цитата:
|
|||
23.06.2017, 10:17 | #8 | |
Пользователь
Регистрация: 12.11.2010
Сообщений: 83
|
Цитата:
Единственное можно не большой коммет! Cells(Rows.Count, 1).End(xlUp).Row - это я так понимаю идет подсчет всех ячеек со смещением 1, только не как у меня сверху вниз, а снизу вверх? |
|
23.06.2017, 10:27 | #9 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
- перейти в самую последнюю, из возможных, ячеек столбца 1 - сместить вверх, пока не найдешь непустую ячейку - дай мне номер строки етой непустой ячейки ===>> количество использованных строк в столбце 1
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
23.06.2017, 10:30 | #10 |
Пользователь
Регистрация: 12.11.2010
Сообщений: 83
|
Спасибо!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
программа счетчика | Частухина Анна | Помощь студентам | 3 | 28.11.2012 16:24 |
накрутка счетчика | megostudent | Свободное общение | 13 | 15.04.2012 18:38 |
Алгоритм счетчика | Niksan | Visual C++ | 1 | 10.06.2011 21:24 |
значение счетчика | dark_sergey | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 16.12.2010 22:47 |
Установка счетчика | doober | Microsoft Office Access | 3 | 21.02.2010 23:15 |