如何编写VBA宏基于同工作簿其他工作表的值隐藏列？

核心需求实现代码 #

1. 手动触发的宏（适合按需执行） #

打开Excel后按Alt+F11进入VBA编辑器，右键点击工作簿名称 → 插入 → 模块，粘贴以下代码：

Sub ToggleColumnsVisibility()
    Dim sheet1 As Worksheet
    Dim sheet2 As Worksheet
    
    Set sheet1 = ThisWorkbook.Sheets("Sheet1")
    Set sheet2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 判断H5的值是否为0，执行对应隐藏/显示操作
    If sheet1.Range("H5").Value = 0 Then
        sheet2.Range("B:AO").EntireColumn.Hidden = True
    Else
        sheet2.Range("B:AO").EntireColumn.Hidden = False
    End If
End Sub

使用方式：回到Excel界面，点击「开发工具」→「宏」，选择ToggleColumnsVisibility执行，或给按钮绑定该宏快速触发。

2. 自动触发（H5值变化时自动执行） #

如果需要Sheet1的H5值变化时自动处理Sheet2的列显示，需在Sheet1的代码模块中编写事件代码：
右键点击Sheet1标签 → 查看代码，根据H5的取值场景选择对应代码粘贴：

场景A：H5为手动输入值（非公式计算）

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当H5单元格发生变化时执行
    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then
        If Me.Range("H5").Value = 0 Then
            ThisWorkbook.Sheets("Sheet2").Range("B:AO").EntireColumn.Hidden = True
        Else
            ThisWorkbook.Sheets("Sheet2").Range("B:AO").EntireColumn.Hidden = False
        End If
    End If
End Sub

场景B：H5为公式计算结果

如果H5的值由其他单元格公式计算得出，Worksheet_Change不会触发，改用Worksheet_Calculate事件：

Private Sub Worksheet_Calculate()
    If Me.Range("H5").Value = 0 Then
        ThisWorkbook.Sheets("Sheet2").Range("B:AO").EntireColumn.Hidden = True
    Else
        ThisWorkbook.Sheets("Sheet2").Range("B:AO").EntireColumn.Hidden = False
    End If
End Sub

注意事项 #

• 确保工作表名称与代码中的Sheet1、Sheet2完全一致，若工作表重命名需同步修改代码；
• 若H5是文本型的"0"，需将判断条件改为If sheet1.Range("H5").Value = "0" Then；
• 保存工作簿时需选择「启用宏的工作簿（*.xlsm）」格式，否则宏会丢失。

内容的提问来源于stack exchange，提问作者Wood Lab Creations Llc