Скрытие листов при выборе из списка

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Скрытие листов при выборе из списка - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Скрытие листов при выборе из списка (Макросы/Sub)

Скрытие листов при выборе из списка

bumnik

Дата: Четверг, 08.10.2015, 01:40 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 185

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007,2010

Здравствуйте! Подскажите макрос. Если на листе0 в ячейке С1=январь, то видны только листы январь1 и январь2. Если на листе0 в ячейке С1=февраль, то видны только листы февраль1 и февраль2 и т.д. Могу сам сделать кнопкой, но как это сделать при выборе из списка?

К сообщению приложен файл: 3127815.xlsx (10.7 Kb)

Ответить

KSV

Дата: Четверг, 08.10.2015, 02:19 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте!
Например, так: [vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address(0, 0) <> "C1" Then Exit Sub
     Dim i As Long, n As Byte, s As String
     s = Target: n = Len(s)
     For i = 2 To Worksheets.Count
         With Worksheets(i)
             .Visible = Left$(.Name, n) = s
         End With
     Next
End Sub

[/vba]