适合个人用的个人管理系统

zouke5200 · 发表于 2010-10-30 16:52

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
在THISWORKBOOK中加入这段代码就可以了。

ERICWU0317 · 发表于 2010-10-30 22:07

THANK YOU VERY MACH

wrubbi · 发表于 2010-10-31 10:26

想看看啊，不知道我什么时候才能学得会

LBC0808 · 发表于 2010-10-31 11:26

谢谢楼主分享

wayiok · 发表于 2010-11-5 23:02

做的真棒~！

xiaoqianglx · 发表于 2010-11-6 00:18

发达身份的萨芬的萨芬大沙发

x12689 · 发表于 2010-11-6 11:05

多谢分享！！学习一下！！！

nsj4215 · 发表于 2010-11-9 12:31

不错，分享了

zouke5200 · 发表于 2010-11-11 19:39

今天光棍节，大家都约会去了？祝大家节日快乐

yuhongwxb · 发表于 2010-11-11 20:19

收藏学习，谢谢楼主。

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

[原创] 适合个人用的个人管理系统

回复 139楼 jcheng 的帖子