Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.70
olgerd
0 / 0 / 0
Регистрация: 05.10.2014
Сообщений: 4
#1

Ошибка error 9 'Subcript Out of Range' - VBA

19.01.2010, 03:50. Просмотров 1385. Ответов 3
Метки нет (Все метки)

Visual Basic
1
2
3
For i = 1 To ActiveSheet.HPageBreaks.Count
MsgBox (ActiveSheet.HPageBreaks(i).Location.Row)
Next i
Такой код по идее должен выдавать номера строк на которых проиходит разрыв страницы.
А он выдает номер строки только один раз, а потом пишет error 9 'Subcript Out of Range' и это при том, что i=2, а
ActiveSheet.HPageBreaks.Count=3
Подскажите, пожалуйста, может кто сталкивался, полночи уже долбаюсь...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.01.2010, 03:50
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ошибка error 9 'Subcript Out of Range' (VBA):

Ошибка выполнения макроса Runtime Error 9: Subscript Out of Range
Здравствуйте, у меня есть написанный макрос для Exel 2003 на нескольких компах...

Ошибка Run-time error 9: subscript out of range. В чем причина?
В VBA не очень шарю, но пришлось написать программу для выставления цен....

На последней строке выскакивает ошибка: Run-time error '9' Subscript out of range
Есть такой кусок кода (пишу макрос для Corel): Dim Paritet As Variant Dim Bar...

При каких обстоятельствах может возникнуть ошибка 'Runtime error '9': Subscript out of range'
Sub СозданиеДиаграммы() Dim n As Integer n =...

Ошибка: "Run-time error '9': Subscript out of range"
Здравствуйте! При многократном нажатии на кнопку вылазит данная ошибка...

При вызове объекта Range, VBA самостоятельно меняет Range на rAnge
Всем доброго дня, у меня такой вопрос. По незнанию создал функцию rAnge(),...

3
Savelev
19.01.2010, 09:43 #2
Проблема имеется.

см. следующую ссылку

http://support.microsoft.com/default.aspx?scid=kb;en-us;210663&Product=xlw2K

Передвинь активную ячейку на последную строчку листа. И все получится.
nap2k
0 / 0 / 0
Регистрация: 27.09.2009
Сообщений: 74
21.01.2010, 09:37 #3
Да, и еще Application.ScreenUpdate = false
0
olgerd
0 / 0 / 0
Регистрация: 05.10.2014
Сообщений: 4
22.01.2010, 11:54 #4
Большое спасибо, вроде все получилось!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2010, 11:54
Привет! Вот еще темы с решениями:

Error 9: Subscript out of range
Всем здравствуйте, нужно данные сводной на другой лист выдает ошибку Error...

Error 9: Subscript out of range
Господа, всем добрый день мне нужно исправить ошибку в программе для...

Error 9: Subscript out of range
Здравствуйте, прошу помочь -- при запуске программы возникает ошибка "Subscript...

Error 9: Subscript out of range
Добрый вечер! Получилось написать код решения системы оду методом Рунге-Кутты,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru