如何用单个Sub批量处理ActiveX文本框的Change事件格式设置？

不用给每个文本框单独编写textbox_change()事件，通过类模块可以一次性给所有ActiveX文本框绑定统一的事件处理逻辑，且仅触发当前操作的文本框，不会出现遍历所有控件导致的卡顿问题。

具体实现步骤 #

1. 创建类模块统一处理事件 #

1. 打开VBA编辑器（按Alt+F11），右键点击项目资源管理器，选择插入>类模块
2. 在属性窗口中将类模块的Name属性改为clsTextBoxHandler
3. 在类模块中粘贴以下代码：

Option Explicit

' 定义带事件监听的文本框对象
Private WithEvents tb As MSForms.TextBox

' 绑定目标文本框的方法
Public Sub BindTextBox(target As MSForms.TextBox)
    Set tb = target
    ' 初始化文本框格式
    RefreshTextBoxStyle tb
End Sub

' 文本框内容变更时触发的事件
Private Sub tb_Change()
    RefreshTextBoxStyle tb
End Sub

' 统一的格式更新逻辑
Private Sub RefreshTextBoxStyle(txtBox As MSForms.TextBox)
    If Trim(txtBox.Value) = "" Then
        ' 空值状态：彩色边框+透明背景
        txtBox.BackStyle = fmBackStyleTransparent
        txtBox.BorderColor = RGB(255, 0, 0) ' 红色边框，可按需修改颜色值
    Else
        ' 非空状态：不透明背景+自定义格式
        txtBox.BackStyle = fmBackStyleOpaque
        txtBox.BackColor = RGB(255, 255, 255) ' 白色背景
        txtBox.Font.Color = RGB(0, 0, 0) ' 黑色字体，可按需调整
        txtBox.BorderColor = RGB(0, 0, 0) ' 黑色边框，可按需调整
    End If
End Sub

2. 在工作表模块批量绑定控件 #

打开存放文本框的工作表对应的模块（如Sheet1），粘贴以下代码：

Option Explicit

' 模块级集合，用于保存类实例（防止被垃圾回收）
Private tbHandlerCollection As Collection

Private Sub Worksheet_Activate()
    Dim ctrl As OLEObject
    Dim handler As clsTextBoxHandler
    
    Set tbHandlerCollection = New Collection
    
    ' 遍历工作表所有ActiveX控件
    For Each ctrl In Me.OLEObjects
        ' 筛选出文本框控件
        If TypeName(ctrl.Object) = "TextBox" Then
            Set handler = New clsTextBoxHandler
            ' 绑定当前文本框到类实例
            handler.BindTextBox ctrl.Object
            ' 将类实例存入集合
            tbHandlerCollection.Add handler
        End If
    Next ctrl
End Sub

关键说明 #

• 激活工作表时，代码会自动批量绑定所有ActiveX文本框到统一的事件处理逻辑，后续每个文本框输入内容时，仅触发自身的变更事件，不会遍历所有控件，完全避免卡顿。
• 若后续新增文本框，只需切换到其他工作表再切回，即可自动完成新控件的绑定。
• 所有格式规则（颜色、背景样式等）都集中在RefreshTextBoxStyle函数中，只需修改一处即可统一更新所有文本框的格式。

内容的提问来源于stack exchange，提问作者Andy P