创build一个超链接，search工作表并select重复内容的单元格
我有一个单元格的价值。 该值在工作表的另一部分有意复制。 我想能够单击C5中的单元格与内容12345，并select包含相同的值在A1：1600中的单元格。 在工作表中，我永远不会有超过2个单元格的值，但值会改变。
我感谢您可以提供的任何帮助。
谢谢。
这应该是诀窍 – 我不确定你想要指定的范围，所以我只是把它作为A1:Z1600 ，但必要时进行更改。
在VBA中，将其粘贴到工作表的代码模块中：
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim OriginalAddress As String Dim ValToFind As String Dim CurrentCell As Range OriginalAddress = Target.Parent.Address ValToFind = Target.Parent.Value With Range("A1:Z1600") Set CurrentCell = .Find(What:=ValToFind) If OriginalAddress = CurrentCell.Address Then .FindNext(After:=CurrentCell).Activate Else CurrentCell.Activate End If End With End Sub
您可以使用Hyperlinkfunction来做你想要的。 但是，您必须手动input您想要链接的每个单元格的公式…以下是一个示例：
=HYPERLINK("[Book1]Sheet1!F2",12345)
这种方法非常笨拙。 唯一的方法就是使用VBA，以强大的方式做你想做的事。
编辑： 我能够重复的问题。 下面的编辑似乎解决了这个问题。
这个VBA解决scheme使用FindNext函数来查找表中的下一个值：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim FirstAddress As String Dim Rng As Range Dim x As Long x = Me.UsedRange.Rows.Count FirstAddress = Target.Address Set Rng = Me.UsedRange.Find(Target.Value) If FirstAddress = Rng.Address Then Me.UsedRange.FindNext(Rng).Select Else Rng.Select End If End Sub
这可以通过双击代码所在的工作表来实现，并且重复值在该工作表中的位置并不重要。 只需将代码放在工作表的模块中。
最后一种做法（尽pipe还不如VBA）是插入超链接：
在这个例子中，你点击A2 >去插入标签>超链接>放置在这个文件，并input相应的单元格。 这个超链接单元格A2到F2使得当selectA2selectF2 。