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

Вход

Регистрация

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

 

= Мир MS Excel/Скрытие пустых строк в диапазоне - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие пустых строк в диапазоне (Макросы/Sub)
Скрытие пустых строк в диапазоне
SSre Дата: Суббота, 22.05.2021, 22:47 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 2 ±
Замечаний: 0% ±

Здравствуйте!
Необходим макрос, который будет проверять определенный диапазон ячеек и скрывать пустые строки если в них нет данных.
В соседней теме был предложен код, скрывающий строки по условию определенного столбца. Меня интересует именно условие диапазона.
Приложил файл. Для примера, диапазон B2:E4, т.е. должна быть скрыта только строка 5 т.к. она пустая.
[vba]
Код
Private Sub CommandButton1_Click()
    Dim i&
    Application.ScreenUpdating = False
    For i = 8 To Cells(Rows.Count, 3).End(xlUp).Row
        If Range("I" & i).Value = "" And Range("J" & i).Value = "" And Range("K" & i).Value = "" Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: RowHide.xlsx(8.7 Kb)
 
Ответить
СообщениеЗдравствуйте!
Необходим макрос, который будет проверять определенный диапазон ячеек и скрывать пустые строки если в них нет данных.
В соседней теме был предложен код, скрывающий строки по условию определенного столбца. Меня интересует именно условие диапазона.
Приложил файл. Для примера, диапазон B2:E4, т.е. должна быть скрыта только строка 5 т.к. она пустая.
[vba]
Код
Private Sub CommandButton1_Click()
    Dim i&
    Application.ScreenUpdating = False
    For i = 8 To Cells(Rows.Count, 3).End(xlUp).Row
        If Range("I" & i).Value = "" And Range("J" & i).Value = "" And Range("K" & i).Value = "" Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - SSre
Дата добавления - 22.05.2021 в 22:47
Kuzmich Дата: Суббота, 22.05.2021, 23:24 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 603
Репутация: 127 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Private Sub CommandButton1_Click()
Dim i&
  Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
      If WorksheetFunction.CountA(Range("B" & i & ":E" & i)) = 0 Then
         Rows(i).EntireRow.Hidden = True
      End If
    Next
  Application.ScreenUpdating = True
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Private Sub CommandButton1_Click()
Dim i&
  Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
      If WorksheetFunction.CountA(Range("B" & i & ":E" & i)) = 0 Then
         Rows(i).EntireRow.Hidden = True
      End If
    Next
  Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 22.05.2021 в 23:24
SSre Дата: Воскресенье, 23.05.2021, 14:02 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 2 ±
Замечаний: 0% ±

Kuzmich

Спасибо!
 
Ответить
Сообщение
Kuzmich

Спасибо!

Автор - SSre
Дата добавления - 23.05.2021 в 14:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие пустых строк в диапазоне (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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