等到用户停止键入ComboBox运行macros（VBA）

我正在编写一个交叉引用数据库。 根据select或创build的文档名称生成ID。

标题中提到的ComboBox在更改（3个字母后）时会执行，检查数据库是否有类似的条目，并显示与之匹配的下拉选项。 从匹配列表中选取一个条目或创build一个新名称 – 生成相应的编号。

由于DropDown列表是在每个字母input后生成的，因此需要一段时间才能input所需内容。 我想在最后一次更改后等待几秒钟来运行macros。

任何想法，我怎么能做到这一点？

Answer 1

这有点棘手，因为VBA不支持multithreading。 但是我们可以使用Application.OnTime事件来触发未来的testing，以testing最后一个关键事件是否至less在3秒之前。

在模块插入：

 Option Explicit Public LastKeyEvent As Date Public Const WaitTimeValue As String = "00:00:03" 'test for key event in 3 seconds Public Sub TestKeyEvent() 'test if last key event is at least 3 seconds ago. 'If so: run your search or message box 'If not: do nothing If LastKeyEvent <> 0 And LastKeyEvent + TimeValue(WaitTimeValue) <= Now Then LastKeyEvent = 0 'Ensure this is only triggered once: 'If we don't do this and multiple keys are pressed within 1 second 'then it would run multiple times. MsgBox "3 seconds without keypress, we can start search" 'start your search here (instead of message box) … End If End Sub 

现在你可以使用你的文本框更改事件，例如TextBox1 ：

 Private Sub TextBox1_Change() Dim alertTime As Date LastKeyEvent = Now 'remember when the last key event was alertTime = LastKeyEvent + TimeValue(WaitTimeValue) Application.OnTime alertTime, "TestKeyEvent" 'run TestKeyEvent in 3 seconds End Sub 

注意：
这是一个解决scheme，可以工作2秒或更长时间。 但不less于2秒。

Answer 2

另一种方法是再次使用Application.OnTime ：

在用户窗体中 ：

 Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) StartTimer End Sub 

在模块中 ：

 Public RunTime As Double Public Sub StartTimer() On Error Resume Next Application.OnTime EarliestTime:=RunTime, Procedure:="YourCode", Schedule:=False RunTime = Now() + TimeValue("00:00:03") Application.OnTime RunTime, "YourCode" End Sub Public Sub YourCode() MsgBox "It's working!" End Sub