Как сделать фильтр по календарю в Excel?

Question

[Иван Ноунэйм]

Есть таблица с датами вида 10.02.2016-15.04.2016

Нужно сделать календарь в документе, при нажатии на определенную дату чтобы в таблице оставались только те записи временной диапазон которых удовлетворяет выбранному дню.

Подскажите как реализовать, если вам не трудно.

Answer 1

[Антон Федорян]

Вот сам файлик

Как добавить календарь

Код процедуры клика по дате

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    Dim i, col As Integer
    i = 1
    col = 1 ''' номер ячейки с датами '''
    While (Cells(i, col) <> "")
        Rows(i).Select
        If Cells(i, col) <> DateClicked Then
            Selection.EntireRow.Hidden = True
        Else
            Selection.EntireRow.Hidden = False
        End If
        i = i + 1
    Wend
End Sub