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

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

Скрыть раскрыть пустые строки во всех листах (Макросы/Sub)

GGR

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

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

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

Сообщений: 167

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

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

Excel 2007

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

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

Ответить

_Boroda_

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

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

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

Сообщений: 17005

Репутация: 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

Ответить

vanin00

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

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

Ранг: Новичок

Сообщений: 42

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

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

365

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

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

vanin00

Ответить

GGR

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

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

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

Сообщений: 167

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

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

Excel 2007

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

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

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

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

Ответить

GGR

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

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

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

Сообщений: 167

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

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

Excel 2007

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

Ответить

Скрыть раскрыть пустые строки во всех листах (Макросы/Sub)

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