excel中用VBa自动设置单元格与工作表的超链接，VBA代码需修改

方法：

1. 打开Excel 2010，在Sheet1的单元格中输入作为超链接的文字，如图

   
   

2.点击设置好的某一单元格，选择插入-->超链接，如图

3.在出现的插入超链接弹出框中选择要链接到的工作表，本例中选择名称为Sheet2的工作表，如图

4.点击链接就可以跳转到相应工作表了，如图

其实你只需要一个工作表事件就可以了,不需要增加超链接
"首页"工作表标签,单击右键,查看代码,粘贴下面的代码

Sub 链接()
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next

END SUB

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Target.Column = 1 Then
Sheets(Target.Value).Activate
Sheets(Target.Value).Range("A10").Select
Else: Exit Sub: End If
Else: Exit Sub: End If
End Sub

Sub 链接()
Sheets("首页").Select
'显示所有工作表
For i = 2 To Sheets.Count
Cells(i + 9, 4).Value = Sheets(i).Name
Next
'超链接
For i = 2 To Sheets.Count
t = Cells(i + 9, 4)
Cells(i + 9, 4).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=t & "!A1", ScreenTip:="进入", TextToDisplay:=t
Next
End Sub