Скрыть строку - Мир MS Excel

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

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

Скрыть строку (Необходим макрос который позволит скрывать строки)

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

Гость

Дата: Четверг, 12.07.2012, 20:49 | Сообщение № 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 другое значение то нет

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

Ответить

Serge_007

Дата: Четверг, 12.07.2012, 20:53 | Сообщение № 2

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Гость)

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

О_о

ANLI? Второй день не могу на сизоп в Вашу тему зайти
А почему не регестрируемся?

Добавьте ещё ElseIf

[vba]

Code

ElseIf Sheets("Лист1").Range("A1") =2 Then
Sheets("Лист2").Rows("4:6").EntireRow.Hidden = True

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Гость

Дата: Четверг, 12.07.2012, 20:59 | Сообщение № 3

Группа: Гости

ну кто же мну еще бы помог как не ты, как всегда большое СПС.

Ответить

Hugo

Дата: Четверг, 12.07.2012, 21:01 | Сообщение № 4

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

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

Сообщений: 3690

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

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

365

Вроде так:
[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target = [a1] Then
         Application.ScreenUpdating = False

         With Sheets("Лист2")
             .Rows("1:6").EntireRow.Hidden = False

             Select Case Target.Value
             Case 1: .Rows("1:3").EntireRow.Hidden = True
             Case 2: .Rows("4:6").EntireRow.Hidden = True
             End Select

         End With

         Application.ScreenUpdating = True
     End If
End Sub

[/vba]