Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 17.04.2018, 16:43   #1
ignatenko_e
Пользователь
 
Регистрация: 17.04.2018
Сообщений: 14
Репутация: 10
По умолчанию как скрыть строки по условию нескольких ячеек

Здравствуйте!
помогите плз мне))
я чайник в макросах, но похоже без него в данном вопросе никак.
во вложении кусочек таблицы, из которой нужно скрыть пустые строки по условию: если в интервале D4:L12 значение=0 или пустое.
и это должно происходить только на одном листе (там где таблица)
спасибо)
Вложения
Тип файла: xlsx форум.xlsx (11.9 Кб, 4 просмотров)

Последний раз редактировалось ignatenko_e; 17.04.2018 в 17:11.
ignatenko_e вне форума   Ответить с цитированием
Старый 17.04.2018, 17:36   #2
Казанский
Профессионал
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,062
Репутация: 819
По умолчанию

Код:

Sub Ig()
Dim r As Range
  Application.ScreenUpdating = False
  For Each r In Range("D4:L12").Rows
    If WorksheetFunction.CountIf(r, ">0") = 0 Then r.EntireRow.Hidden = True
  Next
  Application.ScreenUpdating = True
End Sub

Вложения
Тип файла: zip форум (2).zip (15.7 Кб, 5 просмотров)
__________________
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума   Ответить с цитированием
Старый 18.04.2018, 11:17   #3
ignatenko_e
Пользователь
 
Регистрация: 17.04.2018
Сообщений: 14
Репутация: 10
По умолчанию

Цитата:
Сообщение от Казанский Посмотреть сообщение
Код:

Sub Ig()
Dim r As Range
  Application.ScreenUpdating = False
  For Each r In Range("D4:L12").Rows
    If WorksheetFunction.CountIf(r, ">0") = 0 Then r.EntireRow.Hidden = True
  Next
  Application.ScreenUpdating = True
End Sub


спасибо огромное)))
ignatenko_e вне форума   Ответить с цитированием
Старый 18.04.2018, 12:08   #4
ignatenko_e
Пользователь
 
Регистрация: 17.04.2018
Сообщений: 14
Репутация: 10
По умолчанию

к хорошему привыкаешь быстро)))) теперь все работает - скрывает нулевые строки по заданному диапазону. захотелось сделать кнопку показывать все строки. содрала макрос на форуме:
Sub show()
Application.ScreenUpdating = False
With [Tab]
Columns.Hidden = False
Rows.Hidden = False
End With
Application.ScreenUpdating = False
End Sub

но, нажаль, в этом случае разворачиваются все созданные группировки, а хотелось бы чтоб открывались только то, что было "спрятано" макросом.

спасибо)))
ignatenko_e вне форума   Ответить с цитированием
Старый 18.04.2018, 12:18   #5
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,614
Репутация: 5352
По умолчанию

Цитата:
Сообщение от ignatenko_e Посмотреть сообщение
а хотелось бы чтоб открывались только то, что было "спрятано" макросом.
так почему бы не изменить этот же макрос?!

так, например
Код:

Sub ShowHiden()
Dim r As Range
  Application.ScreenUpdating = False
  For Each r In Range("D4:L12").Rows
    If WorksheetFunction.CountIf(r, ">0") = 0 Then r.EntireRow.Hidden = False
  Next
  Application.ScreenUpdating = True
End Sub

Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заполнение пустых ячеек по условию (копирование???) при помощи макроса, Макрос для копирования диапазона ячеек на текущем листе maxscorpio Microsoft Office Excel 0 06.02.2017 10:43
Перенос не всей строки, а только нескольких ячеек из нее Makroshka Microsoft Office Excel 2 27.10.2016 13:06
копирование ячеек на лист 2 и по условию копирование строки в буфер FiataliS Microsoft Office Excel 4 20.12.2013 11:10
Как получить диапазон ячеек отвечающих условию Arassir Microsoft Office Excel 2 09.10.2011 16:32
Выбор ячеек по условию из нескольких листов hamlook Microsoft Office Excel 10 10.11.2009 17:00


08:12.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru