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列消失则消失
