Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Одна кнопка для скрыть/отобразить строки
 
#1
11.05.2020 14:28:05
Помогите пожалуйста дописать макрос. Чтобы он отображал строки если они уже скрыты, хочу сделать кнопку нажал один раз скрыл, второй раз - отобразил, и так далее
Код
Sub HideByConditionalFormattingColor()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior.Color Then cell.EntireRow.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub
 
 
 
#2
11.05.2020 14:34:49
Ваше желание против макроса :)
В коде скрытие строк зависит от заливки.
 
 
 
#3
11.05.2020 14:37:42
vikttur, я хочу что бы макрос не только скрывал строки, но еще и отображал их, если строки уже скрыты
 
 
 
#4
11.05.2020 14:55:47
В смысле? Отобразить ВСЕ, следующее нажатие должно скрыть по условию, следующее- отобразить ВСЕ. Так?
 
 
 
#5
11.05.2020 14:59:53
vikttur, нет, отобразить то что скрыто этим же макросом. Просто неохота вторую кнопку делать на отобразить.
 
 
 
#6
11.05.2020 15:14:23
Цитата
vinaxel написал: нет, отобразить то что скрыто этим же макросом
Но если другие строки видимы, то какая разница? Отобразить диапазон проще, чем отображать построчно.
 
 
 
#7
11.05.2020 15:14:40
как-то так должно работать:
Код
Sub HideByConditionalFormattingColor()
    Dim cell As Range
    Static Hide As Boolean: Hide = Not Hide
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior.Color Then cell.EntireRow.Hidden = Hide
    Next
    Application.ScreenUpdating = True
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
Страницы: 1
Читают тему
Наверх