Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel 2003 / 6 сообщений из 6, страница 1 из 1
16.01.2008, 08:55
    #35064301
tat-besidovska
tat-besidovska
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel 2003
Подскажите, пож.!
Такая штука: Рабочая книга, вней листы, как обратиться к листу, который идет следом по порядку, при этом не использовать например(Sheets("Лист2")), заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2008, 09:43
    #35064388
Программист-Любитель
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel 2003
Листы - это коллекция, у которой есть элементы. Надо знать либо имя листа либо его номер по порядку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2008, 09:51
    #35064405
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel 2003
Код: 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:52
    #35064407
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel 2003
прошу прощения в код вкралась очепятка :)

Код: 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, 12:14
    #35064983
tat-besidovska
tat-besidovska
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel 2003
Решила проблемку так:
Worksheets(ActiveSheet.Index + 1).Activate
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2008, 12:42
    #35065084
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Excel 2003
"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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA Excel 2003 / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 363ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162814]:
 0ms
get settings:
 7ms
get forum list:
 17ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 58ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 210ms
total:  363ms
x
x
Закрыть


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