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 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