ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel 2003
6 сообщений из 6, страница 1 из 1
VBA Excel 2003
    #35064301
tat-besidovska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tat-besidovska
Гость
Подскажите, пож.!
Такая штука: Рабочая книга, вней листы, как обратиться к листу, который идет следом по порядку, при этом не использовать например(Sheets("Лист2")), заранее спасибо.
...
Рейтинг: 0 / 0
16.01.2008, 08:55
| Ответить | Цитировать | Написать  
VBA Excel 2003
    #35064388
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Листы - это коллекция, у которой есть элементы. Надо знать либо имя листа либо его номер по порядку.
...
Рейтинг: 0 / 0
16.01.2008, 09:43
| Ответить | Цитировать | Написать  
VBA Excel 2003
    #35064405
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gjghjc
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For i =  1  To Sheets.Count ' Цикл от 1 до последнего листа в книге

Application.Sheets( 1 ).Select ' выбор листа с порядковым номером i

'Здесь производятся действия над листом с порядковым номером i

Next i


С уважением, Николай.
...
Рейтинг: 0 / 0
16.01.2008, 09:51
| Ответить | Цитировать | Написать  
VBA Excel 2003
    #35064407
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gjghjc
Участник
прошу прощения в код вкралась очепятка :)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For i =  1  To Sheets.Count ' Цикл от 1 до последнего листа в книге

Application.Sheets(i).Select ' выбор листа с порядковым номером i

'Здесь производятся действия над листом с порядковым номером i

Next i



С уважением, Николай.
...
Рейтинг: 0 / 0
16.01.2008, 09:52
| Ответить | Цитировать | Написать  
VBA Excel 2003
    #35064983
tat-besidovska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tat-besidovska
Гость
Решила проблемку так:
Worksheets(ActiveSheet.Index + 1).Activate
...
Рейтинг: 0 / 0
16.01.2008, 12:14
| Ответить | Цитировать | Написать  
VBA Excel 2003
    #35065084
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
"tat-besidovska" <nospam@sql.ru>; сообщил/сообщила в новостях следующее:
news:5159184@sql.ru...
> Автор: tat-besidovska
> Решила проблемку так:
> Worksheets(ActiveSheet.Index + 1).Activate
> Тема Ответить Сообщение
>
Если активное окно - последний лист книги, получиш ошибку "Subscript out of
range", если не предусмотрела обработку этой ситуации

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
16.01.2008, 12:42
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel 2003
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35064983&tid=2162814]:
 0ms
get settings:
 9ms
get forum list:
 23ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 130ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 251ms
total:  487ms
созд. / загр.: 487ms
x
x
Закрыть


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