[已解决]单元格加入时间

zhufuan

我需要在b33中自动录入系统时间，能实时自动刷新的那种

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-8-20 20:37

看下

跳转到最佳答案楼层

哥儿-

看下

我行我速2008

Dim x, k
Sub 时间显示()
  If k = 1 Then
    k = 0
    End
  End If
  Range("b33") = Format(Now, "h:mm:ss")
  Application.OnTime Now + TimeValue("00:00:01"), "时间显示"
  x = DoEvents
End Sub

Sub 结束时间显示()
    k = 1
End Sub

zhufuan

单元格怎么显示多少秒

哥儿-

zhufuan 发表于 2022-8-24 19:54
单元格怎么显示多少秒

加一句代码：Range("b33").NumberFormatLocal = "yyyy/m/dd hh:mm:ss" 或者手动自定义单元格格式：yyyy/m/dd hh:mm:ss