Excel ，如何在一张表某个单元格点击显示的是另一张表格的中的某些单元格的值

Excel ，如何在一张表某个单元格点击显示的是另一张表格的中的某些单元格的值

形式如下：
打开这个工作簿，按ALT+F11，进入VBE窗口，双击左上方的sheet1，然后在右侧空白区域输入下列代码：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Text <> "" Then
Target.Hyperlinks.Delete
a = Target.Value
Set c = Sheet2.Cells.Find(a, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
ad = "sheet2!" & c.Address
Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=ad
Else
Exit Sub
End If
End If
End Sub

关闭VBE窗体。回到sheet1表，在A1输入数据看看。
然后再点击A1，看看效果

重要的一条;
sheet2表中必须有sheet1中A1输入的数据存在。

在这张表的这个单元格中，按“=”，然后选择另一张表格中的所需值单元格，按回车即可

你可以用EXCEL中的引用功能，就可以实现这个功能了。

找出两个表的共同之处然后用引用。

打开这个工作簿，按ALT+F11，进入VBE窗口，双击左上方的sheet1，然后在右侧空白区域输入下列代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Text <> "" Then
Target.Hyperlinks.Delete
a = Target.Value
Set c = Sheet2.Cells.Find(a, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
ad = "sheet2!" & c.Address
Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=ad
Else
Exit Sub
End If
End If
End Sub
关闭VBE窗体。回到sheet1表，在A1输入数据看看。
然后再点击A1，看看效果
重要的一条;
sheet2表中必须有sheet1中A1输入的数据存在。追答
追问：sheet1 和 sheet2不在一张工作表里
追答：不在一张工作簿里面？？
那不幸得很，你的题太难了。
常规方法无法完成了。。
追问：我的excel 怎么运行你的代码呢 2003版的excel如果在一个工工作簿里