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

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

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

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

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

比如说，如果A1单元格的值大于B1单元格的值，我希望文本框填充为红色，相反，文本框应填充为黄色。请按照以下步骤完成此操作：

1. 点击 开发工具 > 插入 > 文本框（ActiveX控件），插入一个文本框，然后绘制一个文本框，见截图：

2. 然后右键单击文本框，并从上下文菜单中选择 查看代码 打开 Microsoft Visual Basic for Applications 窗口，然后将原始代码替换为以下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

注意：在上面的代码中，TextBox1 是您插入的文本框名称， A1 和 B1 是您要根据其更改文本框颜色的两个单元格，请根据需要更改它们。

3. 然后保存并关闭代码窗口，并退出 设计模式，现在，如果单元格A1大于B1，当您在文本框中输入文字时，它将被填充为红色；如果A1小于B1，当在文本框中输入值时，它将被填充为黄色，见截图：

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

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

1. 插入文本框后，右键单击它，并从上下文菜单中选择 查看代码 打开 Microsoft Visual Basic for Applications 窗口，然后将原始代码替换为以下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

注意：在上述代码中，Textbox1是您插入的文本框名称，您可以更改代码中的值和背景颜色以适应您的需求。

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

相关文章：

如何在文本框中插入图片？

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

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

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