кнопка скрытия и восстановления строк по условию

[CooLEO]

Доброго времени суток Уважаемые программисты. Раньше делал всё с закрытыми глазами, а по прошествии 10 лет даже незнаю как макрос записать =((
в поиске всё нето, да и уровень мой низок =(

Чайник должен сделать следующую вещ в Excell 2013: Нужно создать кнопку которая скрывает и показывает строки в таблице по условию (условие: в столбце "D" значение ячейки = "0")

Буду премного благодарен если напишете всё пошагово, влоть до записи макроса! ( с меня пиво)

[IgorGO]

и так,
в колонке В значение 0 - удаляем всю строку, не нулевое значение - переходим к следующей строке?
пустые ячейки в В допускаются?
с какой строки начинается таблица?
в конце таблицы под колонкой В есть какие-либо значения?

[Hugo121]

Что такое "восстанавливает"?
А вообще вот посморите:
http://www.programmersforum.ru/showthread.php?t=145071

[CooLEO]

Неправильно выразился, нужна кнопка которая СКРЫВАЕТ и ОТОБРАЖАЕТ строки (первый топик и название поправил)

[CooLEO]

Вот файл, нужно чтобы в этой таблице скрывались/показывались строки по нажатию кнопки "скрыть", где в столбце D ячейка равна "0" списки.rar

[Hugo121]

По ссылке ходили?

[CooLEO]

Сообщение от Hugo121

По ссылке ходили?

угу, там удаление строк в столбце, а мне нада скрыть строки в таблице. Для меня как для полного чайника это вообще разные понятия

[staniiislav]

Сообщение от Hugo121

По ссылке ходили?

CooLEO, только макросы не забудьте включить когда файлик откроете!

Option Explicit

Private Sub ToggleButton1_Click()
Dim x As Range, iRow As Long
    Application.ScreenUpdating = False
        Set x = Range("D1:D100").Find(Null, , xlFormulas, xlWhole)
        If ToggleButton1 Then
            ToggleButton1.Caption = "Отобразить"
            If Not x Is Nothing Then
                Range("D1:D100").ColumnDifferences(x).EntireRow.Hidden = True
            End If
        Else
            ToggleButton1.Caption = "Скрыть"
            Range("D1:D100").EntireRow.Hidden = False
        End If
    Application.ScreenUpdating = True
End Sub

[CooLEO]

Сообщение от staniiislav

CooLEO, только макросы не забудьте включить когда файлик откроете!

Спасибо!

Начал тестить, он скрывает даже те строчки где показатель не ноль а текст (он их тоже нулем считает?)
В столбце 'D' забита формула, (в ней всегда присутствует ноль), может поэтому он и её тоже считает за ноль?

[staniiislav]

Вот еще один пример:

Option Explicit


Private Sub ToggleButton1_Click()
Dim x As Range, iRow As Long
    Application.ScreenUpdating = False ' отключение обновления экрана
        iRow = Cells(Rows.Count, "B").End(xlUp).Row ' поиск последной заполненний ячейки по столбцу В
        Set x = Range("D20:D" & iRow).Find(Null, , xlFormulas, xlWhole) ' поиск нулевых значнений в диапазоне (с D20 по iRow)
        If ToggleButton1 Then
            ToggleButton1.Caption = "Отобразить"
            If Not x Is Nothing Then Range("D20:D" & iRow).ColumnDifferences(x).EntireRow.Hidden = True ' скрывает все нулевые значения формул (с D20 по iRow)
            Range("D20:D" & iRow).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True ' скрывает все пустые ячейки (с D20 по iRow)
        Else
            ToggleButton1.Caption = "Скрыть"
            Range("D:D").EntireRow.Hidden = False ' отобкажает все строки
        End If
    Application.ScreenUpdating = True ' включение обновление экрана
End Sub