尝试使用。在VBA中查找，但出现错误提示该对象不支持该属性或方法

Question

这是问题功能。我已经写了很多与此类似的函数，没有问题，而且我也不知道这次是什么问题。

Sub FindEquipCost()
    Dim equipment As Range
    Set equipment = Sheets("Sheet1").Find("EQUIPMENT", 
     LookIn:=xlValues, MatchCase:=True)
    MsgBox (equipment)
End Sub

Answer 1

如注释中所述，Find()是Range对象的方法，而不是Worksheets对象的方法。

这是一种无错误运行代码的方法：

Sub FindEquipCost()

    Dim equipment As Range
    Set equipment = Sheets("Sheet1").Cells.Find("EQUIPMENT", _
                                LookIn:=xlValues, MatchCase:=True)

    If Not equipment Is Nothing Then
        MsgBox equipment.Address
    Else
        MsgBox "MISSING"
    End If

End Sub

请参见.Cells和Sheets()之间的.Find。