Еще раз о скрывании строк

Пользователь

Сообщений: 21 Регистрация: 01.01.1970

28.03.2013 22:01:18

Добрый вечер!
На форуме почти нашел решение проблемы

Rows("20:400") .Hidden = Range("f3") .Value = 0

Подскажите как изменить код для условия, чтобы строки скрывались не от значения в конкретной ящейки а от значения в первом столбе (А) каждой строки, а именно при значении "0" в столбце А строка не отображалась?
вариант типа:

If Range("A22") .Value = 0 Then
Rows("22:22") .EntireRow.Hidden = True
Else
Rows("22:22") .EntireRow.Hidden = False
End If

не подходит, так как значительное количество строк.

Edichka

k61

Пользователь

Сообщений: 2443 Регистрация: 21.12.2012

28.03.2013 22:15:09

Код

Sub wwww()
Application.ScreenUpdating = False
For i = 20 To 400
Cells(i, 1).EntireRow.Hidden = Cells(i, 1) = 0
Next i
'Cells.EntireRow.Hidden = False 'показать все
Application.ScreenUpdating = True
End Sub

Igor67 Пользователь Сообщений: 3785 Регистрация: 21.12.2012	#3 28.03.2013 22:15:27 поищите по форуму удаление строк по условию, скрытие строк по условию. Решений было.... особенно по удалению, а Вам останется Delete заменить на скрытие.

Edichka Пользователь Сообщений: 21 Регистрация: 01.01.1970	#4 28.03.2013 22:23:06 Большое Спасибо!!!! то что надо! Edichka

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#5 28.03.2013 22:23:24 Пример кода есть здесь: http://excelvba.ru/code/ConditionalRowsDeleting Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Hugo

Пользователь

Сообщений: 26322 Регистрация: 22.12.2012

28.03.2013 22:28:40

Такая модификация макроса удаления строк от SAS888 :

Код

Sub Main()
    Dim x As Range, r As Range: Application.ScreenUpdating = False
    Set x = [A:A].Find(0, , , xlWhole)
    If Not x Is Nothing Then
        [A:A].ColumnDifferences(x).EntireRow.Hidden = True
        Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireRow
        Rows.Hidden = False
        r.EntireRow.Hidden = True
    End If
End Sub

Читают тему