尝试验证日期是否在数据范围内

Question

I am trying to ensure that my user enters a valid date both format wise and for the given data set that I have. If the user enters an erroneous date, I want to prompt him or her to reenter a valid date. Then, once a valid date is entered I want to filter column A so just those dates show up.

I am currently getting a 1004 error with the current code that I have.

Sub date_entered_exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsDate(date_entered) Then
        MsgBox "Input must be a date in the format: 'dd/mm/yyyy'"
        Cancel = True
    Else
        date_entered = Format(date_entered, "dd/mm/yyyy")
        If Not date_entered = Range("A").Find(what:=date_entered) Then
            MsgBox "Input a date within the range"
        Else
            WholeSheetRange.AutoFilter Field:=1, Criteria1:="=date_entered"
        End If
    End If

End Sub

Answer 1

You most probably have declared date_entered as string and as a result of that you are searching this string within dates and you get nothing.

Try converting it to date with CDate:

If Not CDate(date_entered) = Range("A").Find(what:=CDate(date_entered)) Then

EDIT:

This a lot different than your code but it should give you an idea how you can achieve this:

Sub date_entered_exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Rng As Range
    Dim date_entered As Date
    'date_entered = "13/07/2017"
    date_entered = Format(date_entered, "dd/mm/yyyy")

    If Not IsDate(date_entered) Then
        MsgBox "Input must be a date in the format: 'dd/mm/yyyy'"
        Cancel = True
        Exit Sub
    End If

    Set Rng = Range("A:A").Find(date_entered)

    If Rng Is Nothing Then
        MsgBox "Input a date within the range"
    Else
        WholeSheetRange.AutoFilter Field:=1, Criteria1:="=date_entered"
    End If

End Sub