excel中用VBa自动设置单元格与工作表的超链接

Question

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

使用以上代码可以实现自动在“首页”工作薄的A1单元格添加超级链接，但是我需要可以在“首页”中指定单元格位置实现超级链接的添加。比如在“首页”D11单元格开始添加并且去掉第一个工作薄的超级链接（也就是“首页“的超级链接），即在D11单元格中显示“首页”之后的那个工作薄，依此类推。

Answer 1

　　首先要在此工作簿中，建立一个名叫“首页”的工作表，然后执行下面代码即可。
　　Sub 链接()
　　Sheets("首页").Select
　　'显示所有工作表
　　For i = 1 To Sheets.Count
　　Cells(i, 1).Value = Sheets(i).Name
　　Next
　　'超链接
　　For i = 1 To Sheets.Count
　　t = Cells(i, 1)
　　Cells(i, 1).Select
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=t & "!A1", ScreenTip:="进入", TextToDisplay:=t
　　Next
　　End Sub
　　Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。
　　超级链接在本质上属于一个网页的一部分，它是一种允许我们同其他网页或站点之间进行连接的元素。各个网页链接在一起后，才能真正构成一个网站。所谓的超链接是指从一个网页指向一个目标的连接关系，这个目标可以是另一个网页，也可以是相同网页上的不同位置，还可以是一个图片，一个电子邮件地址，一个文件，甚至是一个应用程序。而在一个网页中用来超链接的对象，可以是一段文本或者是一个图片。当浏览者单击已经链接的文字或图片后，链接目标将显示在浏览器上，并且根据目标的类型来打开或运行。

Answer 2

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

Sub 链接()
For i = 2 To Sheets.Count
range("A"&i).Value = Sheets(i).Name
Next

END SUB

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Target.Column = 1 and target.value<>"" Then
Sheets(Target.Value).Activate
Sheets(Target.Value).Range("A10").Select
Else: Exit Sub: End If
Else: Exit Sub: End If
End Sub本回答被提问者采纳