动态时间如何解决

双眼皮lsk

如图，图片红色箭头所指的是动态时间，时分秒会跟实际时间同步，如何设置呢？

LIUZHU

这是做的窗体吗？

双眼皮lsk

LIUZHU 发表于 2024-5-22 19:00
这是做的窗体吗？

嗯嗯，是不是函数无法解决，需要代码解决？

micch

看位置，那都不在excel里面，是外部程序吧

garysheep

真巧，前几天刚看到这个问题怎么解。代码如下。主要用了TimeValue(Now)
Private Sub Workbook_Open()
    Dim Hr As Boolean
    Hr = Not (Hr)
    Do While Hr = True
        DoEvents
        Range("D6") = TimeValue(Now)
    Loop
End Sub

garysheep

附件：动态时钟

ykcbf1100

garysheep 发表于 2024-5-22 19:38
真巧，前几天刚看到这个问题怎么解。代码如下。主要用了TimeValue(Now)
Private Sub Workbook_Open( ...

你这个和楼主说的完全不是一回事。

q490525427

Sub StartClock()
    LastUpdateTime = Now()
    Application.OnTime Now + TimeValue("00:00:01"), "UpdateClock"
End Sub
Sub StopClock()
    On Error Resume Next
    Application.OnTime EarliestTime:=LastUpdateTime, Procedure:="UpdateClock", Schedule:=False
    On Error GoTo 0
End Sub
Sub UpdateClock()
    LastUpdateTime = Now()
    Dim CurrentHour As Integer
    Dim CurrentMinute As Integer
    Dim CurrentSecond As Integer
    CurrentHour = Hour(LastUpdateTime)
    CurrentMinute = Minute(LastUpdateTime)
    CurrentSecond = Second(LastUpdateTime)
    Range("A1").Value = Format(CurrentHour, "00") & ":" & Format(CurrentMinute, "00") & ":" & Format(CurrentSecond, "00")
    Application.OnTime Now + TimeValue("00:00:01"), "UpdateClock"
End Sub

cidanji

目测像是flash 很少用，现在的很多电脑环境运行flash问题也多

双眼皮lsk

garysheep 发表于 2024-5-22 19:38
真巧，前几天刚看到这个问题怎么解。代码如下。主要用了TimeValue(Now)
Private Sub Workbook_Open( ...

我先试一下啊！