如何根据Excel中的值更改文本框颜色？

在Excel中，我们可以应用条件格式设置功能来根据单元格值更改背景颜色，但是，在本文中，我将讨论如何根据单元格值或文本框中的值更改文本框颜色。

使用VBA代码根据单元格值更改文本框颜色

使用VBA代码根据文本框中的值更改文本框颜色

使用VBA代码根据单元格值更改文本框颜色

假设，如果A1中的单元格值大于B1中的单元格值，我希望文本框用红色填充，相反，文本框应该用黄色填充。 请按照以下步骤完成这项工作：

1。 通过单击插入文本框 开发商 > 插页 > 文本框（ActiveX控件），然后绘制一个文本框，请参见屏幕截图：

2。 然后右键单击文本框，然后选择 查看代码 从上下文菜单中打开 Microsoft Visual Basic应用程序 窗口，然后用以下VBA代码将原始代码替换为空白模块：

VBA代码：根据单元格值更改文本框颜色：

Private Sub TextBox1_Change()
    If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
        Me.TextBox1.BackColor = vbRed
    Else
        Me.TextBox1.BackColor = vbYellow
    End If
End Sub

备注：在上面的代码中， 文字框1 是您插入的文本框名称， A1 和 B1 是您要基于其更改文本框颜色的两个单元格，请根据需要进行更改。

3。 然后保存并关闭代码窗口，然后退出 设计模式，现在，如果单元格A1大于B1，则在文本框中键入文本时，将用红色填充；如果单元格A1小于B1，则在文本框中输入值时，将用黄色填充，看截图：

使用VBA代码根据文本框中的值更改文本框颜色

如果要基于文本框中的值更改文本框颜色，例如，当文本框中的值介于1和10之间时，文本框的填充颜色为红色，如果值介于11和20之间，则文本框颜色为绿色，如果为其他值，文本框颜色为黄色。 要处理此任务，请应用下面的VBA代码。

1。 插入文本框后，右键单击它，然后选择 查看代码 从上下文菜单中打开 Microsoft Visual Basic应用程序 窗口，然后用以下VBA代码将原始代码替换为空白模块：

VBA代码：根据文本框中的值更改文本框颜色：

Private Sub TextBox1_Change()
    On Error Resume Next
    Select Case TextBox1.Value
        Case 1 To 10:
            TextBox1.BackColor = vbRed
        Case 11 To 20:
            TextBox1.BackColor = vbGreen
        Case Else:
            TextBox1.BackColor = vbYellow
    End Select
End Sub

备注：在上面的代码中， 文字框1 是插入的文本框的名称，您可以将代码中的值和背景颜色更改为自己的文本框。

2。 然后保存并关闭代码窗口，然后退出 设计模式，现在，如果您在文本框中输入1到10之间的值，其背景颜色将变为红色，该值在11到20之间，文本框的背景颜色将变为绿色，其他值将变为黄色，如以下屏幕截图所示：

相关文章：

如何将图片插入文本框？

如何在文本框中设置默认值？

如何在文本框中仅输入数字？

如何在文本框中应用拼写检查？