Скрыть строки в excel по условию формула

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

• 
  Вопрос задан

  более трёх лет назад
  

• 3144 просмотра

Минуточку внимания

Здравствуйте!

Имеется таблица, в которой по итогу расчитываются две надбавки к основным ценам, надбавка эта меняется в зависимости применения определенного коэффициента.
Но когда коэффициент равен нулю, я хочу чтобы эти строки с надбавками автоматом скрывались.
Возможно ли такое?

Приложил файл где все описано что я хочу получить на выходе.
Надеюсь на вашу помощь!!!

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Хороший метод!
Только я никогда не работал с макросами.
Вы этот макрос как создали?
Чтобы мне такой макрос применять в других моих настоящих документах, что мне надо сделать?

Спасибо!
Буду изучать этот код и пытаться его понять.
Огромное спасибо!

А может посоветуете какую-нибудь книгу по макросам, как их программировать и т.п. Или может какой-нибудь ресурс.

У меня похожая задача и ваш пример идеально подходит для ее решения.
Но к сожалению не получается составить аналогичный пример.
Помогите плз.

Суть в следующем: Есть ячейка D11 с выпадающим списком от 2х до 8. Нужно что бы при выборе значения скрывались определенные диапазоны строк от 69 до 200 при 2, от 91 до 200 при 3х и т.д.

И есть ячейка D12 в которой тоже выбор значения из списка но уже текстового.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R%
Application.ScreenUpdating = False
Rows("46:200").EntireRow.Hidden = False
If Target.Address = "$D$11" Then
   If Target.Value <> 8 Then
     R = Choose(Target.Value, 47, 69, 91, 113, 157, 179)
     Rows(R & ":200").EntireRow.Hidden = True
    End If
End If
Application.ScreenUpdating = True
End Sub
в модуль листа

Спасибо огромное!
Есть только проблема когда удаляешь значение из ячейки D11 макрос выдает ошибку.
А нужно что бы он делал строки видимыми.

И как мне учесть выбор из ячейки d12? Попробовал по аналогии с вашим макросом не получилось.

зачем удалять? ставите 8 и все кассы видны.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R%
Application.ScreenUpdating = False
Rows("46:200").EntireRow.Hidden = False
If Target.Address = "$D$11" Then
   If Target.Value <> "" Then
      If Target.Value <> 8 Then
      R = Choose(Target.Value, 47, 69, 91, 113, 157, 179)
      Rows(R & ":200").EntireRow.Hidden = True
      End If
   End If
End If
Application.ScreenUpdating = True
End Sub
про d12 опишите что вам там нужно.

Данной формой будет пользоваться не один человек.
Можно ли сделать так что бы при удалении значения выводилось сообщение или просто показывались все строки.

В ячейке d12 есть выбор между 2 значениями. «Система видеонаблюдения».

Соответственно если выбрана одна из систем 2я скрывается.
Скрываются строки 224:232 если выбран ITV и 233:247 если RVI.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R%
Application.ScreenUpdating = False
If Target.Address = "$D$11" Then
   If Target.Value <> "" And Target.Value <> 8 Then
      Rows("46:200").EntireRow.Hidden = False
      R = Choose(Target.Value, 47, 69, 91, 113, 157, 179)
      Rows(R & ":200").EntireRow.Hidden = True
   Else
      Rows("46:200").EntireRow.Hidden = False
   End If: Exit Sub
ElseIf Target.Address = "$D$12" Then
   If Target.Value <> "" Then
       Rows("224:247").EntireRow.Hidden = False
       If Target.Value = "RVI" Then
       Rows("233:247").EntireRow.Hidden = True
       Else
       Rows("224:232").EntireRow.Hidden = True
       End If
   Else
   Rows("224:247").EntireRow.Hidden = False
   End If
End If
Application.ScreenUpdating = True
End Sub

Как то странно получилось. Изменил некоторые настройки в профиле и началась абра-кадабра. Когда выхожу все ок..

Пришлось перерегистрироваться. Может у кого было подскажите как все вернуть обратно.

при выборе кассы должна отображаться только выбранная касса или с первой по выбранную?

cheshiki1 Все получилось. Спасибо большое.

Добрый день. Здесь обсуждается вопрос, над которым я как раз ломаю голову, авось поможете.
На первом листе есть выпадающий список от 1 до 10, на втором листе должен работать макрос, который в зависимости от числа, которое в списке первого листа, будет скрывать строки в таблицах. То есть, если в списке число 1- значит в таблицах должно остаться по 1 строке, если в списке число 4, то соответственно должно остаться по 4 строки. Помогите пожалуйста, совсем сил нет уже. 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R%
Application.ScreenUpdating = False
If Target.Address <> "$A$1" Then Exit Sub
With Sheets("Лист2")
  If Target = "" Then
  .Rows("1:100").EntireRow.Hidden = False
  Else
  .Rows("1:100").EntireRow.Hidden = False
     For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If .Cells(i, 1) > Target And .Cells(i, 1) <> "" Then .Cells(i, 1).EntireRow.Hidden = True
     Next
  End If
End With
Application.ScreenUpdating = True
End Sub


Огромное вам спасибо. 

Доброго времени суток. Снова вынужден просить о помощи(.
Использую код для скрытия строк относительно числа в ячейке. Если число в ячейке просто прописано(в моём случае это список от1 до 10), то код работает. Если же число выводится посредством формулы(необходимо считать количество заполненных строк в таблице и относительно результата скрывать лишние строки), код работать отказывается. Можно ли заставить VBA работать относительно ячейки, с обновляемым значением?
Собсно код:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R%
Application.ScreenUpdating = False
If Target.Address <> "$A$1" Then Exit Sub
With Sheets("Лист2")
  If Target = "" Then
  .Rows("1:100").EntireRow.Hidden = False
  Else
  .Rows("1:100").EntireRow.Hidden = False
     For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If .Cells(i, 1) > Target And .Cells(i, 1) <> "" Then .Cells(i, 1).EntireRow.Hidden = True
     Next
  End If
End With
Application.ScreenUpdating = True
End Sub

Возможно есть не очень сложное решение этого вопроса? Заранее благодарен.
С ув. athe.

Прошу меня извинить за глупые вопросы. «Ларчик просто открывался»:

If Target.Value = "" Then...

13:31
Нет, я ошибся. Не работает. Вопрос актуален.

пробуйте


Private Sub Worksheet_Change(ByVal Target As Range)
Dim R%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
If Not (Intersect(Target, Union(Me.Range("A1"), Me.Range("A1").Precedents)) Is Nothing) Then
With Sheets("Лист2")
  If Target = "" Then
  .Rows("1:100").EntireRow.Hidden = False
  Else
  .Rows("1:100").EntireRow.Hidden = False
     For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If .Cells(i, 1) > Target And .Cells(i, 1) <> "" Then .Cells(i, 1).EntireRow.Hidden = True
     Next
  End If
End With
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

файл не смотрел.

cheshiki1
Спасибо за отклик. Код работает, но к сожалению не так, как нужно. У меня значение [A1] высчитывается формулой:

=10-счётесли(Лист2!B3:B12;0)
Увы, строки при этом не скрываются. Я также пробовал добывать [A1] из таблицы, которая не участвует в макросе, но эффект был такой же.
  Интересным образом программа работает если значение [A1] считается суммой двух ячеек. Учитывается не сумма, а значения слагаемых.
  При попытке изменить ячейку в листе 1 программа ругается на эту строку:

If Not (Intersect(Target, Union(Me.Range("A1"), Me.Range("A1").Precedents)) Is Nothing) Then

Спасибо.
С ув. athe.

Вот что значит файл не посмотрел. Та строка не работает если в формуле ссылка на другой лист.
пробуйте это

Private Sub Worksheet_Calculate()
Static v As Variant
Application.Calculation = xlManual
Application.ScreenUpdating = False
If Me.Range("A1").Value <> v Then
    With Sheets("Ëèñò2")
       If Cells(1, 1) = "" Then
         .Rows("1:100").EntireRow.Hidden = False
       Else
         .Rows("1:100").EntireRow.Hidden = False
         For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
            If .Cells(i, 1) > Cells(1, 1) And .Cells(i, 1) <> "" Then .Cells(i, 1).EntireRow.Hidden = True
         Next
      End If
    End With
    v = Me.Range("A1").Value
End If
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

cheshiki1, спасибо вам большое. Всё отлично работает.  Теперь отчёты потекут рекой).

Добрый день.
Прошу прощения за поднятие старой темы.
Успешно использую вышеуказанный код, за что благодарен участникам форума.
Я попытался использовать его для несколько иной задачи, но, увы ничего не вышло. Необходимо скрывать тот или иной диапазон строк в зависимости от значения в списке. Для этого в столбце А вместо чисел я прописал формулы: «=ЕСЛИ(Лист_1!I8=draft!A1;1;2)». Себто, если значение в ячейке соответствует таблице №1, то в столбце А, возле таблицы №1 будет значение 1 (таблица видима), а напротив остальных таблиц будет значение 2 (таблица скрыта).
Код к сожалению срабатывает только один раз, после чего не реагирует на изменения значения в списке. Если войти и выйти в режим конструктора, — программа снова может сработать один раз. Подскажите пожалуйста, в чём может быть загвоздка?
Заранее благодарен,
athe

Собсно код:

Private Sub Worksheet_Calculate()
Static v As Variant
Application.Calculation = xlManual
Application.ScreenUpdating = False
If Me.Range("A1").Value <> v Then
    With Sheets("Лист_1")
       If Cells(1, 1) = "" Then
         .Rows("1:1000").EntireRow.Hidden = False
       Else
         .Rows("1:1000").EntireRow.Hidden = False
         For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
            If .Cells(i, 1) > Cells(1, 1) And .Cells(i, 1) <> "" Then .Cells(i, 1).EntireRow.Hidden = True
         Next
      End If
    End With
    v = Me.Range("A1").Value
End If
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub


я так понял вы меняете значение в ячейке I8 и должны скрываться таблицы? как будет меняться значение формулой или список?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$8" Then Exit Sub
Dim i As Long
Application.Calculation = xlManual
Application.ScreenUpdating = False