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单元格中显示“首页”之后的那个工作薄,依此类推。
首先要在此工作簿中,建立一个名叫“首页”的工作表,然后执行下面代码即可。
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的宏功能。
超级链接在本质上属于一个网页的一部分,它是一种允许我们同其他网页或站点之间进行连接的元素。各个网页链接在一起后,才能真正构成一个网站。所谓的超链接是指从一个网页指向一个目标的连接关系,这个目标可以是另一个网页,也可以是相同网页上的不同位置,还可以是一个图片,一个电子邮件地址,一个文件,甚至是一个应用程序。而在一个网页中用来超链接的对象,可以是一段文本或者是一个图片。当浏览者单击已经链接的文字或图片后,链接目标将显示在浏览器上,并且根据目标的类型来打开或运行。
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的宏功能。
超级链接在本质上属于一个网页的一部分,它是一种允许我们同其他网页或站点之间进行连接的元素。各个网页链接在一起后,才能真正构成一个网站。所谓的超链接是指从一个网页指向一个目标的连接关系,这个目标可以是另一个网页,也可以是相同网页上的不同位置,还可以是一个图片,一个电子邮件地址,一个文件,甚至是一个应用程序。而在一个网页中用来超链接的对象,可以是一段文本或者是一个图片。当浏览者单击已经链接的文字或图片后,链接目标将显示在浏览器上,并且根据目标的类型来打开或运行。
温馨提示:答案为网友推荐,仅供参考
第1个回答 2012-07-03
其实你只需要一个工作表事件就可以了,不需要增加超链接
"首页"工作表放在第一个标签位置
"首页"工作表标签,单击右键,查看代码,粘贴下面的代码
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本回答被提问者采纳
"首页"工作表放在第一个标签位置
"首页"工作表标签,单击右键,查看代码,粘贴下面的代码
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本回答被提问者采纳