名称链接表单

时间:2015-10-14 04:18:47

标签: excel

我有一个带vba的excel文件。这个文件有2张。 所有定义的名称都有“'指'='sheetname'!$ B $ 2” 但只有一个名称“'引用'= info!$ A $ 1”,其值链接到另一个文件,该文件具有相同的路径。 (没有表格有姓名信息) 问题:如何找到编辑值的单元格?

1 个答案:

答案 0 :(得分:0)

如果快速浏览公式的参考列►定义的名称►名称管理器未生成结果,那么您将不得不枚举所有Workbook.Names集合。这包括工作簿中的所有已定义名称;工作簿范围和工作表范围。

Sub find_named_range()
    Dim n As Long, rng As Range

    With ThisWorkbook
        For n = 1 To .Names.Count
            If CBool(InStr(1, LCase(.Names(n).RefersTo), "info")) Then
                Debug.Print .Names(n).Name          '<~~ the defined name
                Debug.Print .Names(n).RefersTo      '<~~ the cell location
                Debug.Print .Names(n).RefersToRange '<~~ the value in the cell
                'exit for
            End If
        Next n
    End With
End Sub

如果保证只有一个那么你可能想要取消注释Exit For命令并在找到第一个后停止循环,但我可能会让它运行一些额外的ms以确定。