批量设置TextBox输入非数字时变红的代码无效，求解决办法

我需要实现一个功能：当TextBox输入值非数字时，将其背景改为浅红色。单个TextBox已经能实现，但14个TextBox批量处理时，以下代码无法生效，求解决：

Private Sub Justi_num()

Dim i As Integer

For i = 2 To 14
    If IsNumeric(Controls("TextBox" & i).Value) Then
        Controls("TextBox" & i).BackColor = RGB(255, 255, 255) '白色
    Else '否则
         Controls("TextBox" & i).BackColor = RGB(247, 205, 201) '浅红色
    End If
Next i

End Sub

1. 核对控件名称 #

确认所有目标TextBox的名称严格是TextBox2到TextBox14，没有拼写错误（比如大小写、多余字符）。可以在窗体设计视图中选中控件，查看属性窗口的Name属性验证。

2. 优化空值与特殊字符判断 #

IsNumeric对空字符串、全空格等情况的判断可能不符合预期，建议先处理这类场景：

Private Sub Justi_num()
    Dim i As Integer
    Dim txtBox As Control
    
    For i = 2 To 14
        Set txtBox = Controls("TextBox" & i)
        ' 空值或全空格设为白色（可按需调整）
        If Trim(txtBox.Value) = "" Then
            txtBox.BackColor = RGB(255, 255, 255)
        ElseIf IsNumeric(txtBox.Value) Then
            txtBox.BackColor = RGB(255, 255, 255)
        Else
            txtBox.BackColor = RGB(247, 205, 201)
        End If
    Next i
End Sub

3. 确保代码触发时机正确 #

• 实时输入判断：在窗体初始化时，给所有目标TextBox绑定Change事件，实现输入时实时校验：

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To 14
Controls("TextBox" & i).OnChange = "Justi_num"
Next i
End Sub

- **按钮触发判断**：如果是点击按钮执行校验，确保按钮的`Click`事件中调用`Justi_num`。

### 4. 处理嵌套控件场景
如果TextBox放在框架（Frame）、多页控件（MultiPage）等容器内，需要指定父容器才能正确引用：
```vba
' 示例：TextBox在Frame1容器中
Set txtBox = Frame1.Controls("TextBox" & i)

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