Скрыть столбцы по условию - VBA

Формулировка задачи:

Уважаемые знатоки, подскажите пожалуйста.

                    Листинг программы
                
 
                        
                          
                    
Sub Hide()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
        If cell.Value = "7" Then cell.EntireColumn.Hidden = 1 ' мне нужно, чтобы если текущая ячейка в столбце равна 7, то скрывался следующий столбец, а не текущий
Else
cell.EntireColumn.Hidden = 0
End If
    Next
    Application.ScreenUpdating = True
End Sub

Решение задачи: «Скрыть столбцы по условию»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Test()
    Application.ScreenUpdating = False
    Dim iCell As Range
    For Each iCell In ActiveSheet.UsedRange.Rows(14).Cells
        If iCell.Value = "7" Then
           iCell.Columns.Hidden = Not iCell.Columns.Hidden
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Оцени полезность:

9 голосов , оценка 3.778 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы