Скрыть раскрыть пустые строки во всех листах

Дата: Понедельник, 02.03.2026, 18:51 | Сообщение № 1

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

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

Сообщений: 173

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

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

Excel 2007

Добрый вечер. Уважаемые форумчане прошу помочь в решении задачи. Не знаю , можно ли технически, чтобы во всех вкладках ( кроме графика) срабатывал макрос , который скрывал и раскрывал пустые строки. (н-р в стр.1 71 до 106 строки ) .Пустые строки сделаны намеренно

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

_Boroda_

Дата: Вторник, 03.03.2026, 09:20 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата GGR, 02.03.2026 в 18:51, в сообщении № 1 (

)

срабатывал макрос

Срабатывал как? По какому-то событию или ручками запускался?
Вот код, можно повесить на кнопку или на куда захотите
[vba]

Код

Option Compare Text
Sub OtkrStr()
    With Application
        zn_ = 0
        .ScreenUpdating = zn_
        .Calculation = zn_
    End With
    tNet_ = "график"
    ltNet_ = Len(tNet_)
    For Each sh In ThisWorkbook.Worksheets
        With sh
            If Not Left(.Name, ltNet_) = tNet_ Then
                .Cells.EntireRow.Hidden = False
            End If
        End With
    Next sh
    With Application
        zn_ = 1
        .ScreenUpdating = zn_
        .Calculation = zn_
    End With
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Вторник, 03.03.2026, 10:04 | Сообщение № 3

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

Ранг: Участник

Сообщений: 55

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

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

365

или такой вариант...

К сообщению приложен файл: pustye_stroki.xlsm (407.7 Kb)

vanin00

Дата: Вторник, 03.03.2026, 20:05 | Сообщение № 4

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

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

Сообщений: 173

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

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

Excel 2007

_Boroda_, добрый вечер .
Отвечаю на вопрос : Тут под событие думаю не надо подстраиваться. Вывести кнопки
Если будет необходимость можно зайти на нужный лист ( н-р " РВД") и скрыть пустые строки кнопкой. Потом при необходимости раскрыть.

У меня почему то ваш код не сработал. Установила кнопку на стр.1 строки не скрылись. Можно сделать кнопку отдельно скрыть , отдельно раскрыть? Вы мне макрос делали ( сообщение от 26.01.2026 тема"
скрыть и раскрыть диапазон с пустыми ячейками". Великолепно работает.

Высылаю файл, посмотрите пожалуйста .

К сообщению приложен файл: okonchatelnyj_variant_tabelja_.xlsm (385.1 Kb)

Дата: Вторник, 03.03.2026, 20:08 | Сообщение № 5

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

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

Сообщений: 173

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

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

Excel 2007

vanin00, Спасибо большое за решение.У вас интересный вариант , но вот выделять определенный диапазон руками не хотелось бы .Хочется просто нажатием на кнопку, если это технически возможно конечно.

_Boroda_

Дата: Среда, 04.03.2026, 09:53 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А, вон чего надо! Я-то подумал, что скрытые строки показать нужно.
Тогда нормально заполните листы с данными. Особенно лист "Отсутствия". ФИО сотрудников настоящие не нужны, можно всех обозвать васильками и ромашками. Но остальные данные нужны. Пусть они гипотетические будут, но их наличие на листе важно - нужно прописать макросу, на что смотреть. Например, как определить строку 150 на листе Отсутствия

Дата: Среда, 04.03.2026, 10:05 | Сообщение № 7

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

Ранг: Участник

Сообщений: 55

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

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

365

А если так.. Кнопки макроса на листе "читать"

К сообщению приложен файл: pustye_stroki_2.xlsm (418.8 Kb)

vanin00

Дата: Среда, 04.03.2026, 18:17 | Сообщение № 8

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

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

Сообщений: 173

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

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

Excel 2007

_Boroda_, добрый вечер.Заполнила ФИО и должность. Думаю , что надо в макросе оттолкнуться от ФИО, тк в таб.№ у меня стоит 0 стр 150 итд ( он тянется от стр.1) если нет данных, а в ФИО пусто. Может я и не права приложив такой вариант.. Хочу вывести кнопки на каждый лист и использовать их по востребованию.

К сообщению приложен файл: 5756727.xlsm (388.6 Kb)

Дата: Среда, 04.03.2026, 18:24 | Сообщение № 9

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

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

Сообщений: 173

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

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

Excel 2007

vanin00, благодарю за решение. Ваш макрос срабатывает на все страницы сразу ( это моя вина , что не четко озвучила.Можно же написать код для отдельного листа).Имелось ввиду,что использование на каждом листе по востребованию .Ваш вариант очень даже не плохой. Я взяла его к себе в сундук

Дата: Среда, 04.03.2026, 20:48 | Сообщение № 10

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

Ранг: Участник

Сообщений: 55

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

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

365

Пробуйте такие варианты...что для вас удобно...

К сообщению приложен файл: 6775702.xlsm (435.4 Kb)

vanin00

Дата: Четверг, 05.03.2026, 18:49 | Сообщение № 11

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

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

Сообщений: 173

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

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

Excel 2007

vanin00, спасибо за еще один вариант. Попробовала ваш 5 вариант.Работает . Но мне бы хотелось немного по другому. В сообщении №8 у меня окончательный вариант как будут выглядеть листы. ИТОГО не будет совсем. Ориентиром в данном случае может быть 0 или ФИО от 0 .( н-р если взять лист отсутствия , то со 150 строки ( выделено желтым ) до конца 244 строка должно скрыться. И мне хотелось , чтобы блоки ( н-р с 5-9 без 0 сохранялись и не скрывались. Вообще не знаю возможно ли это? Объединенного макроса скрыть- показать не надо, только отдельно.

Дата: Суббота, 07.03.2026, 08:36 | Сообщение № 12

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

Ранг: Участник

Сообщений: 55

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

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

365

Кнопки "скрыть" "показать" на листе "Отсутствия"

К сообщению приложен файл: skryt.xlsm (363.5 Kb)

vanin00