Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автоматическое сокрытие/раскртие столбцов по обновляемому значению
 
#1
19.02.2020 15:17:09
Добрый день,

Я, наверное как и все находил похожие темы, но предложенные решения конкретно мне не попомгли.

В прикрепленном файле есть два листа.
Secondary лист на котором которые будут вводится разные данные и отображаться на Main.
Нужно, чтобы когда значение ячейки на листе Secondary менялось на "no", столбец на листе Main скрывался автоматически и чтобы когда значение менялось с "no" на любое другое, автоматически раскрывалось.

Надеюсь вы сможете мне помочь.
Заранее спасибо!
 
 
 
#2
19.02.2020 15:25:55
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        Sheets("Main").Columns(Target.Column).EntireColumn.Hidden = (Target.Value = "no")
    End If
End Sub
В модуль листа Secondary.
 
 
 
#3
19.02.2020 15:47:53
Спасибо МатросНаЗебре!

Однако, когда  я вставляю код в модуль и пытаюсь запустить, он просто хочет создать новый макрос.
Видимо это что-то из основ до которых я не дополз еще.
 
 
 
#4
19.02.2020 15:53:39
Нажмите правой кнопкой на ярлычке листа Secondary. Потом исходный текст. В появившееся окно вставьте текст.
Никакой новый макрос создаваться не должен. Макрос будет срабатывать после изменения в ячейке.
 
 
 
#5
19.02.2020 17:16:35
К сожалению не получается.
Погуглил на предмет невозможности запустить макрос. Как у себя, проблемы не нашел.
 
 
 
#6
19.02.2020 17:21:08
Вы вводите на листе Secondary в ячейку значение "no", и на листе Main столбцы не скрываются?
 
 
 
#7
20.02.2020 11:26:04
Все получилось!
Я просто вставил и не запуская пообновлял значения.
Однако я понял, что необдуманно описал задачу. Дело в том, что меняющиеся значения на главной будут браться из разных вкладок и распологаться в четко заданных ячейках.
Адаптировать не получилось.
 
 
 
#8
20.02.2020 11:49:40
Код
Sub CheckNo()
    With Sheets("Main")
        Dim v As Variant
        For Each v In Array("C2", "F2")
            With .Range(v)
                .EntireColumn.Hidden = (.Value = "no")
            End With
        Next
    End With
End Sub
В обычный модуль. Запускается "по кнопке", в смысле не по событию.
 
 
 
#9
20.02.2020 13:53:39
Да, все отлично работает! Спасибо!
 
 
 
Страницы: 1
Наверх