Скрыть строки по нулевому значению ячейки

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Скрыть строки по нулевому значению ячейки (Формулы/Formulas)

MEX

Дата: Четверг, 16.03.2017, 09:07 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Доброго времени суток Друзья!

Проблема в том что документ-шаблон содержит много позиций (около 150 строк)-весь ассортимент. Заказы в неделю не более 20 позиций (20 строк). Постоянно приходится в ручную скрывать строки не заказанных позиций. Нужно решение чтобы при нулевом значении ячейки в столбце кол-во, строка с этой ячейкой автоматически скрывалась. Так же нужно чтобы макрос можно было запустить/остановить по определенному сочетанию клавиш(без кнопки). Версия Excel 2007.

К сообщению приложен файл: 6351806.xlsx (12.8 Kb)

Ответить

Perfect2You

Дата: Четверг, 16.03.2017, 11:19 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 237

Репутация: 59 ±

Замечаний: 0% ±

Excel 2010

Можно обойтись без макроса. Установил Вам фильтр. Фильтром можно оставлять не только без нулей - любой набор. Изменил функцию суммирования. СУММ суммирует и то, что скрыто. ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;...) - только то, что не скрыто фильтром.

К сообщению приложен файл: _6351806.xlsx (15.0 Kb)

Ответить

sboy

Дата: Четверг, 16.03.2017, 11:21 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
[vba]

Код

Sub Hide0()
With ActiveSheet.UsedRange
  c1 = .Find("Кол-во", LookIn:=xlValues).Address
  c2 = .Find("ИТОГО", LookIn:=xlValues).Address
End With
For Each cl In Range(c1, c2)
    If cl.Value = 0 Then Rows(cl.Row).Hidden = True
Next
End Sub

[/vba]
Сочетание клавиш сами умеете задавать?