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

Вход

Регистрация

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

 

= Мир MS Excel/Не скрывать скрываемые строки при добавлении строк - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не скрывать скрываемые строки при добавлении строк (Макросы/Sub)
Не скрывать скрываемые строки при добавлении строк
Anis625 Дата: Вторник, 05.03.2019, 16:15 | Сообщение № 21
Группа: Проверенные
Ранг: Обитатель
Сообщений: 316
Репутация: 7 ±
Замечаний: 0% ±

Excel 2013
_Boroda_,
Два раза попробовал. Файл зависает. Только три кнопки спасают чтобы закрыть файл.
 
Ответить
Сообщение_Boroda_,
Два раза попробовал. Файл зависает. Только три кнопки спасают чтобы закрыть файл.

Автор - Anis625
Дата добавления - 05.03.2019 в 16:15
_Boroda_ Дата: Вторник, 05.03.2019, 16:35 | Сообщение № 22
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15577
Репутация: 6079 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Ловите
[vba]
Код
Sub tt()
    Application.ScreenUpdating = 0 'отключаем обновление экрана
    r1_ = Cells(1).SpecialCells(xlLastCell).Row 'самая-самая последняя рабочая  строка в файле (у нас 26) - это как на листе нажать Контрл Енд
    Range("11:" & r1_).EntireRow.Hidden = False 'открываем все строки
    r_ = Cells(Rows.Count, 2).End(3).Row 'а вот теперь последняя строка в столбце В
    For Each c In Range("A11:A" & r_)
        If c = "" Then
            c.Rows.EntireRow.Hidden = True
        End If
    Next
    Application.ScreenUpdating = 1 'включаем обновление экрана
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЛовите
[vba]
Код
Sub tt()
    Application.ScreenUpdating = 0 'отключаем обновление экрана
    r1_ = Cells(1).SpecialCells(xlLastCell).Row 'самая-самая последняя рабочая  строка в файле (у нас 26) - это как на листе нажать Контрл Енд
    Range("11:" & r1_).EntireRow.Hidden = False 'открываем все строки
    r_ = Cells(Rows.Count, 2).End(3).Row 'а вот теперь последняя строка в столбце В
    For Each c In Range("A11:A" & r_)
        If c = "" Then
            c.Rows.EntireRow.Hidden = True
        End If
    Next
    Application.ScreenUpdating = 1 'включаем обновление экрана
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 05.03.2019 в 16:35
Anis625 Дата: Вторник, 05.03.2019, 17:13 | Сообщение № 23
Группа: Проверенные
Ранг: Обитатель
Сообщений: 316
Репутация: 7 ±
Замечаний: 0% ±

Excel 2013
_Boroda_,

Работаеееееееееееееет и файл не виснет =) Спасибо Вам большое.
Если есть степень доктор экселевских наук я бы вам вручил =)
 
Ответить
Сообщение_Boroda_,

Работаеееееееееееееет и файл не виснет =) Спасибо Вам большое.
Если есть степень доктор экселевских наук я бы вам вручил =)

Автор - Anis625
Дата добавления - 05.03.2019 в 17:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не скрывать скрываемые строки при добавлении строк (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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