Question

EXCEL VBA: 如何获取当前单元格所属超级表（在某区域定义的超级表）的名称？

如何获取当前单元格所属超级表（在某区域定义的超级表）的名称，附图这种类型的超级表，当单击其中某一个单元格，使用VBA代码获取当前单元格所属的超级表。

Answer 1

提示：该代码作了以下限制：

当前选区 只有一个单元格、并且属于某个超级表时，才会弹出超级表名。

如果当前选区 含有多个单元格、或者不属于超级表，不会弹出超级表名。

代码如下：

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next

    If Target.Cells.Count > 1 Then Exit Sub

    Dim lt As ListObject, ltName As String

    For Each lt In ActiveSheet.ListObjects

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

            ltName = lt.Name

            Exit For

        End If

    Next

    If Not ltName = "" Then

        MsgBox "该格所属超表：" & ltName, 64

    End If

End Sub