Excel实现自动显示日期且不自动改变

前言：本文举例子为D列（第4列）填写内容，E列（第5列）显示日期

主要代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
        Range("E" & Target.Row) = Date
    End If

End Sub

步骤：

1、确定填写内容的列和显示日期的列（本文举例子为D列填写内容，E列显示日期）

2、步骤如图，点击开发工具->Visual Basic

3、

说明：代码中的4，代表是第4列填写内容，代码中的5，代表是第5列显示日期，读者可根据个人要求进行修改

4、测试

step 1：输入测试数字

step 2：修改系统时间

关闭自动设置时间按钮，自行修改时间日期后测试

重新输入内容，之前的时间未跟随系统改变