在工作簿中创建指向可见工作表的超链接索引答案

【问题标题】：Create index of hyperlinks to visible sheets in a workbook在工作簿中创建指向可见工作表的超链接索引
【发布时间】：2016-09-18 11:36:48
【问题描述】：

我已成功找到并执行了为工作簿中的每个工作表创建超链接列表的代码。但是，我有隐藏工作表，不希望隐藏工作表包含在超链接列表中。适用于所有工作表的代码是。

有没有一种简单的方法可以从生成的超链接列表中删除隐藏的工作表？

ActiveSheet.Range("P4").Select

Dim sh As Worksheet
Dim cell As Range
For Each sh In ActiveWorkbook.Worksheets
    If ActiveSheet.Name <> sh.Name Then
        ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
         "'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
        ActiveCell.Offset(1, 0).Select
    End If
Next sh

【问题讨论】：

标签： vba excel hyperlink

【解决方案1】：

ActiveSheet.Range("P4").Select

Dim sh As Worksheet
Dim cell As Range
For Each sh In ActiveWorkbook.Worksheets
    If sh.Visible = xlSheetVisible Then
        If ActiveSheet.Name <> sh.Name Then
            ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
             "'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
            ActiveCell.Offset(1, 0).Select
        End If
    End If
Next sh

【讨论】：