[求助]：工作表隐藏问题

fxgyly

我做了个工作薄，有很多个工作表。平时不想让工作表全显示出来，在第一个表内做成超链接，点哪个出来哪个。
但我把工作表隐藏后，再点链接，相应工作表就不再出现了。
请教大侠，如何实现以上功能？或有什么更好的办法？

我把我做的表传上来了，请高手给看看。

另，我把在论坛下的一个例子也上传，一起对比学习学习。

请原作者不要见怪，我是抱着学习的态度的，若你不高兴可以通知我删去。不过，我还是很希望你来看看，指导指导大家的。

singble

不显示工作表标签

yangkb

是呀，在同一工作簿中，有很多工作表，标签栏很难翻，像楼上朋友所说的在同一工作簿中隐藏部分工作表怎么实现呢？麻烦楼上的帮忙。
原来实现超链接是在同一文件夹下建立多个工作薄实现象楼主所说的，把被链接的工作簿属性设为隐藏。
请教在同一工作簿内要隐藏部分工作表怎么实现？谢了。

公输暗堂

楼主你把你的表发上来，或许我可以帮你，因为这个要用VBA，一下说不清楚.

fxgyly

我把我做的表传上来，看哪位能帮忙给看看。

一次只能传一个附件啊？
我把例子传到这。

公输暗堂

打开vbe（vba编辑器），在“ThisBookwork”中输入以下代码隐藏除主工作表中的所有工作表
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
     i = 2
     Do
       If i <> Sh.Index Then Worksheets(i).Visible = False
     i = i + 1
   Loop Until i > Worksheets.Count
End Sub
然后新建一模块，对应每个工作表，如泵368表就输入
Sub 泵368()
   Sheets("泵368").Visible = -1
Sheets("泵368").Activate
  End Sub
等输完了这些程序，就在主表中分别建控件，如368控件就指定宏"泵368"


如工作表很多，这样一个个指定比较麻烦，但我也想不出更好的办法。

yangkb

先谢谢楼上的大侠了,先下载来学习学习，就问题再请教哈。

fxgyly

谢谢七楼的。是否工作表名不用改而用“SHEET1、SHEET2、。。。”要好些？
我传的例子你看过了吗？是否一样的道理呢？

我对VAB不 懂，请多指点。

g;kzyp

还没有最好的

fxgyly

6楼的大哥，你说的“控件指定宏”具体怎么操作？
是录制宏，还是宏....
我怎么就指定不了呢?
加我QQ好吗？我QQ：277941786

tjjianzhu

不懂....在选项里面隐藏标签不就可以了吗?如果只能看到一个标签和隐藏标签没有任何区别啊

fxgyly

11楼的办法能解决我的问题，不过大家说起VBA，能解释清楚就更好了，对以后解决类似问题总是有帮助的。