Скрытие линии в зависимости от условий

[Brucebelg]

Подскажите, пожалуйста, возможно ли сделать такое.

При выборе 1 в ячейке С4 (см. приложенный файл) прячутся в линии с 9 по 15, при выборе 4 в ячейке С4 прячутся линии с 12 по 15, а при 8 - остаются все.

[EducatedFool]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [c3].Address Then
        ' отображаем все строки
        ActiveSheet.UsedRange.EntireRow.Hidden = False
        Select Case Target
                ' скрываем только определённые строки
            Case 1: Range("9:15").EntireRow.Hidden = True
            Case 4: Range("12:15").EntireRow.Hidden = True
            Case Else:    ' ничего не делаем
        End Select
    End If
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__14-50-35.zip

[Skif-F]

Или так:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Row = 3 Then
        Range(CStr(8 + Target.Value) + ":15").RowHeight = 0
        Range("8:" + CStr(7 + Target.Value)).RowHeight = 14
    End If
End Sub

[Brucebelg]

п'емного благода'ен

[Skif-F]

Прошу прощения, недоработка - при 8 блоках пропадает 16-я линия.
Вот так будет лучше:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Row = 3 Then
        Range(CStr(IIf(Target.Value < 8, 8 + Target.Value, 15)) + ":15").RowHeight = 0
        Range("8:" + CStr(7 + Target.Value)).RowHeight = 14
    End If
End Sub

[Brucebelg]

Изменил слегка диапазоны и ячейки и вставил в свой реальный файл. Не работает Может нужно как-то активировать? Извините за дурацкие вопросы ...

[Brucebelg]

Более того, закрыл окно с программой в данном выше файле в режиме вижуалбейзика и больше не могу его открыть.Как его вернуть обратно? Спасибо

[Brucebelg]

Все заработало, спасибо