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

Вход

Регистрация

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

 

= Мир MS Excel/Cкрыть строки если ячейки пустые - Мир MS Excel

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

Excel 2013
Нужно скрыть строку если в столбцах F и J и N и R и V ячейки пустые (все 5), начиная с 4 строки и до конца листа.
Нашел примерный макрос который можно дополнить но у меня не получилось((
Спасибо.
[vba]
Код
sub Hide()
    Dim cell As Range
    Application.ScreenUpdating = False                             
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells         
        If cell.Value = "" Then cell.EntireRow.Hidden = True       
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: ______.xlsm (15.6 Kb)
 
Ответить
СообщениеНужно скрыть строку если в столбцах F и J и N и R и V ячейки пустые (все 5), начиная с 4 строки и до конца листа.
Нашел примерный макрос который можно дополнить но у меня не получилось((
Спасибо.
[vba]
Код
sub Hide()
    Dim cell As Range
    Application.ScreenUpdating = False                             
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells         
        If cell.Value = "" Then cell.EntireRow.Hidden = True       
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Donald
Дата добавления - 21.02.2018 в 12:07
sboy Дата: Среда, 21.02.2018, 12:16 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
[vba]
Код
Sub Hide()
    Application.ScreenUpdating = False
    For r = 4 To Cells(Rows.Count, 2).End(xlUp).Row 'Each cell In ActiveSheet.UsedRange.Columns(6, 10, 14, 18, 22).Cells
        If Cells(r, 6).Value = "" Then
            If Cells(r, 10).Value = "" Then
                If Cells(r, 14).Value = "" Then
                    If Cells(r, 18).Value = "" Then
                        If Cells(r, 22).Value = "" Then
                            Rows(r).Hidden = True
                        End If
                    End If
                End If
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: -1-.xlsm (16.6 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
[vba]
Код
Sub Hide()
    Application.ScreenUpdating = False
    For r = 4 To Cells(Rows.Count, 2).End(xlUp).Row 'Each cell In ActiveSheet.UsedRange.Columns(6, 10, 14, 18, 22).Cells
        If Cells(r, 6).Value = "" Then
            If Cells(r, 10).Value = "" Then
                If Cells(r, 14).Value = "" Then
                    If Cells(r, 18).Value = "" Then
                        If Cells(r, 22).Value = "" Then
                            Rows(r).Hidden = True
                        End If
                    End If
                End If
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - sboy
Дата добавления - 21.02.2018 в 12:16
Donald Дата: Среда, 21.02.2018, 12:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо
 
Ответить
СообщениеСпасибо

Автор - Donald
Дата добавления - 21.02.2018 в 12:21
Donald Дата: Среда, 21.02.2018, 12:25 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Что значит этот участок кода?
[vba]
Код
Cells(Rows.Count, 2).End(xlUp).Row
[/vba]
Смотрит где заканчивается информация на листе? а цифра 2 что значит?


Сообщение отредактировал Donald - Среда, 21.02.2018, 12:28
 
Ответить
СообщениеЧто значит этот участок кода?
[vba]
Код
Cells(Rows.Count, 2).End(xlUp).Row
[/vba]
Смотрит где заканчивается информация на листе? а цифра 2 что значит?

Автор - Donald
Дата добавления - 21.02.2018 в 12:25
Апострофф Дата: Среда, 21.02.2018, 12:32 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 444
Репутация: 122 ±
Замечаний: 0% ±

Excel 1997
Можно покороче, но медленнее -
[vba]
Код
Sub Hide()
    Dim cell As Range, r As Long
    Application.ScreenUpdating = False
    For r = 4 To ActiveSheet.UsedRange.Rows.Count
      Rows(r).Hidden = Cells(r, 6) & Cells(r, 10) & Cells(r, 14) & Cells(r, 18) & Cells(r, 22) = ""
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
 
Ответить
СообщениеМожно покороче, но медленнее -
[vba]
Код
Sub Hide()
    Dim cell As Range, r As Long
    Application.ScreenUpdating = False
    For r = 4 To ActiveSheet.UsedRange.Rows.Count
      Rows(r).Hidden = Cells(r, 6) & Cells(r, 10) & Cells(r, 14) & Cells(r, 18) & Cells(r, 22) = ""
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 21.02.2018 в 12:32
sboy Дата: Среда, 21.02.2018, 12:33 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
ищем последнюю заполненную строку во 2 столбце


Яндекс: 410016850021169
 
Ответить
Сообщениеищем последнюю заполненную строку во 2 столбце

Автор - sboy
Дата добавления - 21.02.2018 в 12:33
Donald Дата: Среда, 21.02.2018, 12:38 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем спасибо.
 
Ответить
СообщениеВсем спасибо.

Автор - Donald
Дата добавления - 21.02.2018 в 12:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Cкрыть строки если ячейки пустые (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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