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

Вход

Регистрация

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

 

= Мир MS Excel/Скрытие строк по условию - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Скрытие строк по условию
Anis625 Дата: Вторник, 13.02.2018, 22:04 | Сообщение № 1
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Добрый вечер, всем тем кто еще не спит.

Есть один макрос, который отлично скрывает строки когда в конце заданного диапазона есть пустые ячейки:

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, R&
R = 4
Range("4:13").EntireRow.Hidden = False
For Each c In Range("A4:A13")
    If c.Value = "" Then Exit For
    R = R + 1
Next
Range(R & ":13").EntireRow.Hidden = True
End Sub
[/vba]

Появилась одна задачка которую не смог решить этим макросом. Пытался подправить сам - все ломается.

Когда появляются пустые строки внутри диапазона - макрос скрывает строки от этой пусто и все ниже (в т.ч. там где есть инфа).

Файл во вложении. Если не сложно, помогите подпилить макрос.
К сообщению приложен файл: -_-.xlsm (14.5 Kb)
 
Ответить
СообщениеДобрый вечер, всем тем кто еще не спит.

Есть один макрос, который отлично скрывает строки когда в конце заданного диапазона есть пустые ячейки:

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, R&
R = 4
Range("4:13").EntireRow.Hidden = False
For Each c In Range("A4:A13")
    If c.Value = "" Then Exit For
    R = R + 1
Next
Range(R & ":13").EntireRow.Hidden = True
End Sub
[/vba]

Появилась одна задачка которую не смог решить этим макросом. Пытался подправить сам - все ломается.

Когда появляются пустые строки внутри диапазона - макрос скрывает строки от этой пусто и все ниже (в т.ч. там где есть инфа).

Файл во вложении. Если не сложно, помогите подпилить макрос.

Автор - Anis625
Дата добавления - 13.02.2018 в 22:04
Nic70y Дата: Вторник, 13.02.2018, 22:38 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9133
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
    For Each c In Range("A4:A13")
    If c = "" Then
    c.Rows.EntireRow.Hidden = True
    End If
    Next
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
    For Each c In Range("A4:A13")
    If c = "" Then
    c.Rows.EntireRow.Hidden = True
    End If
    Next
[/vba]

Автор - Nic70y
Дата добавления - 13.02.2018 в 22:38
Anis625 Дата: Вторник, 13.02.2018, 22:45 | Сообщение № 3
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Теперь все строки скрываются =)
 
Ответить
СообщениеТеперь все строки скрываются =)

Автор - Anis625
Дата добавления - 13.02.2018 в 22:45
Anis625 Дата: Вторник, 13.02.2018, 22:47 | Сообщение № 4
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Удалил строку
[vba]
Код
Range(R & ":13").EntireRow.Hidden = True
[/vba]

Теперь вроде все работает. Сейчас попробую перенести в свой файл. Благодарю Вас =)
 
Ответить
СообщениеУдалил строку
[vba]
Код
Range(R & ":13").EntireRow.Hidden = True
[/vba]

Теперь вроде все работает. Сейчас попробую перенести в свой файл. Благодарю Вас =)

Автор - Anis625
Дата добавления - 13.02.2018 в 22:47
Anis625 Дата: Вторник, 13.02.2018, 22:57 | Сообщение № 5
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Отлично работает, супер =) Благодарю за содействие
 
Ответить
СообщениеОтлично работает, супер =) Благодарю за содействие

Автор - Anis625
Дата добавления - 13.02.2018 в 22:57
  • Страница 1 из 1
  • 1
Поиск:

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