根据条件自动跳出当前日期且不随时间改变而改变

在EXCEL中开启宏控制，依次点击文件--选项----信任中心---信任中心设置---宏设置---启用所有宏--确定

按ctrl+F11键，进入VBA编辑窗口---双击要添加效果的工作表---将代码复制粘贴到空白区域--保存即可代码：Private Sub Worksheet_Change(ByVal Target As Range)    On Error Resume Next    With Target    If .Column <> 7 Then Exit Sub '如果列号不等于7，退出；    If .Value = '' Then '如果值为空值，就是第7列的，    .Offset(0, 5) = '' '则7列后第5列对应值为空    Else '否则    .Offset(0, 5) = Date '第7列后第5列值为当前日期    End If    End WithEnd Sub

关闭VBA窗口，进入EXCEL对应工作表测试，而后当G列有内容时，L列对应显示当前日期；G列消失则消失

1，一定要开启宏控制，否则所有代码运行不起来

2，要根据代码上绿色的提示，对自己的表格进行列进行修改，修改为适合自己的