...在指定的日期(比如每年的1月1日)把指定的列表清空(比如b1:i30)_百 ...
发布网友
发布时间：2024-03-14 00:00
共1个回答
热心网友
时间：2024-03-17 21:41
Alt+F11，打开VBA编辑器，Alt+I+M，插入模块，在模块中粘贴下面代码：
Sub ClearRng(m As Integer, d As Integer, rng As Range) '按照日期清除指定区域内容If Month(Now) = m And Day(Now) = d Then 'm是月，d是日
rng.Clear 'rng是要清除的区域
End If
End Sub
双击Thisworkbook，在Workbook的Open()事件里粘贴以下代码：
Call ClearRng(4, 18, Worksheets(1).Range("A3:A5")) '以4月18日清除工作表1的A3:A5区域为例如下图：
启用宏，之后每次打开这个工作簿时就会执行检测代码，符合条件时自动清除相应区域内容。
如有帮助，请采纳！谢谢！
