EXCEL自动生成日期后删除的问题

来源:百度知道 编辑:UC知道 时间:2024/05/12 07:58:13
Application.EnableEvents = False
If Target.Column = 5 And Target.Value <> 空值 Then
Target.Offset(0, 3).Value = Now()
End If
If Target.Column = 5 And Target.Value = 空值 Then
Target.Offset(0, 3).Value = 空值
End If
Application.EnableEvents = True

相信高手都一看就懂,在E列中输入数据,H列中自动显示日期

现在我的问题是,我想在E中删除数据,H中也自动删除日期
这个代码只能一个一个地删除,如果我在E中选择了好几项一起删除,马上提示出错,请高手帮改下代码或者直接另写代码,谢谢

加一个不许报错的错码试试

On Error Resume Next
Application.EnableEvents = False
If Target.Column = 5 And Target.Value <> 空值 Then
Target.Offset(0, 3).Value = Now()
End If
If Target.Column = 5 And Target.Value = 空值 Then
Target.Offset(0, 3).Value = 空值
End If
Application.EnableEvents = True

其实利用条件格式业绩、可以办得到,这个函数不是很好用,以前我也用过

puzzle!