具有搜索功能的Excel超链接

Question

Excel - 我希望能够在表单1上单击一个单元格并让它转到表单2中的单元格。现在我不想要一个简单的超链接，我需要找到表格2中的单元格。例如，我单击包含单词“开始”的单元格A1，并在单击它时将其带到单元格2中，并使用相同的短语“开始”。现在在表2中，这可以是单元格A1或A4或A57。我希望它发现以防万一它在该栏内改变位置。基本上我需要一个带查找功能的超链接。

Answer 1

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

添加正常超链接到任何细胞所希望的目的地片

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

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