[已解决][求助]如何实现隐藏工作表

vbahand · 发表于 2012-8-17 20:52

求助实现隐藏工作表.rar (5.01 KB, 下载次数: 16)

chenzhi_juan · 发表于 2012-8-17 21:01

用循环吧。我想应该要用到instr

vbahand · 发表于 2012-8-17 21:03

chenzhi_juan 发表于 2012-8-17 21:01
用循环吧。我想应该要用到instr

能不能写个代码出来，在线等。。。

云龙 · 发表于 2012-8-17 21:04

求助实现隐藏工作表.rar (11.75 KB, 下载次数: 14)

mouse0062815 · 发表于 2012-8-17 21:04

帮楼主写了一个里面的6个按钮对应6个代码，最后加了一个全部显示按钮，公司名字楼主根据自己需要修改下：）见附件

完成实现隐藏工作表.rar (12.61 KB, 下载次数: 48)

vbahand · 发表于 2012-8-17 21:09

云龙发表于 2012-8-17 21:04

谢谢，运行得很完美，很适合我题意。

vbahand · 发表于 2012-8-17 21:10

mouse0062815 发表于 2012-8-17 21:04
帮楼主写了一个里面的6个按钮对应6个代码，最后加了一个全部显示按钮，公司名字楼主根据自己需要修改下： ...

你的程序也运行得很完美，还多加了一个按钮了，真是太适合我意了!!
谢谢了!

云龙 · 发表于 2012-8-17 21:11

vbahand 发表于 2012-8-17 21:09
谢谢，运行得很完美，很适合我题意。

客气了

mouse0062815 · 发表于 2012-8-17 21:12

哈哈大家好才是真的好

yanyongxia · 发表于 2012-8-17 21:20

Dim st As Worksheet
i = 1
For Each st In Worksheets
If st.Name <> "总表" And Mid(st.Name, 1, 1) <> "1" Then
st.Visible = False
End If
Next

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