我一直在手动执行此任务,我想在MS excel 2010中找到一种更简单快捷的方法来完成此任务。我的工作簿有100个标签。我需要为每个选项卡创建一个超链接,其中的选项卡名称位于" Home"标签。我现在正在执行以下步骤
•转到标签
•右键单击重命名,复制名称
•单击A1 Cell上的Name,右键单击Hyperlink
•单击文档选择中的位置"主页"
•现在转到主页标签
•单击下一个可用单元格,粘贴名称,然后右键单击选择超链接,选择相应的选项卡,然后单击确定。
如何使用MS excel 2010中的某些功能获得相同的结果?
谢谢!
答案 0 :(得分:0)
您可以使用宏轻松完成。没有必要的超链接。在您创建BeforeRightClick事件并使用与此类似的代码的任何工作表中,您可能需要根据自己的需要进行调整。
For Each ws In Worksheets
If ws.Name = Target Then
Cancel = True
ws.Activate
Exit For
End If
Next
假设您有一张名为"数据"在细胞" A1"在其中键入宏的工作表"数据"。如果您右键单击该单元格,它会将您带到名为" Data"的工作表中。通过这样做,您可以引用工作簿中的任何工作表并返回到主工作表。
答案 1 :(得分:0)
这个VBA脚本完全符合我的要求。只是分享以防其他人偶然发现同一情况。
Private Sub Worksheet_Activate() 昏暗的wSheet作为工作表 Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDEX"
.Cells(1, 1).Name = "Index"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range("A1").Name = "Start_" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
SubAddress:="Index", TextToDisplay:= .Range("A1").Text
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub