vba - 438 运行时错误

Question

我正在尝试这样做，以便当我的代码中的一个特定单元格发生更改时，它将显示一条消息，但我收到以下错误消息“运行时错误 438 对象不支持此属性或方法”。不太确定这意味着什么。有人可以帮我理解。这是代码:

 Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Adress = "F48,I48,L48,F50,I50,L50,I52,L52,N52" Then
     MsgBox "You are about to change an AP-42 Emision Factor"

 End If
 End Sub

Answer 1

第一，如评论中所述，请使用 Target.Address这是正确的属性名称。

第二，您的 if语句永远不会返回 true。 Target.Address将始终返回如下内容:$E$2 , $E$3:$E$4 ，等等...在您的情况下，您应该使用 Intersect 之类的东西或 Union方法。

使用 Union 编辑可能的解决方案方法:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngTMP As Range
    Set rngTMP = Range("F48,I48,L48,F50,I50,L50,I52,L52,N52")

If Union(Target, rngTMP).Address = Union(rngTMP, rngTMP).Address Then
        MsgBox "Ok"
End If
End Sub