Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS