【Excel VBA】Timer

最新推荐文章于 2025-03-20 14:48:05 发布

Cecilia 王蓓

最新推荐文章于 2025-03-20 14:48:05 发布

阅读量3k

点赞数

分类专栏： VBA

本文链接：https://blog.csdn.net/Cecilia_W422/article/details/88813219

版权

VBA 专栏收录该内容

17 篇文章

订阅专栏

本文介绍 VBA 中 Timer() 函数的应用，通过两个示例展示了如何获取当前时间并利用 Timer() 函数进行时间记录及计算代码执行时间。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在这里插入图片描述
Timer()函数返回自凌晨00:00起的秒数和毫秒数。

Private Sub Constant_demo_Click()
   msgbox("Time is : " & Now())
   msgbox("Timer is: " & Timer())
End Sub

在这里插入图片描述

例子

Sub Counter_Looping_for_Timer()
'for tab Find (for Timer testing)

    Dim r As Long
    Dim i As Byte
    i = 3
    Dim Start
    
    ' 记录开始的时间
    Start = VBA.Timer
    Range("D3:D6").ClearContents
    'this part is hardcoded for the purpose of testing the Timer Function
    For r = 8 To 200000
        If UCase(Range("A" & r).Value) = UCase(Range("B3").Value) Then
            Range("D" & i).Value = Range("E" & r).Value
            i = i + 1
        End If
    Next r
    
    ' 用debug输出运算时间
    Debug.Print Round(Timer - Start, 3)
    
End Sub