隐藏一个列与隐藏VBA标签一起？

Question

在Sheet 1上，我有一个单独的列数组，用于从相应的选项卡中绘制引用。因此，在第32列中，它将从工作表32中引用。但是，我不需要一直查看所有工作表和列。我需要一些帮助，如果我隐藏/取消隐藏标签，它还会隐藏/取消隐藏列？

Answer 1

如果您正在隐藏和取消隐藏工作表，则会在隐藏/取消隐藏时取消激活并激活。

因此，使用Deactivate和Activate事件来处理操作

类似（在Thisworkbook模块中放置代码）

' Hide column when sheet is deactivated
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.CodeName <> "Sheet1" Then
        If Sh.Visible = xlSheetHidden Then
            Sheet1.Columns(Sh.Index).Hidden = True
        End If
    End If
End Sub

' Show column when sheet is activated
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.CodeName <> "Sheet1" Then
        If Sh.Visible = xlSheetVisible Then
            Sheet1.Columns(Sh.Index).Hidden = False
        End If
    End If

End Sub

注意：我假设Sheet索引和列号对齐。根据需要进行调整以适合您的实际工作簿布局。