打开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
打开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