Excel открывает запрос даты

Question

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

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

Это первая часть проекта. Любая помощь будет оценена.

Answer 1

Вот способ запросить дату без использования match.com:

Sub AskingForADate()
    Dim d As Date, dOld As Date
    Dim OK As Boolean
    dOld = DateSerial(Year(Date), Month(Date) - 13, Day(Date))
    OK = False
    While Not OK
        d = Application.InputBox(Prompt:="Enter a date within the last 18 months", Type:=1)
        If d <= Date And d >= dOld Then
            OK = True
        Else
            MsgBox "Not valid"
        End If
    Wend
End Sub