Office中国论坛/Access中国论坛

标题: 显示与隐藏工作表的一些方法 [打印本页]

作者: tmtony 时间: 2004-7-1 07:33
标题: 显示与隐藏工作表的一些方法
原创:Designed by Tommy Flynn

' The distinction between Hide(False) and xlVeryHidden:

' Visible = xlVeryHidden - Sheet/Unhide is grayed out. To unhide sheet, you must set

' the Visible property to True.

' Visible = Hide(or False) - Sheet/Unhide is not grayed out

' To hide specific worksheet

Sub Hide_WS1()

Worksheets(2).Visible = Hide ' you can use Hide or False

End Sub

' To make a specific worksheet very hidden

Sub Hide_WS2()

Worksheets(2).Visible = xlVeryHidden

End Sub

' To unhide a specific worksheet

Sub UnHide_WS()

Worksheets(2).Visible = True

End Sub

' To toggle between hidden and visible

Sub Toggle_Hidden_Visible()

Worksheets(2).Visible = Not Worksheets(2).Visible

End Sub

作者: joyark 时间: 2011-7-3 00:11
受益非浅

作者: gdys01 时间: 2011-7-11 19:13
受益非浅

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)