Автоматически скрывать и отображать столбцы в Екселе.

[Дмитррр]

Возможно ли сделать такое?
У меня в большой таблице есть длинный ряд цифр (номер ряда известен).
Но из сотни находящихся там цифр около 80 являются нулями.
Можно ли добиться, что бы ексель скрывал столбики с нулями, и отображал если вместо нуля в них появляется цифра (по некой формуле). Можно сделать так, что бы значения были только 0 и 1, например. Если 0, то ексель должен скрывать, если 1, то отображать (ширину или автоподбором или заданной мной шириной).

[SAS888]

Пусть, например, требуется контролировать значения в 1-й строке. И, если значение = 0, то этот столбец скрыть. Если нет, то отобразить этот столбец с автоподбором ширины. В 1-й строке могут содержаться как константы, так и формулы. Единственное условие, что на рабочем листе должна присутствовать хотя бы одна формула.
Для этого, в модуль нужного листа вставьте код:

Private Sub Worksheet_Calculate()
    Dim i As Long: Application.ScreenUpdating = False
    For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If Cells(1, i) = 0 Then
            Columns(i).Hidden = True
        Else
            Columns(i).Hidden = False: Columns(i).AutoFit
        End If
    Next
End Sub

[Дмитррр]

Спасибо) Буду осваивать макросы))
Моё предположение верно, что без макросов это не возможно сделать?

Private Sub Worksheet_Calculate()
    Dim i As Long: Application.ScreenUpdating = False
    For i = 10 To 100(1, Columns.Count).End(xlToLeft).Column
        If Cells(5, i) = 0 Then
            Columns(i).Hidden = True
        Else
            Columns(i).Hidden = False: Columns(i).AutoFit
        End If
    Next
End Sub

Я правильно переделал для работы с пятой стракой с столбцами от 10 до 100? Просто я ещё в ВБА не работал, не считая ВБ в школе.

[SAS888]

Моё предположение верно, что без макросов это не возможно сделать?

Никакая формула не сможет скрыть столбец (строку).

Я правильно переделал для работы с пятой стракой с столбцами от 10 до 100?

Почти правильно.
Если требуется контролировать с 10 по 100 столбец, то цикл нужно организовать так:

For i = 10 To 100

Если же использовать

For i = 10 To Cells(5, Columns.Count).End(xlToLeft).Column

то будут проверяться столбцы 5-й строки с 10 до последнего заполненного столбца этой строки. Так рациональнее. Единственное условие, что в строке 5 в столбцах с 10 до последнего есть хотя бы одно значение.