在Excel中不变的VBA代码时间戳

Question

我知道我在某个地方犯了一个明显的错误，但是我最初尝试编写一个可以放入时间戳但没有覆盖它的代码，我最初在第一行的末尾全部都编译了，但是无论如何会改变时间。我想在时间参考单元格和目标中都没有时间戳会更新的数据。仅当随后清除两个单元格时。提供的任何帮助将不胜感激。

Function Patienttime(reference As Range)
If reference.Value <> "" And IsEmpty(Patienttime) = False Then End If
ElseIf reference.Value <> "" And IsEmpty(Patienttime) = True Then
Patienttime = Format(Now, "HH:MM")
ElseIf IsEmpty(reference.Value) = True Then Patienttime = ""

End Function