求助 如何通过宏录制超链接隐藏工作表

天一55

各位大侠，请指教，我第一个工作表是目录，后面的工作表都隐藏，当我点击第一个工作表目录超链接时，能展开隐藏的那个工作表，回目录时，打开的隐藏工作表又隐藏了，麻烦各位大侠给予指点，谢谢。

3190496160

Private Sub Worksheet_Activate()
Range("a2:a500") = Empty
n = 1
For Each Sh In Sheets
    If Sh.Index > 1 Then
        n = n + 1
        Cells(n, 1) = Sh.Name
    End If
Next Sh
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 1 And T.Column = 1 Then
    If T.Value = "" Then End
    Sheets(T.Value).Visible = True
    Sheets(T.Value).Select
End If
End Sub

3190496160

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)    '当离开工作表时
If Sh.CodeName <> "界面" And Sh.Name <> "界面" Then Sh.Visible = xlVeryHidden   '如果工作表的顺序号表名称不是"Sheet1"则深度隐藏该表
End Sub

3190496160

简单三段代码实现
工作簿1.rar (31.25 KB, 下载次数: 10)

2022-11-22 16:41 上传

点击文件名下载附件

02761752696

3190496160 发表于 2022-11-22 16:42
简单三段代码实现

点赞    还带材料【自带附件】帮忙  哈哈

3190496160

02761752696 发表于 2022-11-22 16:47
点赞    还带材料【自带附件】帮忙  哈哈

被疫情封闭在家里半个月了，实在是无聊

天一55

3190496160 发表于 2022-11-22 16:50
被疫情封闭在家里半个月了，实在是无聊

谢谢，感谢！！

天一55

各位大侠，我主要是想通过宏录制实现此功能（不用VBA)，经过这几天各位大侠的提醒，终于弄出来了，谢谢了。

3190496160

天一55 发表于 2022-11-25 12:45
各位大侠，我主要是想通过宏录制实现此功能（不用VBA)，经过这几天各位大侠的提醒，终于弄出来了，谢谢了。 ...

呵呵呵，很奇怪的说法啊

于箱长

天一55 发表于 2022-11-25 12:45
各位大侠，我主要是想通过宏录制实现此功能（不用VBA)，经过这几天各位大侠的提醒，终于弄出来了，谢谢了。 ...

啥叫VBA