【VBA】ThisWorkBook相关

GY_五年

已于 2022-04-08 16:52:54 修改

阅读量1.1k

点赞数

分类专栏： Excel 文章标签： vba

于 2022-04-06 09:19:54 首次发布

本文链接：https://blog.csdn.net/qq_41127218/article/details/123982058

版权

Excel 专栏收录该内容

6 篇文章

订阅专栏

本文档介绍了如何使用VBA在Excel中实现工作簿表的自动隐藏，当Sheet被激活或双击时的特定行为，以及工作簿关闭前的操作。通过示例代码展示了如何根据Sheet名隐藏表，并在双击事件中切换工作表或执行条件操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

自动隐藏相关外的表

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ArrSheet = Array("INPUT", "OUTPUT")
    ItemInArray = IsError(Application.Match(Sh.Name, ArrSheet, 0))
    If ItemInArray Then
        Sh.Visible = xlSheetHidden
    End If
End Sub

双击事件

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 
    Set SHT_INPUT = ActiveSheet
    Set SHT_CONST = Sheets("CONST")
    If SHT_INPUT.Name = "Sheet1" Then
        With Target
            If .Column = 6 And .Row = 2 Then
                SHT_CONST.Select
            End If
        End With
    ElseIf SHT_INPUT.Name = "CONST" Then
        With Target

        End With
    End If
End Sub

关闭事件


Private Sub Workbook_BeforeClose(Cancel As Boolean)

    On Error Resume Next
    Set Shet_Const = ThisWorkbook.Worksheets("CONST")
    Shet_Const.Range("G4").Value = ""
    
End Sub