VBA表格隐藏与显示函数实现接口
- 传参:表格名字(字符串)
- 模式: 隐藏还是显示
- 会判断传入的表格是否存在(容错机制)
- 返回值: 0 1 2 用于判断执行情况
- 下述函数可直接使用,wbk根据自我需求设置thisworkbook或者指定的工作簿
- 如果该函数接口帮助到了你,请评论区加收藏,转载注明出处。
'-----------------------------------------------------------------------------------------
'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 Integer
Dim i As Integer, nSheet As Integer, tFindSheet As Boolean
Dim wbk As Workbook
Set wbk = ThisWorkbook 'Set according to your requirement
'Confirm that the Sheets Exists
nSheet = Sheets.Count
For i = 1 To nSheet
If Sheets(i).Name = sheetName Then
tFindSheet = True
Exit For
Else
tFindSheet = False
End If
Next
'DealWith Hide or Show
If tFindSheet = True Then
If imode = True Then
If wbk.Worksheets(sheetName).Visible = xlSheetVisible Then
wbk.Worksheets(sheetName).Visible = xlSheetHidden
SheetHideShow = 1
End If
Else
If wbk.Worksheets(sheetName).Visible = xlSheetHidden Then
wbk.Worksheets(sheetName).Visible = xlSheetVisible
SheetHideShow = 2
End If
End If
Else
SheetHideShow = 0
End If
End Function
测试:
Sub IImplentTest()
Debug.Print SheetHideShow("Sheet1", 1)
End Sub