Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.03.2010, 14:13   #1
VistaSV30
Форумчанин
 
Аватар для VistaSV30
 
Регистрация: 08.12.2009
Сообщений: 136
По умолчанию Перебор листов книги

Добрый день!
Подскажите как сделать на VBA:
мне нужно последовательно перебрать все листы книги, у листов могут быть самые разные имена, а не только стандартные "Лист1", "Лист2" и т.д.

Спасибо!
VistaSV30 вне форума Ответить с цитированием
Старый 16.03.2010, 14:39   #2
Юнлинг
Форумчанин
 
Регистрация: 17.10.2008
Сообщений: 239
По умолчанию

Цитата:
Сообщение от VistaSV30 Посмотреть сообщение
Добрый день!
Подскажите как сделать на VBA:
мне нужно последовательно перебрать все листы книги, у листов могут быть самые разные имена, а не только стандартные "Лист1", "Лист2" и т.д.

Спасибо!
Мне кажется это не сложно. Если вы откроете VBA и посмотрите на название листов у них помимо названия которые дано ему пользователем, есть и Еxcel-вское имя "Лист1"...
Во всяком случае я пользуюсь именно таким приемом когда необходимо переберать имена листов.
А можно и так
Код:
dim p as string
For Each q In ThisWorkbook.Worksheets
   p = q.Worksheets
   .... ваша операция
Next
Юнлинг вне форума Ответить с цитированием
Старый 16.03.2010, 14:43   #3
Maxx
Форумчанин
 
Аватар для Maxx
 
Регистрация: 29.10.2008
Сообщений: 294
По умолчанию

Код:
Sub EachSheet()
For Each Sh In ThisWorkbook.Worksheets
    Sh.Cells(1, 1).Value = 1
Next
End Sub
Код переберет все листы в Книге и запишет в ячейку A1значение 1.
Maxx вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выпадающий список с названиями листов книги transkriptsiya Microsoft Office Excel 9 28.11.2013 18:55
Список листов книги Scolopendra Microsoft Office Excel 3 12.12.2009 21:58
добавление и переименование листов книги kievlyanin Microsoft Office Excel 12 05.08.2009 18:14
Копировние листов из одной книги в другую Jenik Microsoft Office Excel 4 04.03.2009 12:22
Сортировка листов книги RUBEY Microsoft Office Excel 1 17.07.2008 10:57