VBA代码触发‘object required’错误，请求排查解决

错误原因 #

触发"Object Required"错误的核心问题是Range对象的声明与赋值错误：

• searchRange被声明为Variant类型，但它需要是Range对象类型才能调用.Find方法
• 赋值时使用searchRange = ws.Range("A7:A37")，这会将单元格区域的数值数组赋值给Variant变量，而非引用Range对象；对象类型的变量必须用Set关键字完成赋值

修正后的代码 #

Option Explicit
' 功能：查找预填日期，选中下方整行下移一行，在上方插入新日期并填充其他信息
Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim submittedDate As Date
    Dim searchValue As Variant
    Dim searchRange As Range ' 修正为Range对象类型
    Dim foundCell As Range
    
    Set ws = Sheet1 ' 指定操作工作表为Sheet1
    ws.Range("A7:A37").NumberFormat = "dd-mmm" ' 设置日期显示格式
    submittedDate = CDate(Me.TextBox1.Value) ' 显式转换为Date类型，避免类型不匹配
    searchValue = submittedDate
    
    Set searchRange = ws.Range("A7:A37") ' 使用Set关键字赋值Range对象
    Set foundCell = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole) ' 添加LookAt确保完全匹配
    
    If Not foundCell Is Nothing Then
        MsgBox "Value found!"
    Else
        MsgBox "Value not found..."
    End If
End Sub

额外优化建议 #

• 日期类型校验：添加CDate()显式转换输入值为Date类型，避免非日期格式输入导致的运行错误
• 精确匹配设置：补充LookAt:=xlWhole参数，确保查找的是完全匹配的日期值，避免部分匹配引发的错误结果
• 异常捕获：可添加On Error Resume Next或On Error GoTo语句，处理日期输入无效等异常场景

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