如何根據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

備註：在上面的代碼中， 文字框1 是您插入的文本框名稱， 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

備註：在上面的代碼中， 文字框1 是插入的文本框的名稱，您可以將代碼中的值和背景顏色更改為自己的文本框。

2。 然後保存並關閉代碼窗口，然後退出 設計模式，現在，如果在文本框中輸入1到10之間的值，則其背景色將變為紅色，在11到20之間的值將使文本框的背景色變為綠色，其他值將變為黃色，如以下屏幕截圖所示：

相關文章：

如何將圖片插入文本框？

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

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

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