求助一个自动清楚单元格内容的VBA代码

rendao30 · 发表于 2022-12-2 18:24

本帖最后由 rendao30 于 2022-12-2 18:31 编辑

各位前辈晚上好，求前辈们写个VBA代码，首先判断日期（B2内容）是否等于今天，如果不等于，就自动清除B4:C9单元格的数据（等于就不清除）
如果能输入之前的日期，重现之前的数据就更完美了
感谢各位前辈，感谢EXCEL平台，好人一生平安！

附件.zip (11.84 KB, 下载次数: 6)

汉唐 · 发表于 2022-12-3 13:51

工作簿事件代码应放在Thisworkbook模块
Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Cells(2, 2) <> Date Then
'Cells(4, 2).Resize(6, 2).NumberFormatLocal = ";;" '如果要隐藏数据，用这句
Cells(4, 2).Resize(6, 2).ClearContents '如果要清除数据，用这句
End If
Application.DisplayAlerts = True
End Sub

gwjkkkkk · 发表于 2022-12-3 18:22

请楼主参考。。。

		自动登录	找回密码
密码			免费注册

[求助] 求助一个自动清楚单元格内容的VBA代码