скрытие строк по отдельным условиям в ячейках

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

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

скрытие строк по отдельным условиям в ячейках (Макросы/Sub)

AB0885

Дата: Воскресенье, 23.10.2022, 10:02 | Сообщение № 1

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

Ранг: Участник

Сообщений: 60

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

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

Здравствуйте. В файле делаю скрытие строк по коду:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    Select Case Target
        Case "скрыть"
           Rows("2:5").Hidden = True
        Case "отобразить"
            Rows("2:5").Hidden = False
    End Select
    Target.Select
   End Sub

[/vba]
вот только последующие условия в ячейках и зависимые строки не могу доделать. Помогите скрывать отдельно каждый отдел таблицы.

К сообщению приложен файл: 7390826.xlsm (14.5 Kb)

Сообщение отредактировал AB0885 - Воскресенье, 23.10.2022, 10:03

Ответить

doober

Дата: Воскресенье, 23.10.2022, 11:24 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 961

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

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

Excel 2010

Решение мне не нравиться[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
' If Target.Address(0, 0) <> "A1" Then Exit Sub
    Select Case Target
    Case "скрыть"
        Rows("2:5").Hidden = True
    Case "скрыть 2"
        Rows("10:13").Hidden = True
    Case "скрыть 3"
        Rows("18:21").Hidden = True
    Case "отобразить"
        Rows("2:5").Hidden = False
    Case "отобразить 2"
        Rows("10:13").Hidden = False
    Case "отобразить 3"
        Rows("18:21").Hidden = False
    End Select
    Target.Select
End Sub

[/vba]

Ответить

AB0885

Дата: Воскресенье, 23.10.2022, 17:03 | Сообщение № 3

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

Ранг: Участник

Сообщений: 60

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

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

doober, Спасибо, работает, оказывается всё так просто.
Я знаю, что здесь что-то не так (но я не спец), но это работает. если ест у кого предложение как правильно, буду благодарен.

Сообщение отредактировал AB0885 - Воскресенье, 23.10.2022, 17:05

Ответить

скрытие строк по отдельным условиям в ячейках (Макросы/Sub)

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