Excel表单: VBA中的搜索工具我无法从数据表中搜索日期

Sub SearchDate()
    Dim searchDate As Date
    Dim rng As Range
    Dim cell As Range
    
    ' 获取要搜索的日期
    searchDate = InputBox("请输入要搜索的日期（yyyy-mm-dd）：")
    
    ' 在数据表范围内搜索日期
    Set rng = Range("A2:A100") ' 假设日期列在A列，数据范围是A2:A100
    
    For Each cell In rng
        If cell.Value = searchDate Then
            ' 找到匹配的日期
            MsgBox "找到匹配的日期：" & searchDate
            Exit Sub
        End If
    Next cell
    
    ' 没有找到匹配的日期
    MsgBox "没有找到匹配的日期：" & searchDate
End Sub