excel - 在excel工作表的传递范围中获取定义的名称

  显示原文与译文双语对照的内容

我正在尝试使用定义的名称填充excel文件。 我现在喜欢的是一旦移动到单元格 比如 Worksheet1 $A$8,我想检索该单元格的定义名称。 现在这是我得到的,只给我。"。"。$a$8,我所期望的是 PROD_CATEGORY,这是我的名字。 如果有人能帮助你。


WorkSheet.Range[ColNumToAlpha(CurrCol)+IntToStr(HRow)].Name

谢谢,

时间: 作者:

函数将返回包含你传递给函数的范围的所有范围名称。 比如你可以通过 WorkSheet.Range[ColNumToAlpha(CurrCol)+IntToStr(HRow)] 这里函数。


Function TellNamedRanges(ByVal Target As Range) As String
 Dim NamedRange As Name
 Dim FoundOne As Boolean
 Dim RangesFound As String

 FoundOne = False
 RangesFound ="Found these ranges:"

 For Each NamedRange In ThisWorkbook.Names
 If Not Application.Intersect(Target, Range(NamedRange.RefersTo)) Is Nothing Then
 FoundOne = True
 RangesFound = RangesFound & NamedRange.Name &""
 End If
 Next NamedRange

 If FoundOne = False Then
 TellNamedRanges = RangesFound &"none found"
 Else
 TellNamedRanges = RangesFound
 End If
End Function

...