多语言展示
当前在线:1231今日阅读:86今日分享:14

使用VBA实现EXCEL指定时间自动清除所有内容

在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,程序成功的自动删除了所有内容。

注意事项

原创不易,您的投票点赞是我持续分享的最大动力。

推荐信息