Страницы: 1
RSS
скрыть строки и столбцы по условию
 
Доброе утро, подскажите пожалуйста макрос что б во всей книге скрывал строку 10, и столбец D, нашел такой, но это не совсем подходит
Код
Sub Hide()
    Dim cell As Range
    Application.ScreenUpdating = False                              'отключаем обновление экрана для ускорения
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells            'проходим по всем ячейкам первой строки
        If cell.Value = "x" Then cell.EntireColumn.Hidden = True    'если в ячейке x - скрываем столбец
    Next
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells         'проходим по всем ячейкам первого столбца
        If cell.Value = "x" Then cell.EntireRow.Hidden = True       'если в ячейке x - скрываем строку
    Next
    Application.ScreenUpdating = True
End Sub
 
Sub Show()
    Columns.Hidden = False   'отменяем все скрытия строк и столбцов
    Rows.Hidden = False
End Sub
 
Доброе утро!
Код
Sub t()
    For Each s In ThisWorkbook.Sheets
        s.Rows("10:10").Hidden = True
        s.Columns("D:D").Hidden = True
    Next s
End Sub
 
Огромное спасибо, это как раз то что нужно. просто в книге порядка 500 листов, строчки скрывать надо всегда одни и те же, а когда ставишь константу, есть шанс в таком количестве листов или пропустить или не туда поставить
Страницы: 1
Наверх