Скрыть столбцы на основе ввода в две ячейки

Question

Я новичок в VBA и пытаюсь понять, как это сделать.

Я пытаюсь скрыть столбцы на основе данных FROM и TO из двух ячеек.

У меня есть два выпадающих списка с датами:

• A2 для выбора даты ОТ и
• A5 для выбора даты ДО ..

И из B2: NC2 я получил 1 января - 31 De c.

Итак, что я пытаюсь сделать, это, если я выберу:

• A2 = 5 января и
• A5 = 12 апреля,

Я хочу, чтобы все столбцы до 5 января и все столбцы после 12 апреля были скрыты.

Пока что это мой код:

Sub Hidecolumns()
Dim p As Range

For Each p In Range ("B2:NC2").Cells
       If p.Value < ("A2") or > ("A5") Then
       p.Entirecolumn.Hidden = True

End If
Next p

End Sub

Я знаю, что мой код не работает на «if p.value < ("A2") or ("A5") >» .. Но почему? А как?

/ Дж

Answer 1

Я решил! Не знаю, лучшее ли это решение, но вот как я это сделал:

Sub Hidecolumntest2 () Dim cell As Range Dim fromdate As Range Dim todate As Range

Для каждой ячейки в Диапазон ("B2: NC2"). Ячейки для каждой даты начала в диапазоне ("A2"). Ячейки для каждой даты в диапазоне ("A5"). Ячейки

Если cell.Value todate.Value Then cell.EntireColumn Hidden = True

End If Next Next Next

End Sub

Надеюсь, кто-то сочтет это полезным когда-нибудь