如何使用VBA建立对隐藏工作表的超链接

如何使用VBA建立对隐藏工作表的超链接
http://blog.sina.com.cn/s/blog_6ca3ac8e0100md89.html

如图所示，晕晕首先建立了一个工作簿“天干地支”，其中含11个worksheet，第一个worksheet名为“天干”，后面十个依次命名为甲、乙、丙、丁、戊、己、庚、辛、壬、癸。

——最终的目标是当前只显示“天干”worksheet，隐藏后十个worksheet，但是要在第一个“天干”工作表中显示出后十个表格对应的序号的名称，并通过超链接进入对应worksheet。同时，在后十个worksheet中放入返回“天干”的链接，一旦返回“天干”后，该worksheet继续隐藏。Okay。

第一，按照最常用的方法对“天干”worksheet中的对应名称建立超链接。

 

第二，按Alt+F11，启动VBA编辑，点击左侧“天干地支”工作簿下的“天干”worksheet，在右侧打开的编辑框中复制以下代码：

 

Private Sub Worksheet_Activate()

        Dim sht As Worksheet

        For Each sht In Worksheets

               If sht.Name <> Sheets(1).Name Then sht.Visible = xlSheetVeryHidden

        Next sht

End Sub

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

               On Error Resume Next

              Sheets(Target.Value).Visible = xlSheetVisible

              Sheets(Target.Value).Select

End Sub

第三，运行代码并保存退出。

 

Okay，试一下，是不是你想要的效果呢？

其实，通过我在论坛里的观察，这个只是最最简单，也最最省事的一种方法。Excel无比奇妙，更多的功能实现，还是要老老实实学习才可以。 

为什么你的Excel不支持VBA

——为你的Excel启用宏

通常我们的Excel程序中宏是默认关闭的（即安全性设置高，防止文件中带有潜藏的不安全的宏）。为了要设置以上的效果，必须要启用宏。

Excel2003下如何开启宏：

数据—宏—安全性—安全级—低。

Excel2007下如何开启宏：

左上角Office按钮—Excel选项—信任中心—信任中心设置—宏设置—启用所有的宏。

 ********************

    到这里为止，对于一个满足基本功能的链接隐藏工作表就完成了。

    之前Office软件用的都还算熟练，也很注意日常的学习和积累，但经验用时方恨少啊！开这个博客也是为了能鞭策一下自己，除了琐碎的心情之外，也应该更注意知识的学习和积累！