时间戳

首页 > 解决方案 > 使用日期隐藏excel中的列

excel - 使用日期隐藏excel中的列

问题描述

我希望能够创建一个按钮来隐藏所有日期超过 30 天的列。每列都有一个预期的收益日期，我希望能够单击该按钮，它会显示哪些收益预计为 30 天，另一个按钮为 60 天，等等。

我相信这对你们中的一些人来说很容易，但我不确定在 VBA 编辑器中放入的公式是什么。

任何建议、代码或示例将不胜感激！

谢谢！

标签： excelexcel-formulavba

解决方案

对于名为 的 ActiveX 按钮CommandButton1，将代码放在工作表模块上

Option Explicit

Private Sub CommandButton1_Click()
    Dim hdr As Range

    Application.ScreenUpdating = False
    For Each hdr In CommandButton1.Parent.UsedRange.Rows(1).Cells
        If IsDate(hdr) Then
            hdr.EntireColumn.Hidden = (hdr < (Now - 30))
        End If
    Next
    Application.ScreenUpdating = True
End Sub

推荐阅读