vba - 确定 ActiveCell 是否在特定表中

Question

我试图通过 Excel 2013 中的 VBA 确定 ActiveCell 是否不仅在任何表中，而是在特定表中。

下面是原样的代码，但仅检测任何表中的 ActiveCell。注释掉的行是我正在寻找的内容，但显然它不起作用。

    ...    Set rng = Intersect(.EntireRow, ActiveCell.ListObject.DataBodyRange)    'Set rng = Intersect(.EntireRow, ActiveCell.ListObjects("myTable").DataBodyRange)    On Error GoTo 0        If rng Is Nothing Then            MsgBox "Please select the cell of a row within the consensus input table.", vbCritical, "Delete Evaluator"        Else    ...

关于正确语法的任何建议吗？

谢谢!

Answer 1

要测试ActiveCell是否在Table1的主体中:

Sub qwerty()

   If Intersect(ActiveCell, ActiveSheet.ListObjects("Table1").DataBodyRange) Is Nothing Then
      MsgBox "activecell not in Table1"
   Else
      MsgBox "activecell in Table1"
   End If

End Sub