如何限制类模块中文本框控件的事件触发时机？

我来帮你搞定这两个棘手的问题：类模块绑定的文本框Change事件触发太频繁，以及主模块修改值时Application.EnableEvents失效的情况。

一、模拟「输入完成」触发时机（替代Exit/Enter事件） #

确实，类模块里的MSForms.TextBox没有Enter/Exit事件，但我们可以用LostFocus事件来模拟「用户完成输入、切换控件」的场景，再搭配KeyDown监听回车键，覆盖用户主动确认输入的情况。

修改你的类模块（假设类名为clsTextBox）：

Option Explicit
Public WithEvents tb As MSForms.TextBox
Public x As Long
Public y As Long
Private m_blnSkipEvent As Boolean ' 用于标记是否跳过事件触发

' 文本框失去焦点时触发（用户切换到其他控件）
Private Sub tb_LostFocus()
    If Not m_blnSkipEvent Then
        ProcessInput ' 执行你的核心处理逻辑
    End If
    m_blnSkipEvent = False
End Sub

' 监听回车键，用户按回车时立即触发处理
Private Sub tb_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        If Not m_blnSkipEvent Then
            ProcessInput
        End If
        m_blnSkipEvent = False
        tb.LostFocus ' 可选：让文本框自动失去焦点，模拟切换控件的效果
    End If
End Sub

' 统一的输入处理逻辑，替换原来的Change事件代码
Private Sub ProcessInput()
    Debug.Print tb.Text, x, y
End Sub

' 给主模块提供的方法，用于控制是否跳过事件
Public Sub SetSkipEvent(ByVal blnSkip As Boolean)
    m_blnSkipEvent = blnSkip
End Sub

这样就实现了仅在用户切换控件或按回车确认时触发处理，告别每输入一个字符就触发的烦恼。

二、解决主模块修改值时触发Change事件的问题 #

Application.EnableEvents只对Excel原生对象（工作表、工作簿等）的事件生效，对窗体控件事件完全没用。我们可以用类模块里的m_blnSkipEvent标记变量，在主模块修改值前主动跳过事件：

主模块示例代码：

Sub UpdateTextBoxValue()
    Dim objTB As clsTextBox
    ' 假设你已经完成了类的实例化和文本框绑定
    objTB.SetSkipEvent True ' 开启事件跳过
    objTB.tb.Value = "Default"
    objTB.SetSkipEvent False ' 恢复事件触发
End Sub

补充小技巧 #

如果某些场景下你还需要保留实时Change事件的逻辑，只需要在类模块里补充带判断的Change事件即可：

Private Sub tb_Change()
    If Not m_blnSkipEvent Then
        ' 这里放需要实时触发的逻辑（可选）
    End If
End Sub

内容的提问来源于stack exchange，提问作者Shawn V. Wilson