隐藏工作表标签后用代码实现目录和返回目录功能

隐藏工作表标签,目录按钮和返回目录按钮效果展示

隐藏工作表标签后用代码实现目录和返回目录功能

之前我们讲过如何批量制作工作表和批量制作返回目录以及目录,方便我们进行查找和管理。详情参考:利用Excel批量创建多个工作表并命名给大量的工作表批量创建目录和返回目录,大大提高工作效率。这两篇文章。

上面讲的方法主要是利用到了超级链接进行创建目录和返回目录,虽然非常方便快捷,但是有一个局限性,就是当隐藏了工作表标签后,超级链接就会失效,就失去了目录和返回目录的功能了。

今天我们利用一个非常短的代码来创建目录和返回目录,且在隐藏工作表标签后仍然有效。

一、准备工作

1、新新建一个Excle表,并将其另存为.xlsm格式,这样才能保存宏。如下图。

隐藏工作表标签后用代码实现目录和返回目录功能

2、创建一系列工作表,(如果你有的话就不用再创建了,本步骤主要是举例用),如下图。

我们共创建了8个工作表,分别为“首页”、“北京”、“上海”、“浙江”、“江西”、“福建”、“广东”、“广西”。

隐藏工作表标签后用代码实现目录和返回目录功能

二、填写代码

我们打开VB编辑窗口也可以用快捷键“ALT=F11”,快速打开,然后将下面的代码粘贴进“Thisworkbook”内。

代码如下:

此处内容需要购买后查看,月费会员可免费查看

支付0.5元查看


三、在工作表中制作按钮并指定宏

1、先制作目录页

我们在目录页画一个矩形,并指定宏。

我们创建一个矩形并将其填充文本“北京”,选中该矩形后鼠标右键选择“指定宏”,弹出下面的对话框,将“’thisworkbook.click(“北京”)’”,这个代码粘贴进宏名框内。

隐藏工作表标签后用代码实现目录和返回目录功能

按照此方法依次为其他工作表创建目录页按钮。如下图所示,注意宏名输入栏中小括号内的是工作表的名字,要一一对应,不能填错。

隐藏工作表标签后用代码实现目录和返回目录功能

2、创建返回首页按钮

我们在首页创建好每个工作表的目录页按钮后,点击就进入具体的工作表中内了,这时候需要返回目录页,也就是首页,需要一个返回首页的按钮,下面我们来制作。

假如我们现在处在“北京”这个工作表呢,方法同上,先创建一个矩形,填入文字“返回首页”,然后“制定宏”,宏名内仍然填入步骤一种的代码,把小括号内的文字改成“首页”,就可以了。然后把这个按钮在每个工作表中都复制粘贴就可以了。

这样每个工作表中都有返回首页按钮了。如下图所示

隐藏工作表标签后用代码实现目录和返回目录功能

这样就创建好了目录页的按钮,和具体工作表内的返回目录按钮。

四、隐藏工作表标签

继续在“thsworkbook”代码内添加如下代码,然后关闭工作簿重新打开就可以了。

代码为:

此处内容需要购买后查看,月费会员可免费查看

支付0.5元查看


工作表标签隐藏效果如下图所示。

隐藏工作表标签后用代码实现目录和返回目录功能



本教程用到的Excel模板在文章附件内,有需要的可以下来看。

此处内容需要购买后查看,月费会员可免费查看

支付0.5元查看


未经允许不得转载:飞鹰图表 » 隐藏工作表标签后用代码实现目录和返回目录功能
分享到:

评论抢沙发

评论前必须登录!