错误 424：需要对象 _ 将 Table 设置为范围

Question

以下代码用于 table.
中选定行的条件格式设置我试图用 table 名称引用替换与 table 相关的范围，以便在添加新数据时允许自动更改范围。但是当我尝试这样做时，它显示以下消息：

代码中突出显示的行是红色的行，如下所示。
任何帮助将不胜感激。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Table1")   
[COLOR="#FF0000"]If Not Intersect(Target, tbl.DataBodyRange.Select) Is Nothing Then  [/COLOR] 
        Dim Cell As Range
        Range("A4").NumberFormat = "@"
        If Target.Count > 1 And Target.Count < 50 Then
        StopCode
        For Each Cell In Selection
        Range("A4").Value = Range("A4").Value & "(" & Cell.Row - 21 & ")"
        Next Cell
        ResetCode
        Else
        Range("A4").Value = "(" & Target.Row - 21 & ")"
        End If
Else
Range("A4").ClearContents
End If
End Sub

Answer 1

尝试以下方法，而不使用 Select...

If Not Intersect(Target, tbl.DataBodyRange) Is Nothing Then

错误 424：需要对象 _ 将 Table 设置为范围

Error 424 : Object required _ setting Table as a range

excel

vba

tablename