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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

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

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


08:51.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.