右击工作表标签>查看代码>粘贴下面代码.
在A列任意单元格输入日期值时会触发该事件,筛选A列大于等于7天前日期的所有值.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
Application.ScreenUpdating = False
With Range("a:a")
.AutoFilter
.AutoFilter 1, ">=" & Date - 7
End With
Application.ScreenUpdating = True
End If
End Sub
温馨提示:答案为网友推荐,仅供参考