14、深入探索Excel VBA：定时器、工作簿引用与列表框控件的应用

深入探索Excel VBA：定时器、工作簿引用与列表框控件的应用

1. 使用VBA Timer()函数创建定时器

在Excel VBA编程中，我们可以利用 Timer() 函数创建一个简单的定时器。具体操作是在 UserForm_Activate() 事件中编写代码，借助 Timer() 函数（该函数返回自午夜（0:00）以来经过的秒数）和一个简单的循环来实现。以下是创建一个五秒定时器的示例代码：

Private Sub UserForm_Activate()
    Dim lngSeconds As Long
    lngSeconds = Timer
    Do
    Loop Until (Timer - lngSeconds) > 5
    Unload Me
End Sub

上述代码将 Timer() 函数返回的值存储在 lngSeconds 变量中，然后在 Do While...Loop 循环里，不断用后续 Timer() 函数的返回值减去 lngSeconds 的值。当差值大于五秒时，循环结束，使用 Unload 方法卸载用户窗体。

2. 定时器使用中遇到的问题及解决办法

当在 Timer.xlsm 工作簿的 Workbook