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

Question

我正在尝试使用定义的名称填充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