Excel 当单元格被写入时，请输入时间，不要再更新

我想做的是建立一个数据库和一个表格，当一辆车或一个人进入时，我只需输入姓名或车牌，我的数据库就会提供我需要的信息。
完成了。
但我想让它最自动化，比如：当A4有一个“P”或“C”时，它会给我E4中的小时，并且不会有更多的变化。
因此，当我点击“Guardar Entrada”按钮时，它将把数据放在下表中，并保持在那里，而没有任何人对其进行更改。
我将now（）与if:

=if（或（A4=“C”；A4=“P”）；now（）；”“）

一起使用，但每次我将某些内容放入A4时，即使它们已经在其他单元格中，时间也会发生变化

我迄今为止的工作：
{Sub InserirBD（） ' 'InserirBD宏 "

    '
    Range("A4:G4").Select
    Selection.Copy
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown
    Range("A4:G4").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub
Sub Ir_p_ExpedienteEntradas()
'
' Ir_p_Expediente Macro
'

'
    Sheets("Expediente Entradas").Select
    Range("A4").Select
End Sub

Sub Ir_p_ExpedienteSaidas()

    Sheets("Expediente Saidas").Select
    Range("A4").Select
End Sub
Sub Ir_p_BD()
'
' Ir_p_BD Macro
    Sheets("Base de Dados").Select
    Range("A4").Select
End Sub
Sub Inserir_EXP()
' Macro para inserir expediente

Range("A4:J4").Select
Selection.Copy
Range("A6:J6").Select
Selection.End(xlDown).Select
Selection.Insert Shift:=xlDown
Range("A4:C4").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub}

---

感谢

现在

总是在变化，如果你想保持值的静态，你必须删除该函数，一个选项是通过复制和粘贴为值。另一个选项是使用VBA直接插入值，而不是函数。@Tiw因为我正在非常短的时间内学习编码，而且正在进行中：{Dim MyTime As String MyTime=Format（Time，“Long-Time”）如果单元格（“A4”）=“C”或单元格（“A4”）=“P”，则范围（“E4”）。Value=MyTime End If}

现在

总是在变化，如果你想保持值不变，你必须删除该函数，一个选项是通过复制和粘贴为值。另一个选项是使用VBA直接插入值，而不是函数。@Tiw因为我在很短的时间内就学会了编码：{Dim MyTime As String MyTime=Format（Time，“Long-Time”）如果单元格（“A4”）=“C”或单元格（“A4”）=“P”，则范围（“E4”）。Value=MyTime End If}