如何在主页选项卡中的Excel中创建自定义超链接到同一工作簿中的不同选项卡?

时间:2017-09-11 14:35:46

标签: excel hyperlink excel-2010

我一直在手动执行此任务,我想在MS excel 2010中找到一种更简单快捷的方法来完成此任务。我的工作簿有100个标签。我需要为每个选项卡创建一个超链接,其中的选项卡名称位于" Home"标签。我现在正在执行以下步骤

•转到标签

•右键单击重命名,复制名称

•单击A1 Cell上的Name,右键单击Hyperlink

•单击文档选择中的位置"主页"

•现在转到主页标签

•单击下一个可用单元格,粘贴名称,然后右键单击选择超链接,选择相应的选项卡,然后单击确定。

如何使用MS excel 2010中的某些功能获得相同的结果?

谢谢!

2 个答案:

答案 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