Excel VBA中查找工作表公式内用户输入日期对应单元格及解决对象变量未设置报错的技术问询

你遇到的这个「对象变量未设置」错误，本质是Find方法没找到匹配的单元格，导致rng变量始终未被赋值（处于Nothing状态），后续调用rng.Address自然就触发了错误。问题根源出在查找的类型不匹配：

你的工作表A列里的日期是公式生成的，单元格的实际值是日期型数据，但你把用户输入的日期转成了"mm/dd/yyyy"格式的字符串去查找——哪怕显示出来的格式完全一致，数据类型不匹配就没法匹配成功。

给你调整后的代码，既能解决错误，还能实现偏移选中的需求：

Sub SelectDateTest()
    Dim SDate As Date
    Dim rng As Range
    Dim ratesheet As Worksheet
    Dim IRS As Workbook
    
    Set IRS = ThisWorkbook
    Set ratesheet = IRS.Worksheets("Historical Rates")
    
    ' 获取用户输入的日期，增加错误处理防止无效输入
    On Error Resume Next
    SDate = CDate(Application.InputBox(Prompt:="enter startdate mm/dd/yyyy", Type:=2))
    On Error GoTo 0
    If IsEmpty(SDate) Then Exit Sub ' 输入无效或取消时直接退出
    
    ' 直接用日期型变量查找，匹配公式计算后的实际日期值
    Set rng = ratesheet.Range("A:A").Find( _
        What:=SDate, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False)
    
    ' 处理查找结果，避免未找到时出错
    If Not rng Is Nothing Then
        MsgBox Format(SDate, "mm/dd/yyyy") & " found in " & rng.Address
        ' 向右偏移1列并选中（可根据需求调整偏移的行/列数）
        rng.Offset(0, 1).Select
    Else
        MsgBox "Date not found in Historical Rates sheet!"
    End If
End Sub

几个关键调整点：

• 去掉了多余的finder字符串变量，直接用日期型的SDate去匹配单元格的日期值，保证类型一致
• 增加了输入校验和错误处理，防止用户输入无效日期或取消操作导致的异常
• 加入了If Not rng Is Nothing的判断，彻底避免未找到日期时的报错
• 实现了偏移选中的逻辑（示例为向右偏移1列，你可以修改Offset的参数调整位置）

另外要注意：只要单元格的实际值是日期型，哪怕显示格式和输入格式不同，这个方法依然有效——因为我们匹配的是日期的实际值，不是显示出来的字符串。

内容的提问来源于stack exchange，提问作者CcS