如何通过同一VBA命令按钮实现隐藏/取消隐藏Excel指定列

核心逻辑 #

通过切换符合条件列的Hidden属性，配合按钮标题状态判断，实现同一按钮的隐藏/取消隐藏复用功能。

调整后完整代码 #

Private Sub CommandButton16_Click()
    Dim ws As Worksheet
    Dim i As Long
    ' 绑定目标工作表，减少重复调用提升运行效率
    Set ws = Worksheets("Material Masterlist")
    
    ' 遍历指定范围内的列
    For i = 22 To 145
        If ws.Cells(3, i).Value = "Quantity" Then
            ' 直接切换列的隐藏状态：隐藏变显示、显示变隐藏
            ws.Columns(i).Hidden = Not ws.Columns(i).Hidden
        End If
    Next
    
    ' 同步更新按钮文本及关联样式
    If CommandButton16.Caption = "Unhide Quantity" Then
        CommandButton16.Caption = "Hide Quantity"
        ' 此处可修改为CommandButton15原本的字体大小数值
        CommandButton15.Font.Size = 9
    Else
        CommandButton16.Caption = "Unhide Quantity"
        CommandButton15.Font.Size = 7
    End If
End Sub

调整说明 #

• 新增工作表对象定义，避免循环内重复调用工作表，大幅提升大数量列遍历的运行效率
• 将原固定赋值Hidden = True改为状态切换逻辑Hidden = Not ws.Columns(i).Hidden，自动匹配当前状态执行反向操作
• 将按钮样式修改逻辑移出循环，避免遍历过程中重复赋值，减少无意义的资源占用
• 你可以根据实际场景修改CommandButton15的默认字体大小数值，示例中默认还原值为9，按需替换即可

内容的提问来源于stack exchange，提问作者Johnson Domingo