| Вопрос: Перебор листов | Добавлено: 06.06.07 17:22 |
Автор вопроса:  george | ICQ: 301137589 |
|
У меня есть 10 листов, их названия 1,2,3,... 10. Как мне сделать поочередное открытие этих листов в цикле?
Обычное for i = 1 to 10 sheets(i).select next i не проходит |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  LonerWanderer Вопросов: 18 Ответов: 66 |
Профиль | | #1 | Добавлено: 06.06.07 22:26 |
|
попробуй sheets(Str(i)).select
|
||
|
Номер ответа: 2 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #2 | Добавлено: 07.06.07 13:21 |
|
Не знаю, у меня всё нормально открывается. Только если у меня открыт первый лист, то цикл надо начинать со 2 страницы
Sub Макрос1()
Dim i& For i = 2 To 10 Sheets(i).Select Next i End Sub |
||
|
Номер ответа: 3 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #3 | Добавлено: 07.06.07 13:31 |
| Хотя не, что-то тут не то, если они расположенны в разнобой, то выделяются неправильно. Надо подумать | ||
|
Номер ответа: 4 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #4 | Добавлено: 07.06.07 13:41 |
|
Попробуйте вот так
Sub Макрос1()
Dim i& For i = 2 To 4 Sheets("" & i & ""  .Select
Next i End Sub |
||
Страница: 1 |