EXCEL vba 实现通过超链接跳转到隐藏工作表 回到目录隐藏打开工作表

最近同事需要如标题描述的这样一个excel功能,有两种实现方式,针对于这一种方式,鄙人进行简单的介绍:


首先要在excel的工具栏中插入开发者工具,笔者使用的是office 2013,以前版本也类似可以找到,并添加到工具栏,见下图:


找到选项打开


选择开发工具,这个时间在工具栏已经可以看到了vb的选项,见下图


既可以针对于相应的sheet进行相应的VBA自定义开发

本次问题的解决方案以下,贴出代码

在excel中,找到“”目录“”的sheet,打开vba编辑界面,进行输入以下代码,既可实现上述的功能需求


Private Sub Worksheet_Activate()
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "目录" And Sheets(i).Name <> "Forecast Sum"  Then Sheets(i).Visible = 0
    Next
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim sh As Object
    On Error Resume Next
    Set sh = Sheets(Replace(Split(Target.SubAddress, "!")(0), "'", ""))
    If Not sh Is Nothing Then
    Application.EnableEvents = False
    sh.Visible = xlSheetVisible
    Target.Follow
    Application.EnableEvents = True
    End If
End Sub



Bye!!!

  • 2
    点赞
  • 12
    收藏
  • 打赏
    打赏
  • 2
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:Age of Ai 设计师:meimeiellie 返回首页
评论 2

打赏作者

邢庆

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值