如何检查超链接目标的名称是否包含特定字符串？

Question

我在工作簿中有一些单元格 link 到已命名的单元格（单独）。单元格名称均以“Filter”开头，后面有一些字符串（例如 FilterSubcategory1"）。

如果用户单击其中一个 link，它会将他们带到 linked 单元格，然后根据目标所在的位置过滤另一个 sheet（使用 .Address 目前，一切正常）。由于它们的名称中都有相同的起始字符串，如果目标名称以“Filter”开头，是否可以进行过滤？这将使我的代码更短，而不是列出所有相关的命名范围。

它看起来像这样（出于说明目的，不是我的完整或优化代码）：

If Target.Range.Name = "Filter" & "*" Then
'rest of code, do the filtering
End If

或：

If InStr(Target.Range.Name, "Filter") > 0 Then
'rest of code, do the filtering
End If

Answer 1

请尝试下一个功能：

Function IsFilter(cel As Range) As Boolean
    If cel.Hyperlinks.Count = 0 Then Exit Function
    If InStr(cel.Hyperlinks.SubAddress, "Filter") > 0 Then IsFilter = True
End Function

上面的函数可以用下面的方式使用：

Sub testIsFilter()
    Dim testCell As Range
    
    Set testCell = ActiveCell 'it may be any cell (resulted from a iteration or not)
    If IsFilter(testCell) Then
        'rest of code, do the filtering
    End If
End Sub

请测试它并发送一些反馈。

Answer 2

因此，在尝试了其他用户的解决方案（对解决方案的引导非常有帮助）之后，我设法以不同的方式解决了它。一些链接到自身的超链接（事实上，所有过滤的超链接），一些也链接到合并的单元格，所以这是我用于链接到自身的任何单元格的方法：

FltrStr = "='" & ActiveSheet.Name & "'!" & ActiveCell.Address     'builds up the cell address from scratch, allowing for a merged cell being selected
Set FltrRng = Range(FltrStr)     'converts the string into the actual range needed, important for the next line
FltrName = FltrRng.Name.Name     'gets the name of the range, reporting the given name if it exists, lookup .name.name if you are unsure why two .names are needed

然后我可以使用它来检查目标范围是否有一个以我想要的开头的名称，这里 'Filter':

If InStr(FltrName, "Filter") > 0 Then
    'rest of code, do the filtering
End If

可能不是 prettiest/most 有效的方法，但它确实有效。可能值得在 sub 的开头明确定义变量的类型（FltrStr、FltrRng、FltrName）以避免任何类型不匹配错误，但我目前还没有定义它们并且它们工作正常。（不好的做法，我知道！）

如何检查超链接目标的名称是否包含特定字符串？

How to check if hyperlink target's name contains a specific string?

excel

vba

named-ranges