Скрытие строк при сравнении двух столбцов

Старая форма входа

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

Скрытие строк при сравнении двух столбцов (Макросы Sub)

Leojse

Дата: Суббота, 10.08.2013, 14:05 | Сообщение № 1

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

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

Сообщений: 148

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

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

2010/2013

Добрый день. Помогите, пожалуйста, со следующим вопросом.
Есть два столбца. Необходимо скрыть строки, содержащие ноль в парных ячейках (т.е. если в А1 и В1 есть нули, то строку нужно скрыть, если в А1 стоит ноль, а В1 ячейка пуста, то строку скрывать не нужно). Причем ноль может быть результатом формулы, либо вбит вручную. Хотелось бы, чтобы не было привязки к определенным столбцам, т.е. выделить 2 произвольных столбца и запустить макрос на скрытие строк.

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

Ответить

KuklP

Дата: Суббота, 10.08.2013, 18:39 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

[vba]

Код

Public Sub www()
     If Selection.Columns.Count <> 2 Then Exit Sub
     Dim c As Range
     For Each c In Selection.Columns(1).Cells
         If IsEmpty(c) Or IsEmpty(c(1, 2)) Then
         Else
             If (c Or c(1, 2)) = 0 Then
                 c.EntireRow.Hidden = -1
             Else
                 c.EntireRow.Hidden = 0
             End If
         End If
     Next
End Sub

[/vba]