Скрыть лист по условию

@Александр_80 · Регистрация: 02.12.2018

Студворк — интернет-сервис помощи студентам

доброго времени суток! помогите пожалуйста!

нужен макрос который скрывать будет лист по условию, если в ячейке(е-4) значение a4, то нужно скрыть лист 1, если любое другое нужно показать лист и самое важное нужно что бы срабатывал макрос на изменение события в этой ячейке.

файл с примером выкладываю

@pashulka · 17.03.2020, 17:11

Разместите строго в модуле листа, где изменяется значение ячейки E4. Создайте свой выпадающий список в ячейке E4, а не E2, как сейчас и пользуйтесь. Если структура книги защищена, то скрывать/отображать лист не получится.

Visual Basic
1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E4]) Is Nothing Then Exit Sub
    Лист1.Visible = Not [E4] = "A4" 'Woksheets(1)
End Sub

@Александр_80 · 17.03.2020, 17:21 **[ТС]**

pashulka, какая то ошибка. Может это из-за того что у меня лист который нужно скрыть на самом деле по другому называется. Но я вроде всё поменял

Visual Basic
1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E2]) Is Nothing Then Exit Sub
    Промежуточный.Visible = Not [E2] = "A4" 'Woksheets(Промежуточный)
End Sub

@pashulka · 17.03.2020, 17:27

Какая ошибка ? На какой строке ? Где файл с событием ?

@Hugo121 · 17.03.2020, 17:29

Промежуточный - это должно быть не имя листа! А кодовое имя листа

@Александр_80 · 17.03.2020, 17:43 **[ТС]**

Hugo121, pashulka, Спасибо все разобрался все работает))))

Добавлено через 4 минуты
pashulka, А можно еще в этот макрос добавить чтобы он скрывал еще несколько строк по этому событию?

@pashulka · 17.03.2020, 17:53

Можно

@Александр_80 · 17.03.2020, 17:54 **[ТС]**

pashulka, мне нужно скрыть по этому событию еще и 7 и 24 строки. Не поможете?

@pashulka · 17.03.2020, 18:02

Александр_80, Да хотя бы и так

Visual Basic
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E4]) Is Nothing Then Exit Sub
    
    Dim b As Boolean: b = [E4] <> "A4"
    [7:7,24:24].Rows.Hidden = Not b
    Лист1.Visible = b
End Sub

@Александр_80 · 18.03.2020, 07:21 **[ТС]**

pashulka, Спасибо!!!! Всё работает. Это магия какая-то!!!!)))

@Александр_80 · 19.03.2020, 16:56 **[ТС]**

pashulka, Здравствуйте! а можно в ваш макрос добавить условие чтобы он если ячейка не равна А4 то скрывал бы строку другого листа? Помогите пожалуйста если можно)))). Спасибо вам огромное за вашу помощь....

@pashulka · 19.03.2020, 19:07

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E4]) Is Nothing Then Exit Sub
    
    Dim b As Boolean: b = [E4] <> "A4"
    [7:7,24:24].Rows.Hidden = Not b
    Лист2.[1:1].Rows.Hidden = b
    Лист1.Visible = b
End Sub

@pashulka · 20.03.2020, 08:18

P.S. Синтаксис Лист2.[1:1].Rows.Hidden = b использован, что называется, с прицелом на несколько несмежных строк (также, как в строке #5)
Если же в реальности будет использоваться всего одна строка, то можно так Лист2.Rows(1).Hidden = b , а если несколько смежных, то Лист2.Rows("1:3").Hidden = b

@Александр_80 · 20.03.2020, 08:19 **[ТС]**

pashulka, Спасибо, Вы мне очень помогли!!!!

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

Скрыть лист по условию

Решение

Решение

Решение

@pashulka 4138 / 2242 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	17.03.2020, 17:27
	Какая ошибка ? На какой строке ? Где файл с событием ? 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	17.03.2020, 17:29
	Промежуточный - это должно быть не имя листа! А кодовое имя листа 0

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106
	17.03.2020, 17:43 [ТС]
	Hugo121, pashulka, Спасибо все разобрался все работает)))) Добавлено через 4 минуты pashulka, А можно еще в этот макрос добавить чтобы он скрывал еще несколько строк по этому событию? 0

@pashulka 4138 / 2242 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	17.03.2020, 17:53
	Можно 0

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106
	17.03.2020, 17:54 [ТС]
	pashulka, мне нужно скрыть по этому событию еще и 7 и 24 строки. Не поможете? 0

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106
	18.03.2020, 07:21 [ТС]
	pashulka, Спасибо!!!! Всё работает. Это магия какая-то!!!!))) 0

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106
	19.03.2020, 16:56 [ТС]
	pashulka, Здравствуйте! а можно в ваш макрос добавить условие чтобы он если ячейка не равна А4 то скрывал бы строку другого листа? Помогите пожалуйста если можно)))). Спасибо вам огромное за вашу помощь.... 0

@pashulka 4138 / 2242 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	20.03.2020, 08:18
	P.S. Синтаксис Лист2.[1:1].Rows.Hidden = b использован, что называется, с прицелом на несколько несмежных строк (также, как в строке #5) Если же в реальности будет использоваться всего одна строка, то можно так Лист2.Rows(1).Hidden = b , а если несколько смежных, то Лист2.Rows("1:3").Hidden = b 0

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106
	20.03.2020, 08:19 [ТС]
	pashulka, Спасибо, Вы мне очень помогли!!!! 0