VBA » показ нескольких листов в Excel » Статьи Добавить в Избранное Написать админу
Программы: SoftForFree.com - бесплатные программы: Virtual Dub, WinRAR, eMule, FlashGet, WinDVD, Doom 3 и многое другое.
 Мониторинг версий программ  |  Игровые новости  |  Новости авторов ПО  |  Статьи  |  Новости по RSS
Стиль:
Подробнее о Управление отелем “Гость” 17.7.23Управление отелем “Гость” 17.7.23 Новейшая версия

Автоматизация отеля. Связь с программой Smart Kassir v.6.1 для On-Line касс (54-ФЗ), с программой ФМС.Контур, с замковыми системами ORBITA, ADEL.

Скачать Сайт автора
Подробнее о Memo Fora 4x4 «Свой бизнес» от 03.07.2017 г.Memo Fora 4x4 «Свой бизнес» от 03.07.2017 г.

Программа для торговли без ограничений кол-ва рабочих мест.
- Работа с он-лайн кассой Штрих-М и АТОЛ;
- Формат счет-фактуры и УПД от 01.07.2017 г.

Скачать Сайт автора

Программы


Рейтинги программ


Лучшие из лучших


VBA: показ нескольких листов в Excel

VBA: показ нескольких листов в Excel

16 Июля, 2012
VBA: показ нескольких листов в Excel
Автоиатизация приложений MS Excel становится ежедневной задачей всех обладателей Майкрософт Оффиса.Можно найти много задач выполнение которых можно ускориить или упростить с помощью простого и доступного языка программирования Visual Basic for Applications.
Примером повседневной задачи может быть скрытие и отображение листов. На первый взгляд это кажется простой задачей не требующей автоматизации, НО... Если Вам требуется скрыть несколько листов (например 100) а потом отобразить их потребуется много времени, т.к. скрыть листы можно сразу все (встроенный функционал Excel это позволяет), но отобразить сразу все листы невозможно.
Решить эту проблему можно с помощью языка программирования VBA. Вот пример кода который отобразит все скрытые листы.

Sub ОтобразитьЛист()
Dim Листы As Worksheet
For Each Листы In ActiveWorkbook.Worksheets
Листы.Visible = xlSheetVisible
Next Листы
End Sub

Если Вам необходимо отобразить только часть листов, то можно воспользоваться следующим кодом. Функция будет выдавать запрос на отображение каждого листа.

Sub ЗапросНаОтображениеЛиста()
Dim ИмяЛиста As String
Dim ТекстСообщения As String
Dim Msgres As VbMsgBoxResult
For Each wsSheet In ActiveWorkbook.Worksheets
If wsSheet.Visible = xlSheetHidden Then
ИмяЛиста = wsSheet.Name
ТекстСообщения = "Показ следующего листа?" & vbNewLine & ИмяЛиста
Msgres = MsgBox(ТекстСообщения, vbYesNo)
If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible
End If
Next wsSheet
End Sub
Раздел: Компьютер
Автор статьи: Vba-help.ru
Сайт автора
Просмотров: 2313
Комментарии



Ваш комментарий к статье:

Комментарии публикуются после проверки администратором.
При добавлении отрицательного комментария читайте соглашение об использовании.
Мы не публикуем: сообщения, не относящиеся к статье: "VBA: показ нескольких листов в Excel".

Ваше имя: E-mail:
Оценка: нет 1 2 3 4 5
 *Cообщение
(30-1000 зн.):

 
          
          
  

* * *

Другие статьи

Проблема 2YK Жива. Взгляд изнутри Проблема 2YK Жива. Взгляд изнутри
Итак, решена ли проблема 2000? Сейчас можно лишь сказать, что решена она лишь частично и проблема 2000 или как ее еще называют Y2K только начало всех проблем связанных с датами в ПК.
Раздел: Компьютер
Файловая система ReFS изнутри Файловая система ReFS изнутри
В статье изложено общее описание структуры файловой системы ReFS, ее преимуществ и недостатков.
Раздел: Компьютер
Как защитить свой компьютер? Как защитить свой компьютер? Оценка: 5. Голосов: 2Оценка: 5. Голосов: 2Оценка: 5. Голосов: 2Оценка: 5. Голосов: 2Оценка: 5. Голосов: 2
В этой статье я хочу дать вам несколько простых, но крайне важных рекомендаций в области компьютерной безопасности.
Раздел: Компьютер
5 рабочих примеров использования dos команд 5 рабочих примеров использования dos команд
Командная строка является неотъемлемым элементом при оптимизации (автоматизации) работы за компьютером. В статье дается 5 примеров использования командной строки, собранных из разных источников и регулярно используемых мной как на работе так и дома.
Раздел: Компьютер
Это обычное скроллесико… Это обычное скроллесико…
Небольшая заметка о неочевидных аспектах использования колеса прокрутки мыши.
Раздел: Компьютер


[Все разделы]  [Добавить статью]


Рекомендуем

ПиМаркет 2017 - учёт товара 8.10

Удобная программа для магазина: печать ценников и чеков, данные о наличии товара, продажах, недостачах и многое другое. Любые товары. Онлайн-кассы.

Скачать Скриншоты

• • •

Управление отелем “Гость” 17.7.23 Новейшая версия

Автоматизация отеля. Связь с программой Smart Kassir v.6.1 для On-Line касс (54-ФЗ), с программой ФМС.Контур, с замковыми системами ORBITA, ADEL.

Скачать Скриншоты

• • •

WebClapper 3.0

Невероятно простая и удобная в использовании программа для записи видео и фото с веб-камеры. Позволяет записывать видео и фото уже в сжатом виде.

Скачать Скриншоты

• • •

Mortal Kombat Trilogy

Игра Mortal Kombat Trilogy содержит больше персонажей, чем Mortal Kombat 3. Игра создана под операционную систему Windows.

Скачать Скриншоты

• • •

City Car Driving 1.5

Уникальная учебная программа для обучения вождению в городских условиях, максимально приближенных к реальным.

Скачать Скриншоты


Наша кнопка


Программы: SoftForFree.com - тысячи бесплатных программ, 100 лучших программ рунета, статьи, новости софта и многое другое.

Код нашей кнопки:

Новости Hitech



Полезные программы

Подробнее о FullUpdate 2017.07.17FullUpdate 2017.07.17

Программа для обновления программ, установленных на компьютере. Проверяет наличие новых версий на официальных сайтах, скачивает и устанавливает.

Скачать Скриншоты

Подробнее о EgoSteam 2017.07.17EgoSteam 2017.07.17

EgoSteam - программа для поиска Steam-игр в десятках интернет-магазинов. Поможет сэкономить время и деньги и купить игру дешевле, чем в Steam.

Скачать Скриншоты

Подробнее о WorkStat Office 5.1WorkStat Office 5.1

Программа WorkStat Office предназначена для контроля за работой сотрудников в офисе и автоматизации учета рабочего времени на предприятии.

Скачать Скриншоты



Софт-монитор - новейшие версии программ!

Новый сервис, аналогов которому нет в Интернете.
Мониторинг версий популярных программ в реальном времени, мониторинг программ для Windows, Mac OS, Unix, а также приложений на IPAD и Андроид. Более 800 программ и приложений!

[Скачай новейшие версии бесплатно!]



Вверх страницы

 Программы • Статьи • Реклама на сайте •  RSS 2.0 RSS • Контакты • Соглашение об использовании • Политика конфидециальности

© 2003-2017, SoftForFree.com. Использование материалов сайта разрешается только по договоренности с автором.
Автор проекта не несет ответственности за содержание рекламных материалов и качество программного обеспечения.

Наш проект являтся архивом бесплатных и коммерческих программ, которые размещаются авторами и производителями ПО, либо их официальными представителями. Мы не распространяем нелицензионное ПО, креки, серийные номера и любую другую информацию, запрещенную законодательством РФ.