Excel-具有搜索功能的超链接

Question

Excel - 我希望能够单击工作表 1 上的单元格，然后将其带到工作表 2 中的单元格。现在我不需要简单的超链接，我需要工作表 2 中的单元格成立。例如，我单击包含单词“start”的单元格 A1，单击它后，我将转到工作表 2 中具有相同短语“start”的单元格。现在，在工作表 2 上，这可能是单元格 A1、A4 或 A57。我希望找到它，以防它在该列中改变位置。本质上我需要一个带有查找功能的超链接。

Answer 1

您可以使用 Worksheet_FollowHyperlink VBA 事件在单击链接后移动所选内容。

将普通超链接添加到所需目标工作表上的任何单元格

将此代码添加到源工作表模块

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim rngDest As Range
    Dim shDest As Worksheet
    Dim cl As Range

    Set shDest = ActiveSheet
    Set rngDest = shDest.Range("A:A") ' <--- change this to your target search range
    With rngDest
        Set cl = .Find(Target.Range.Cells(1, 1).Value, .Cells(.Rows.Count, .Columns.Count), xlValues, xlWhole, xlByRows, xlNext)
        If Not cl Is Nothing Then
            cl.Select
        Else
            ' value not found, return to original sheet
            Target.Range.Worksheet.Activate
            MsgBox Target.Range.Cells(1, 1).Value & " not found", vbOKOnly, "Not Found"
        End If
    End With

End Sub