Excel-Hyperlink与searchfunction

Excel – 我希望能够在表单1上单击一个单元格，并将其带到表单2中的一个单元格中。现在，我不想要一个简单的超链接，我需要表单2中的单元格。 例如，我单击包含单词“开始”的单元格A1，单击它，我被带到单元格2中的同一个短语“开始”。 现在在表2上，这可能是单元格A1或A4或A57。 我希望它发现，以防万一它在该列中的位置发生变化。 基本上我需要一个超链接与查找function。

Answer 1

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

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

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

 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