如何根据另一个文本框的值为文本框着色？

Question

我有一个由一系列依赖的组合框填充的用户窗体，使用for循环在由组合框构成的选择的相应单元格之间循环并填充相应的texbox。

这一切正常。

我想根据另一个文本框中指定的限制为文本框着色。

基本上看起来如下

用户表单图像

我正在使用case语句根据“限制”文本框中的数字指定我的范围，将绿色，橙色和红色表示为0，将其表示在限制范围内，并在其上进行限制。它们有时着色不正确。

表格-工作中

表格-不起作用

Private Sub TextBox6_Change()
    Select Case TextBox5.Value
        Case 0: TextBox5.BackColor = RGB(14, 237, 59)
        Case 1 To TextBox6.Value: TextBox5.BackColor = RGB(237, 181, 14)
        Case Else: TextBox5.BackColor = RGB(250, 0, 12)
    End Select
End Sub

Private Sub TextBox8_Change()
    Select Case TextBox7.Value
        Case 0: TextBox7.BackColor = RGB(14, 237, 59)
        Case 1 To TextBox8.Value: TextBox7.BackColor = RGB(237, 181, 14)
        Case Else: TextBox7.BackColor = RGB(250, 0, 12)
    End Select
End Sub

Private Sub TextBox10_Change()
    Select Case TextBox9.Value
        Case 0: TextBox9.BackColor = RGB(14, 237, 59)
        Case 1 To TextBox10.Value: TextBox9.BackColor = RGB(237, 181, 14)
        Case Else: TextBox9.BackColor = RGB(250, 0, 12)
    End Select
End Sub

Private Sub TextBox12_Change()
    Select Case TextBox11.Value
        Case 0: TextBox11.BackColor = RGB(14, 237, 59)
        Case 1 To TextBox12.Value: TextBox11.BackColor = RGB(237, 181, 14)
        Case Else: TextBox11.BackColor = RGB(250, 0, 12)
    End Select
End Sub

我将Case语句添加到Limit文本框change子项中，因为这些子项在上面的文本框后被填充。

当我使用F8循环浏览代码时，文本框值正确填充。