首页
登录 | 注册

【Excel技巧】 数据阅后即焚-VBA

打开VBA编辑器
在ThisWorkbook插入下面的代码
可以实现,当前日期超过11月13日的时候,自动清空A1:M15的内容
Private Sub Workbook_Open()
If CDate(Date) > CDate("2012-11-13") Then
sheet1.range("a1:M15")= ""
End If
End Sub


2020 jeepxie.net webmaster#jeepxie.net
10 q. 0.008 s.
京ICP备10005923号