Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Скрыть пять строк по одному условию
 
#1
04.12.2018 10:21:42
Товарищи, всем доброго дня!
Помогите пожалуйста решить задачу на скрытие нескольких строк в таблице (не умная). Имеется таблица, в которой производяться расчёты.  В ячейке А1 есть выпадающий список. Как реализовать, чтобы когда в ячейке А1 установлено "Группа" строки таблицы (диапазон с 4 строки по 13) были видны все, а когда выбирался Склад1, Склад2... и другой, то скрывались строки от 9 по 13?
Спасибо!
 
 
 
#2
04.12.2018 10:32:17
Так?
Я не волшебник, я только учусь.
 
 
 
#3
04.12.2018 10:36:28
Wiss, супер! Спасибо Вам!
 
 
 
#4
04.12.2018 11:07:55
Wiss, а если у меня на рабочем листе уже есть один код Private Sub, как мне добавить туда еще один, чтобы они работали в своё время, когда нужны?
 
 
 
#5
04.12.2018 11:18:55
Private Sub Это не название, а скорее тип. Нужно с листа просто его скопировать и всё. Если ваш код тоже worksheet_change, то просто скопируйте в начало своего макроса мой от IF до end If.
Я не волшебник, я только учусь.
 
 
 
#6
04.12.2018 11:49:02
Если у них разные названия, то что мешает добавить еще один Private Sub?
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
#7
04.12.2018 12:05:22
Михаил Лебедев, Wiss, товарищи, не могу всё равно. Туповат для такого ремесла. Посмотрите, вот такой есть код, он работает на том же листе, на котором должен работать и тот код, который мне сделал Wiss:
Скрытый текст
 
 
 
#8
04.12.2018 12:21:01
Код
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("d1:d1")) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        If Len(Target.Offset(0, 1)) = 0 Then
            Target.Offset(0, 1) = Target
        Else
            Target.End(xlToRight).Offset(0, 1) = Target
        End If
        Target.ClearContents
        Application.EnableEvents = True
    End If

    If Target.Parent.Range("A1") = "Ãðóïïà" Then
        Target.Parent.Range("9:13").EntireRow.Hidden = False
    Else
        Target.Parent.Range("9:13").EntireRow.Hidden = True
    End If
End Sub
Я не волшебник, я только учусь.
 
 
 
#9
04.12.2018 12:29:01
Wiss, работает. Вот только небольшой нюанс вылез. У меня выпадающий список, на который должен реагировать Ваш макрос, создан не через "Данные", а через "Элементs ActiveX", и на изменение через данный список макрос не работает. Как быть, подскажите?

Добавил пример с таким списком.
Изменено: tmhashNIK - 04.12.2018 12:37:53
 
 
 
#10
04.12.2018 12:38:43
Цитата
tmhashNIK написал:
У меня выпадающий список, на который должен реагировать Ваш макрос, создан не через "Данные", а через "Элементs ActiveX",
Зачем (ЗАЧЕМ?!!) же тогда показывать пример с выпадающим в ячейке?
Отслеживайте изменение в этом элементе управления.
 
 
 
#11
04.12.2018 12:44:23
Юрий М, а как реализовать отслеживание в макросе на этот элемент?
 
 
 
#12
04.12.2018 12:48:33
В это контроле тоже есть событие Change - его и используйте. Или Click
 
 
 
#13
04.12.2018 12:57:30
Юрий М, спасибо, но к сожалению, моих знаний не хватит, чтобы ваши два предложения обратить в действенный функционал.
 
 
 
#14
04.12.2018 14:27:58
tmhashNIK, если бы Вы сразу (СРАЗУ!) показали реальное положение дел в файле - помощь бы уже давно получили.
 
 
 
#15
04.12.2018 14:38:24
Юрий М, я обязательно учту в следующий раз, когда буду обращаться за помощью на форум.
Изначально, даже не думал, что это окажется важным аспектом. Только спустя несколько проб, начал обращаться с тем. что не выходит соединить два кода, думал, что не верно их соединяю, а потом только дошло, что дело в разных "выпадающих списках", когда руками в А1 попробовал изменить заданные условия из первого сообщения (о котором писал). Вот в этом соль.
 
 
 
Страницы: 1
Наверх