首页 文章

使用（VBA）单击按钮隐藏Excel中的选定列

提问于
浏览 次
-2

我想请求帮助 .

这是我的项目 . 我有这个数据

enter image description here

我想要做的是制作一个按钮隐藏和按钮取消隐藏

假设从2010年1月到2016年1月标记为日期的每列我想隐藏所有具有日期三月的列，并将自动隐藏所有非三月列 .

我的代码需要一些帮助 . 如果cell.entirecolumn.Hidden = cell.value = Range（“I1”）为True，那么这就变成了，那么具有单元格值的列将在一个范围内隐藏..假设我有一个带有 Headers A到Z的列如何在感觉如果范围（“A1”）包含A那么所有带A的列将取消隐藏，所有不包含的列将隐藏...这是我的代码

Sub Hide_Columns（）Dim cell As Range Application.ScreenUpdating = False For Each cells in Intersect（ActiveSheet.UsedRange，Range（“A1：F1”））cell.EntireColumn.Hidden = cell.Value = Range（“I1”）And Not Not IsEmpty（cell）Next cell Application.ScreenUpdating = True End Sub

Sub Show_All_Columns（）Columns.Hidden = False End Sub

excel vba excel-vba

1 回答

  • 0

    在此之前，您应该尝试使用Google . 我想你可以从这开始：

    Sub HideCols()
    Columns("A:BZ").Select
    Selection.EntireColumn.Hidden = True ''Hide
End Sub

Sub ShowCols()
    Columns("A:BZ").Select
    Selection.EntireColumn.Hidden = False ''Unhide
End Sub

    然后使用一些if语句对 Columns("A:BZ").Select 进行参数化 . 最后添加一个调用两个Subs的按钮 .

    回复于

相关问题