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

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

2、按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 With

End Sub

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