Автоматически скрывать строки по условию

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Автоматически скрывать строки по условию - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматически скрывать строки по условию (Макросы/Sub)

Автоматически скрывать строки по условию

kirill59

Дата: Суббота, 24.11.2018, 23:26 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2016

Подскажите, как сделать, чтобы скрывались автоматически строки в диапазоне строк, например, с 10 по 50, при условии, что в предыдущей строке в ячейке столбца B пусто. То есть при вводе текста в ячейку B9 открывается строка 10, при вводе текста в ячейку В10 открывается строка 11 и так далее.

Заранее спасибо

Ответить

Апострофф

Дата: Воскресенье, 25.11.2018, 12:47 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

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

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

Excel 1997

kirill59, попробуйте -
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Target.Row < 9 Then Exit Sub
Rows(Target.Row + 1).Hidden = Target = ""
End Sub

[/vba]

Ответить

krosav4ig

Дата: Понедельник, 26.11.2018, 02:07 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    With Me.Rows("10:50").Columns("B")
        If Intersect(Target, .Cells) Is Nothing Then Exit Sub
        .EntireRow.Hidden = 0
        Intersect(.Cells, .SpecialCells(4).Offset(1)).EntireRow.Hidden = 1
    End With
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 26.11.2018, 02:08

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматически скрывать строки по условию (Макросы/Sub)

Страница 1 из 1
1