Необычное условие скрытие строк интересует

[serafim09]

Всем привет! Помогите форумчане новичку


Есть файл и ячейка с определенным именем. Какой код, чтобы относительно именной ячейки скрывалось ниже определенное кол-во строк + сама именная ячейка/строка?

[The_Prist]

Скрывает все строки ниже именованного диапазона и непосредственно им.диапазон

Sub Sub Hide_Range()
Range("Фрукты").Resize(Cells(Rows.Count, 1).End(xlUp).Row, 1).EntireRow.Hidden = True
End Sub

[serafim09]

Сообщение от The_Prist

Скрывает все строки ниже именованного диапазона и непосредственно им.диапазон

Sub Sub Hide_Range()
Range("Фрукты").Resize(Cells(Rows.Count, 1).End(xlUp).Row, 1).EntireRow.Hidden = True
End Sub

Спасибо за код! Но мне необходимо именно вводить точное кол-во скрываемых строк, а не последнее со значением.

[motorway]

Может, типа такого: (a - начальная строка, b - сколько прибавить)

a = 24
b = 2

    Rows(a & ":" & a + b).Select
    Selection.EntireRow.Hidden = True

[serafim09]

Сообщение от motorway

Может, типа такого: (a - начальная строка, b - сколько прибавить)

a = 24
b = 2

    Rows(a & ":" & a + b).Select
    Selection.EntireRow.Hidden = True

О точно! ОНО! Кстати в обратном порядке не работает (( не хочет раскрывать

a = 24
b = 2
Rows(a & ":" & a + b).Select
Selection.EntireRow.Hidden = False

Что не так у меня?

[The_Prist]

Сообщение от serafim09

Спасибо за код! Но мне необходимо именно вводить точное кол-во скрываемых строк, а не последнее со значением.

Тогда об этом надо сразу писать. Вы написали:

определенное кол-во строк

но не написали определенное чем/кем.
Пробуйте так. См.вложение.

[The_Prist]

Сообщение от serafim09

О точно! ОНО! Кстати в обратном порядке не работает (( не хочет раскрывать

А Вам как раскрыать надо? Все скрытые или опять же - выборочно?

[motorway]

Что не так у меня?

У меня работает...

[serafim09]

Сообщение от The_Prist

А Вам как раскрыать надо? Все скрытые или опять же - выборочно?

Спасибо огромное! Как раз в твоем коде было то, что мне нужно!!!

открыть 
Sub Hide_Range()
     Range("Фрукты").Resize(5, 1).EntireRow.Hidden = True
End Sub

скрыть
Sub UnHide_Range()
     Range("Фрукты").Resize(5, 1).EntireRow.Hidden = False
End Sub

Всем за помощь спасибо! Вы молодцы!

[The_Prist]

Вот скрытие/показ.