Используйте дату, чтобы скрыть столбцы в Excel

Question

Я хотел бы иметь возможность создать кнопку, которая скрывает все столбцы с датой более 30 дней. В каждом столбце есть ожидаемая дата прироста, и я хотел бы иметь возможность нажать кнопку, и в ней показано, какой прирост прогнозируется на 30 дней, еще одна кнопка на 60 дней и т. Д.

Я уверен, что это легко для некоторых из вас, но я не уверен, какую формулу можно было бы поместить в редактор VBA.

Буду очень признателен за любой совет, код или пример!

Спасибо!

Answer 1

Для кнопки ActiveX с именем CommandButton1 поместите код на модуль листа

---

Option Explicit

Private Sub CommandButton1_Click()
    Dim hdr As Range

    Application.ScreenUpdating = False
    For Each hdr In CommandButton1.Parent.UsedRange.Rows(1).Cells
        If IsDate(hdr) Then
            hdr.EntireColumn.Hidden = (hdr < (Now - 30))
        End If
    Next
    Application.ScreenUpdating = True
End Sub