excel - 在 Excel 中的 ListObject 中查找事件单元格的列名

Question

我有一个在 Excel 中定义为 ListObject 的表:



在 VbA 中，我可以使用 ListObject("table1").ListRows 访问行和列或 ListObject("table1").ListColumns
在我的一个潜艇中，我不知道事件单元格的列名。而且因为列可以移动，我希望这是动态的。

例如，在上图中，假设我单击了第三列的单元格。
我想要一个函数来告诉我当前 ListObject 中与该单元格关联的列名。

在这种情况下，它将返回 Line Desc.
我试图使用 spy 来查找可以让我找出列名的对象路径，但我找不到任何东西。

在我开始构建一个可以做到这一点的函数之前，我想确保我没有错过 VbA 对象存储库中的任何内容。

知道是否有内置方法可以找到事件单元格的列名吗？

谢谢

注意:如果我用完了时间并创建了一个函数，我会在这里发布。

编辑
这是我到目前为止发现的:

Function ColumnName(byVal Target as Range)
    If Sheets("Equipements").Listobjects("tMain").Active then
        ColumnName = ListObjects("tMain").HeaderRowRange.Cells(1, Target.Column).Value
    End If
End Function

Answer 1

当 ListObject 不是从 A 列开始时，您的方法可能会出现问题。

缺点:仅固定到表“tMain”，不能在任何其他表上使用。

您可以试试这个(如果 Target 超过 1 个单元格，则只使用左上角的单元格):

Option Explicit

Function ColumnName(ByRef Target As Range) As String
    If Not Target.ListObject Is Nothing Then
        ColumnName = Intersect(Target.ListObject.HeaderRowRange, Target.EntireColumn).Value
    Else
        ColumnName = ""
    End If
End Function