Форум по Эксель

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Форум по Эксель » Форум по Excel » Скрыть строку


Скрыть строку

Сообщений 1 страница 2 из 2

1

Подскажите пжл есть макрос на решение первого условия

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

допустим условие первое осталось без изменений
Есть книга состоящая из 3 листов "Лист1", "Лист2", "Лист3".
если ячейка А1 = "1" на листе "Лист1", то строки "1", "2", "3" на листе "Лист2" должны скрываться, если в ячейке А1 другое значение то нет

но нужно добавить и условие номер два не как не связаное с первым
если ячейка А1 = "2" на листе "Лист1", то строки "4", "5", "6" на листе "Лист2" должны скрываться, если в ячейке А2 другое значение то нет

посмотрите пжл, что можно сделать

0

2

Уважаемый пользователь!
Сайт переехал на http://www.excelworld.ru/
Адрес форума http://www.excelworld.ru/forum/2
Правила форума: http://www.excelworld.ru/forum/2-20-1
Просьба задавать Ваш вопрос по новому адресу

0


Вы здесь » Форум по Эксель » Форум по Excel » Скрыть строку