Question

我知道这是一个简单的修复，但我所有的搜索都没有发现答案。我需要创建一个动态超链接。

表1 栏A1 = 3/0/1
栏A2 = 3/0/2

表2 列C3 = 3/0/1
D3列= 3/0/2

现在，在Sheet 2上创建一个链接到Sheet 1中的相应单元格很容易。想一想，Sheet 1有可能以各种方式进行排序。所以我需要动态链接。我需要它来找到＆＃34; 3/0/1＆＃34;无论是在A1列还是A77列，还是其他任何内容。

我在HYPERLINK功能中看过使用ADDRESS功能的示例，但无法使其正常工作。有什么想法吗？

Answer 1

实际上，这可能是希望使用.Selection来管理宏所针对的单元格的时间之一。

Sub hlink_Sel()
    Dim fnd As Range, sel As Range

    On Error Resume Next
    With Sheets("Sheet1")
        For Each sel In Selection
            Set fnd = .Columns("A:A").Find(What:=sel.Text, After:=.Cells(1, 1), LookIn:=xlFormulas, _
                        LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False)
            If Not fnd Is Nothing Then
                Debug.Print fnd.Address(0, 0, xlA1, external:=True)
                .Hyperlinks.Add Anchor:=sel, Address:="", _
                   SubAddress:=fnd.Address(0, 0, xlA1, external:=True), TextToDisplay:=sel.Text
            End If
        Next sel
    End With
    Set fnd = Nothing
End Sub

只需选择一些应该在Sheet1的A列中重复其值的单元格并运行宏。鉴于您的示例数据的奇特性，我在查找操作中使用.Text作为搜索词。请注意，.Address函数将外部参数设置为true，以便包含工作表名称。

Excel动态链接

1 个答案: