excel 当某单元格日期是当天日期时，自动隐藏前面的列？

2025-05-14 00:31:34

推荐回答（2个）

回答1：

假设存放数据的工作表名字是sheet1,日期输入在B列，用下面代码可以实现。
按ALT+F11调出VBA窗口，在左侧找到thisworkbook模块，双击打开它的窗口，把下面代码粘贴进去。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
x = Sheets("sheet1").Range("b65536").End(xlUp).Row
If x > 1 Then
For i = 2 To x
If Cells(i, 2) < Date Then
Rows(i).Hidden = True
End If
Next
End If
End Sub
这段代码利用了EXCEL的“保存”事件自动实现隐藏功能。

回答2：

只能通过写代码才能实现。