穫?cè)‘?dāng)前激活單元所在的Listobject 錶格的列名稱

End Function

2020年05年26日改進(jìn)版

'穫?cè)」鈽?biāo)所在列名
Public Function gf_GetActiveColumnName(ByVal Target As Range)
    Dim lo As ListObject
    Set lo = Target.ListObject
    gf_GetActiveColumnName = ""
    If Not lo Is Nothing Then
        If lo.Active Then
            gf_GetActiveColumnName = lo.HeaderRowRange.Cells(1, Target.Column - lo.Range.Column + 1).Value
        End If
    End If
End Function
''穫?cè)」鈽?biāo)所在列名 另一種方法
'Public Function gf_GetActiveColumnName(ByRef Target As Range) As String
'    If Not Target.ListObject Is Nothing Then
'        gf_GetActiveColumnName = Intersect(Target.ListObject.HeaderRowRange, Target.EntireColumn).Value
'    Else
'        gf_GetActiveColumnName = ""
'    End If
'End Function