Question

我希望能够创建一个隐藏所有日期超过30天的列的按钮。每列都有一个预期的收益日期，我希望能够点击按钮，它会显示30天内预计的收益，60天的其他按钮等等。

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

非常感谢任何建议，代码或示例！

谢谢！

Answer 1

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

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

使用日期隐藏excel中的列

1 个答案: