По4итаем.ру: чтение без разбору

Статьи

Новинки



по4итаем.ру

Каталог статей

Читать статьи бесплатно



Яндекс цитирования
LiveRSS: Каталог русскоязычных RSS-каналов
Rambler's Top100


Карта сайта:   Часть 1 Часть 2 Часть 3 Часть 4 Часть 5 Часть 6










Другие статьи рубрики:


Кто сделает высокоэффективное мобильное приложение для iOS и Android?

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

Что такое Firebird SQL?

Как правильно внедрить управление версиями и изменениями в софтверной организации

Возможности Linux для web-мастера

Шаблоны сайтов joomla 3 или рекомендации для молодых разработчиков

ThruPutt - революция в мире гольфа

Внедрение современных автоматизированных систем - залог успеха вашей деятельности

Hi-Tech  ->  Программирование

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


Автоиатизация Excel становится насущной задачей каждого пользователя MS Office. Существует множество задач исполнение которых можно ускориить или упростить с помощью простого и доступного языка программирования Visual Basic for Applications. В качестве примера можно привести пример из Excel.
      Excel позволяет скрывать несколько листов одним нажатием кнопки, выбрав все листы , которые вы хотите скрыть. Показ скрытые листы совсем другая история. Excel только позволяет отобразить однин лист одновременно. Естественно, если у вас есть несколько листов которые вы хотите отобразить, это может быть очень трудоемкой задачей.Для решения этой проблемы можно использовать макрос для отображения листов. 
Следующий VBA макрос может отобразить все листы в текущей книге :

Sub UnhideAllSheets()
Dim wsSheet As Worksheet
For Each wsSheet In ActiveWorkbook.Worksheets
wsSheet.Visible = xlSheetVisible
Next wsSheet
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.
 Источник : vba-help.ru




Параметры статьи

Адрес источника: http://vba-help.ru/primerVBA

постоянная ссылка на статью: http://www.po4itaem.ru/art/14450_stat.html