如何根據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 之間，文本框背景顏色將變為綠色；其他值，它將變為黃色，如下圖所示：

相關文章：

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

如何在文本框中設置默認值？

如何允許僅在文本框中輸入數字？

如何在文本框中應用拼寫檢查？