[已解决]工作表自动隐藏

opelwang · 发表于 2012-2-14 16:02

本帖最后由 opelwang 于 2012-2-14 17:57 编辑

工作薄内，有很多工作表。
我想在打开工作薄时，只显示指定工作表：目录
其它工作表隐藏，在点击目录工作表的超级连接后，连接的工作表显示，切换工作表后，又自动隐藏，只显示目录工作表。

自动隐藏工作表.rar (2.57 KB, 下载次数: 65)

fjmxwrs · 发表于 2012-2-14 16:09

本帖最后由 fjmxwrs 于 2012-2-14 16:52 编辑

给你做个样子吧，ＶＢＡ完成的
此工作簿在建立新表时，会自动添加到目录表中，点目录表中的表名时，取消该表隐藏，如果该表Ｄ1单元格为空时，会自动写入返回目录字样，选择Ｄ1单元格时，返回到目录并隐藏该表。看是否符合您的要求

目录表.zip (16.73 KB, 下载次数: 43)

opelwang · 发表于 2012-2-14 17:56

fjmxwrs 发表于 2012-2-14 16:09
给你做个样子吧，ＶＢＡ完成的
此工作簿在建立新表时，会自动添加到目录表中，点目录表中的表名时，取消该 ...

感谢指点，但不是想要的效果。

一楼补上附件。

fjmxwrs · 发表于 2012-2-14 18:17

本帖最后由 fjmxwrs 于 2012-2-14 18:34 编辑

opelwang 发表于 2012-2-14 17:56
感谢指点，但不是想要的效果。

一楼补上附件。

你想要的是什么效果？按你一楼说的就是这个效果呀，我给你的表格就是达到这样的效果的呀
看这个效果是不是你要的

自动隐藏工作表.zip (14.18 KB, 下载次数: 130)

opelwang · 发表于 2012-2-14 18:49

fjmxwrs 发表于 2012-2-14 18:17
你想要的是什么效果？按你一楼说的就是这个效果呀，我给你的表格就是达到这样的效果的呀
看这个效果是 ...

还差一点
就是切换到：目录工作表时，其它还是隐藏的。

fjmxwrs · 发表于 2012-2-14 19:00

opelwang 发表于 2012-2-14 18:49
还差一点
就是切换到：目录工作表时，其它还是隐藏的。

你不是只留目录表吗？

happym8888 · 发表于 2012-2-14 21:32

本帖最后由 happym8888 于 2012-2-14 21:37 编辑

自动隐藏工作表.rar (13.59 KB, 下载次数: 67)

opelwang · 发表于 2012-2-14 22:06

fjmxwrs 发表于 2012-2-14 19:00
你不是只留目录表吗？

打开工作薄时只显示：目录工作表
点击超连接后，则切换到其它工作表。
再通过点击超连接或点击工作表方式切换到目录表时，其它工作还是全部隐藏。

opelwang · 发表于 2012-2-14 22:10

happym8888 发表于 2012-2-14 21:32
fjmxwrs 版主，在你的代码的基础上稍稍加了点内容，你的代码很精练，学习了。
楼主最佳别给我。

这是想要的结果。

sd3000 · 发表于 2012-3-9 13:28

fjmxwrs 发表于 2012-2-14 16:09
给你做个样子吧，ＶＢＡ完成的
此工作簿在建立新表时，会自动添加到目录表中，点目录表中的表名时，取消该 ...

老师:又学了一招。谢了。

		自动登录	找回密码
密码			注册