使用VBA返回与给定的ActiveCell选择

Question

对于Excel中的给定ActiveCell，VBA如何返回在激活“表工具设计”选项卡时变为可见的属性分组中显示的表名。例如，在即时窗口中：

?ActiveSheet.ListObjects(2)

 Table3600

但如果我选择一个单元格（可能在一个表格中），我似乎无法找到一个属性，该属性将返回包含表格名称的选定单元格。我试图存储返回值或声明当前单元格不在表中。

TIA（这似乎非常基础但我无处可去）

Answer 1

这些返回所选单元格表格的名称。如果没有表，则抛出运行时错误。

Selection.ListObject.Name
Selection.ListObject.DisplayName

您可以使用以下方法避免错误：

If Not Selection.ListObject Is Nothing Then
    MsgBox Selection.ListObject.Name
End If

?ActiveSheet.ListObjects(2)将在工作表上提供第二个表的名称，如果没有第二个表，则会抛出错误。