Скрыть по услочиям строки(четные/нечетные)

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

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

Скрыть по услочиям строки(четные/нечетные) (Макросы/Sub)

Natalya2539

Дата: Пятница, 27.05.2022, 05:44 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

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

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

Надо: нажатием кнопки скрывать четную строку (план)и следующую за ней(факт),т.е.по столбцу Е в строке "план" значение формулы =0 ( или, если это важно, там ссылка на ячейку с др. Листа и там 0), то скрыть план и следующий за ним факт, если в столбце Е есть данные, то отображать план и следующий за ним факт. Данные в таблике с 12 по 889 строку

К сообщению приложен файл: __6523.xls (33.5 Kb)

Ответить

jun

Дата: Пятница, 27.05.2022, 09:37 | Сообщение № 2

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

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

Сообщений: 145

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

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

Natalya2539, приветствую!
Макрос работает при нажатии кнопки "скрыть строки" (см.файл)
код:
[vba]

Код

Sub СкрытьСтроки()
Dim i As Long, lr As Long
With ActiveSheet
    lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lr
        If .Cells(i, 4).Value = "план" And .Cells(i, 5).Value = 0 Then
            .Rows(i).EntireRow.Hidden = True
            .Rows(i + 1).EntireRow.Hidden = True
        End If
    Next i
End With
End Sub

[/vba]

К сообщению приложен файл: _6523.xls (54.0 Kb)

Ответить

msi2102

Дата: Пятница, 27.05.2022, 14:58 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 415

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

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

Excel 2007

А простой фильтр Вам не подойдет?

К сообщению приложен файл: 9923657.xls (52.0 Kb)

Ответить

Скрыть по услочиям строки(четные/нечетные) (Макросы/Sub)

Страница 1 из 1
1