Excel VBA Sheet表格隐藏与显示函数实现

VBA表格隐藏与显示函数实现接口

1. 传参：表格名字（字符串）
2. 模式： 隐藏还是显示
3. 会判断传入的表格是否存在（容错机制）
4. 返回值： 0 1 2 用于判断执行情况
5. 下述函数可直接使用，wbk根据自我需求设置thisworkbook或者指定的工作簿
6. 如果该函数接口帮助到了你，请评论区加收藏，转载注明出处。

'-----------------------------------------------------------------------------------------
'SheetHideShow      Author: LiuWanqiang
'-----------------------------------------------------------------------------------------
'[In]sheetName
'           Example: "Sheet1"
'[In]imode
'           0: Show Sheet
'           1: Hide Sheet
'[Out]SheetHideShow
'           0 : Sheets Not Find
'           1 : Sheets Sucessed Hide
'           2 : Sheets Sucessed Show
'-----------------------------------------------------------------------------------------
Public Function SheetHideShow(ByVal sheetName As String, ByVal imode As Boolean) As IntegerDim i As Integer, nSheet As Integer, tFindSheet As BooleanDim wbk As WorkbookSet wbk = ThisWorkbook  'Set according to your requirement'Confirm that the Sheets ExistsnSheet = Sheets.CountFor i = 1 To nSheetIf Sheets(i).Name = sheetName ThentFindSheet = TrueExit ForElsetFindSheet = FalseEnd IfNext'DealWith Hide or ShowIf tFindSheet = True ThenIf imode = True ThenIf wbk.Worksheets(sheetName).Visible = xlSheetVisible Thenwbk.Worksheets(sheetName).Visible = xlSheetHiddenSheetHideShow = 1End IfElseIf wbk.Worksheets(sheetName).Visible = xlSheetHidden Thenwbk.Worksheets(sheetName).Visible = xlSheetVisibleSheetHideShow = 2End IfEnd IfElseSheetHideShow = 0End If
End Function

测试：

Sub IImplentTest()Debug.Print SheetHideShow("Sheet1", 1)
End Sub

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！