在EXCEL应用过程中,经常出现需要EXCEL文件的传输给对方,此时需要在对方收到文件后,指定时间之后,自动清除指定的数据或删除所有内容,保证数据的安全性和时效性。
工具/原料
1
电脑
2
EXCEL
方法/步骤
1
打开需要处理的EXCEL文件,如图所示。
2
点击组合键“ALT+F11”调用并打开VBA程序界面,如图所示。
3
点击左侧“工程栏”中的“This Workbook”
4
依次点选“Workbook”和“Open”
5
在Private和End Sub之间,录入程序如下Dim a, b As Stringa = Format(Date, 'yyyy年m月d日') '当前年月日If a > '2017年9月10日' Then Cells.Select Selection.ClearContentsEnd If
6
点击运行按钮,测试程序运行正常
7
关闭VBA程序窗口,文件另存为“EXCEL 启用宏的工作簿”
8
测试,打开EXCEL文件,时间为2017/9/13大于2017/9/10,程序成功的自动删除了所有内容。
注意事项
原创不易,您的投票点赞是我持续分享的最大动力。