我有一个从数据列表创建的表。如何找到每列的标题文本
当我选择活动单元格的标题时，它会高亮为橙色，但我想使用 Visual Basic 检索该值。
我能够找到 Excel 工作表的地址，但我需要表格的列标题
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
MsgBox Target.Value
MsgBox ActiveCell.Address
End Sub
如果传递的单元格位于表格中，这将返回列标题
Function TableHeader(cl As Range) As Variant
Dim lst As ListObject
Dim strHeading As String
Set lst = cl.ListObject
If Not lst Is Nothing Then
TableHeader = lst.HeaderRowRange.Cells(1, cl.Column - lst.Range.Column + 1).Value
Else
TableHeader = ""
End If
End Function
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
