高分 求Excel公式

来源：百度知道 编辑：UC知道 时间：2024/06/04 07:09:25
此超链接如何实现？
我想在Sheet1 单元格A11中创建一个超链接
功能：点击此超链接时，自动查找Sheet3中与A11单元格相同的数值，并自动跳转到Sheet3 此单元格的所在行。
1楼的。请问在VB中怎么写呢？？
2楼的，你这个不能实现，只能跳转到Sheet3中A11这个单元格，但不是跳转到Sheet3中和Sheet1 A11数值相同的单元格

首先谢谢大家的帮助！！
请问三楼bergyan 您这个按钮能否实现，当我选中Sheet1的某一个单元格后，点击此按钮，并自动查找sheet3中与Sheet1 选中单元格数值相同的Sheet3单元格并自动跳转到此行？

那样要稍微改动一下代码。如下：
Public Sub aa()
Dim x
x = ActiveCell
On Error GoTo a:
Sheets("sheet3").Select
Cells.Find(what:=x).Activate
Exit Sub
a:
MsgBox "TMD!!竟然未找到相应值!"
End Sub

不用创建超链接了，直接使用VBA代码吧
在sheet1的标签处单击右键，点“查看代码”，然后将下面的代码复制到代码窗口，之后双击A11单元格，就可以直接帮你跳转到Sheet3中相对应的单元格了。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Sheets(3).Select
Sheets(3).Cells.Find(What:=Sheets(1).Range("A11"), After:=Sheets(3).Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
End Sub

选Sheet1当中的A11——工具栏——插入超链接（按钮是地球和铁链）——出现“插入超链接”对话框——点左侧的“本文档中的位置”——大窗口中选“Sheet3”——“请键入单元格引用”中输入：A11——确定。

什么又函数又超链接的，直接用VBA就是了，用Worksheet_SelectionChange()事件直接处理