Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/скрытие строк по отдельным условиям в ячейках - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скрытие строк по отдельным условиям в ячейках (Макросы/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
 
Ответить
СообщениеЗдравствуйте. В файле делаю скрытие строк по коду:
[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]
вот только последующие условия в ячейках и зависимые строки не могу доделать. Помогите скрывать отдельно каждый отдел таблицы.

Автор - AB0885
Дата добавления - 23.10.2022 в 10:02
doober Дата: Воскресенье, 23.10.2022, 11:24 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 901
Репутация: 314 ±
Замечаний: 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]


 
Ответить
СообщениеРешение мне не нравиться[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]

Автор - doober
Дата добавления - 23.10.2022 в 11:24
AB0885 Дата: Воскресенье, 23.10.2022, 17:03 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

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


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

Автор - AB0885
Дата добавления - 23.10.2022 в 17:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скрытие строк по отдельным условиям в ячейках (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!