Excel 中的实时时间

Excel 中的实时时间

我想在 Excel 中获取实时时间。我想要的是例如 If(Now()="08:00","Yes","No")

为此,我需要实时时间,因为我看到现在时间是恒定的,没有变化。如果可能的话,请您帮忙。

答案1

创建模块并输入代码:

Sub freshtime()
Dim NewTime As Date
NewTime = Now + TimeValue("00:00:01")
Calculate
Application.OnTime NewTime, "freshtime"
End Sub

在此处输入图片描述

在“工作簿打开”下输入代码:

Private Sub Workbook_Open()
freshtime
End Sub

在此处输入图片描述

然后你会得到:

在此处输入图片描述

相关内容