Question

我需要对其他人的代码进行逆向工程并使其运行。现在，我抱怨一些变量没有设置，这是一个错误。

我不确定它到底在说些什么。这是带有错误的子程序的顶部。

Sub OBI_Vendor_Detail_Macro()
    Cells.Select
    With Selection
        .WrapText = False
        .MergeCells = False
    End With
    Range("C4").Select
    Cells.Find(What:="Grand Total", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

最后一行产生此错误Run-time error '91': Object variable or With block variable not set

希望我已经提供了足够的信息。如果没有，请告诉我。感谢。

Answer 1

您首先需要尝试到Find，然后检查您是否找到了某些内容：

Dim foundCell As Range
Set foundCell = Cells.Find(What:="Grand Total", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

If Not foundCell Is Nothing Then
  foundCell.Activate
End If

运行VBA代码的运行时错误不是我自己的

1 个答案: