Question

嗨，我是VBA的新手，如果这是一个非常简单的解决方案，请道歉。

以下代码不断返回Excel错误'91'：对象变量或未设置块变量。

Private Sub Worksheet_Change(ByVal Target As Range)

 If Intersect(Target, Range("$B$7")) = Worksheets("Team Amendment Tables").Range("$C$7") Then
 Application.Run "TargetUpdate1"

End If

End Sub

有关如何解决此问题的任何想法？上下文：在工作表7中下拉列表以触发宏：TargetUpdate1一旦没有循环。

Answer 1

如果更改了B7以外的任何其他单元格，则Intersect将返回Nothing，因此首先对其进行测试：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("$B$7")) Is Nothing Then
        If Range("$B$7").Value = Worksheets("Sheet1").Range("$C$7").Value Then
            Application.Run "TargetUpdate1"
        End If
    End If

End Sub

如何停止错误'91'：对象变量或未设置块变量

1 个答案: