Нужно скрыть строку если в столбцах 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]
Нужно скрыть строку если в столбцах 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
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]
Добрый день. [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
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