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

我正在试图使用定义的名称填充一个Excel文件。 我现在喜欢做的是，一旦我移动到一个单元格，例如Worksheet1！$ A $ 8，我想检索该单元格的定义名称，告诉我需要什么数据。 现在这就是我得到的，只给我… $ A $ 8，我所期望的是PROD_CATEGORY，因为这是我定义的名称为该单元格。 真的很感激，如果有人可以帮忙。

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

谢谢，

Answer 1

这是一个函数，它将返回包含传递给函数的范围的所有范围名称。 例如，您可以将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