使用（VBA）单击按钮

Question

我想请求帮助。

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

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

假设每个栏目标记为2010年1月至2016年1月的日期 我希望使用Date March隐藏所有列，并自动隐藏所有非March列。

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

Sub Hide_Columns（）     昏暗的细胞作为范围     Application.ScreenUpdating = False     对于Intersect中的每个单元格（ActiveSheet.UsedRange，Range（“A1：F1”））         cell.EntireColumn.Hidden = cell.Value = Range（“I1”）And Not IsEmpty（cell）     下一个细胞     Application.ScreenUpdating = True 结束子

Sub Show_All_Columns（）     Columns.Hidden = False 结束子

Answer 1

在此之前，您应该尝试使用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的按钮。