将指定TextBox存入数组并实现金额千分位格式化（VBA求助）

本人刚接触VBA，需要将编号为2、7、50等的TextBox存入数组，对这些文本框设置条件格式化：输入数字（金额类）时自动添加千分位逗号，例如输入7000自动显示为7,000。以下是我写的代码，求指导：

Private Sub FormatTextBoxes()
    Dim i As Variant
    Dim iArray As Variant
    Dim txtBox As Object
    
    iArray = Array(2, 7, 50, 51, 55, 62, 63, 64, 67, 69, 71, 78, 86, 91, 92, 94, 95, 102, 103, 107, 108, 111)
    For Each i In iArray
        On Error Resume Next ' Add error handling
        Set txtBox = Me.Controls("TextBox" & i)
        
        If Not txtBox Is Nothing Then ' Check if the textbox exists
            If IsNumeric(txtBox.Text) And txtBox.Text <> "" Then
                txtBox.Text = Format(Abs(CDbl(txtBox.Text)), "#,###")
            End If
        End If
        On Error GoTo 0 ' Reset error handling
    Next i
End Sub

原代码问题及优化点 #

• 无自动触发逻辑：当前过程没有绑定任何事件，无法在用户输入时自动执行格式化，只能手动调用或通过按钮触发。
• 负数处理错误：Abs函数会将负数转为正数，不符合金额可能为负的业务场景，需移除该函数。
• 格式兼容性差：#,###仅支持整数金额，实际金额通常包含小数位，建议调整为#,###.00（固定两位小数）或#,###.##（按需保留小数）。
• 控件查找不严谨：依赖On Error Resume Next跳过不存在的控件，可改为更明确的存在性判断。

改进方案 #

方案1：优化批量格式化过程（适合手动/按钮触发）

Private Sub FormatTextBoxes()
    Dim i As Variant
    Dim iArray As Variant
    Dim txtBox As MSForms.TextBox ' 指定控件类型，提升代码严谨性
    
    iArray = Array(2, 7, 50, 51, 55, 62, 63, 64, 67, 69, 71, 78, 86, 91, 92, 94, 95, 102, 103, 107, 108, 111)
    
    For Each i In iArray
        ' 先判断控件是否存在，避免错误
        If Me.Controls.Exists("TextBox" & i) Then
            Set txtBox = Me.Controls("TextBox" & i)
            With txtBox
                If .Text <> "" And IsNumeric(.Text) Then
                    ' 支持正负金额，保留两位小数的千分位格式
                    .Text = Format(CDbl(.Text), "#,###.00")
                End If
            End With
        End If
    Next i
End Sub

方案2：自动绑定事件实现实时格式化（推荐）

如果需要用户输入完成后自动格式化，可通过类模块批量绑定文本框的Exit事件：

1. 插入类模块（右键窗体模块→插入→类模块），命名为TextBoxFormatter，输入以下代码：

Public WithEvents TargetTxtBox As MSForms.TextBox

Private Sub TargetTxtBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With TargetTxtBox
        If .Text <> "" And IsNumeric(.Text) Then
            .Text = Format(CDbl(.Text), "#,###.00")
        End If
    End With
End Sub

2. 在窗体模块添加初始化代码，绑定目标文本框：

Dim txtFormatters As Collection

Private Sub UserForm_Initialize()
    Dim i As Variant
    Dim iArray As Variant
    Dim formatter As TextBoxFormatter
    
    Set txtFormatters = New Collection
    iArray = Array(2, 7, 50, 51, 55, 62, 63, 64, 67, 69, 71, 78, 86, 91, 92, 94, 95, 102, 103, 107, 108, 111)
    
    For Each i In iArray
        If Me.Controls.Exists("TextBox" & i) Then
            Set formatter = New TextBoxFormatter
            Set formatter.TargetTxtBox = Me.Controls("TextBox" & i)
            txtFormatters.Add formatter
        End If
    Next i
End Sub

补充说明 #

• 若不需要小数位，将格式字符串改回#,###即可。
• 如果要在输入过程中实时格式化，可把类模块中的Exit事件改为Change事件，但需额外处理光标位置，避免光标跳转到末尾影响输入体验。

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