Сократить код - Страница 2

Старая форма входа

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

Сократить код

Serge_007

Дата: Понедельник, 09.07.2012, 19:52 | Сообщение № 1

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Написал тут такой код (Требования: Есть книга состоящая, как минимум, из 3 листов "Лист1", "Лист2", "Лист3", возможно наличие и других листов. На листе "Лист1" в ячейке А1 условие (2 или 3)
В зависимости от данных в ячейке А1 на листе "Лист1" листы - "Лист2" или "Лист3" должны скрываться.
Если на листе "Лист1" в ячейке А1 значение 1, то отображаются все листы. Если в книге есть другие листы, то с ними ничего происходить не должно. После любого выбора надо возвращаться на Лист1):

[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
               If Sheets("Лист1").Range("A1") = 2 Then
Sheets("Лист2").Visible = False
Sheets("Лист3").Visible = True
               ElseIf Sheets("Лист1").Range("A1") = 3 Then
Sheets("Лист3").Visible = False
Sheets("Лист2").Visible = True
               ElseIf Sheets("Лист1").Range("A1") = 1 Then
               Sheets("Лист3").Visible = True
Sheets("Лист2").Visible = True
           End If
           Sheets("Лист1").Select
           Application.ScreenUpdating = True
End Sub

[/vba]

Вопрос: Можно его принципиально сократить?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Alex_ST

Дата: Вторник, 10.07.2012, 22:19 | Сообщение № 21

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

Ранг: Участник клуба

Сообщений: 3213

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

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

2003

Хозяин-барин.
Мой вариант работает точно так же как и у Михаила, просто это сделано в цикле и поэтому код позволяет элементарно подстраивать его под изменяющиеся нужды.