Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/скрыть и раскрыть диапозон с пустыми ячейками - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скрыть и раскрыть диапозон с пустыми ячейками (Макросы/Sub)
скрыть и раскрыть диапозон с пустыми ячейками
GGR Дата: Четверг, 22.01.2026, 17:06 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 143
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Добрый вечер. Прошу помощи. В файле в модуле 2 есть макрос. Он косячный это точно. Либо его нужно поправить либо прошу предложить новое решение.
В файле 3515 строк ( 3515 итоговая и файл будет содержать столько строк !) По мере заполнения поле может остаться пустым ( н-р строк 3514, заполнено 3496 ,остальное пусто ) Вот пустое поле надо скрыть , а при необходимости раскрыть. Итоговая строка должна отображаться!!! Приоритетом является столбец E (он главный)
К сообщению приложен файл: 6643401.xlsm (185.9 Kb)
 
Ответить
СообщениеДобрый вечер. Прошу помощи. В файле в модуле 2 есть макрос. Он косячный это точно. Либо его нужно поправить либо прошу предложить новое решение.
В файле 3515 строк ( 3515 итоговая и файл будет содержать столько строк !) По мере заполнения поле может остаться пустым ( н-р строк 3514, заполнено 3496 ,остальное пусто ) Вот пустое поле надо скрыть , а при необходимости раскрыть. Итоговая строка должна отображаться!!! Приоритетом является столбец E (он главный)
Автор - GGR
Дата добавления - 22.01.2026 в 17:06
_Boroda_ Дата: Четверг, 22.01.2026, 17:32 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16988
Репутация: 6665 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так?
[vba]
Код
Sub Skr()
    r0_ = 3
    nr_ = Cells(Rows.Count, 1).End(3).Row - r0_
    Cells(r0_, 1).Resize(nr_).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Sub Otkr()
    r0_ = 3
    nr_ = Cells(Rows.Count, 1).End(3).Row - r0_
    Cells(r0_, 1).Resize(nr_).EntireRow.Hidden = False
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак?
[vba]
Код
Sub Skr()
    r0_ = 3
    nr_ = Cells(Rows.Count, 1).End(3).Row - r0_
    Cells(r0_, 1).Resize(nr_).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Sub Otkr()
    r0_ = 3
    nr_ = Cells(Rows.Count, 1).End(3).Row - r0_
    Cells(r0_, 1).Resize(nr_).EntireRow.Hidden = False
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 22.01.2026 в 17:32
GGR Дата: Четверг, 22.01.2026, 18:26 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 143
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
_Boroda_, все отлично работает. Я забыла вложить в файл лист " Стат" .На этом листе к сожалению макрос не работает . Можно сделать , чтобы макрос работал на 2 листа сразу? Приоритетом в листе " стат" столбец А.
Подскажите пожалуйста, это для понимания как читается ваш макрос. Что такое r0_ = 3?
К сообщению приложен файл: 51.xlsm (300.8 Kb)


Сообщение отредактировал GGR - Четверг, 22.01.2026, 18:49
 
Ответить
Сообщение_Boroda_, все отлично работает. Я забыла вложить в файл лист " Стат" .На этом листе к сожалению макрос не работает . Можно сделать , чтобы макрос работал на 2 листа сразу? Приоритетом в листе " стат" столбец А.
Подскажите пожалуйста, это для понимания как читается ваш макрос. Что такое r0_ = 3?
Автор - GGR
Дата добавления - 22.01.2026 в 18:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скрыть и раскрыть диапозон с пустыми ячейками (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!