如何根據 Excel 中的數值變更文字方塊的顏色？

作者曉陽修改日期2024-08-12

在 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

顯示如何使用 VBA 程式碼的螢幕截圖

注意：TextBox 1 為您插入的文字方塊名稱，A1 與 B1 則是用來判斷文字方塊顏色的兩個儲存格，請依實際需求調整。

3. 接著保存並關閉程式碼視窗，然後退出設計模式。現在，當您在文字方塊中輸入文字時，若 A1 儲存格大於 B1，文字方塊會自動填滿紅色；若 A1 小於 B1，則會填滿黃色，如下圖所示：

根據不同儲存格值顯示不同顏色文字方塊的螢幕截圖

使用 VBA 程式碼根據文字方塊內的值變更文字方塊顏色

若想根據文字方塊內的數值自動變更其填充顏色——例如數值介於 1 到 10 之間時顯示紅色，介於 11 到 20 之間時顯示綠色，其餘數值則顯示黃色——請套用下方的 VBA 程式碼來實現此功能。

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

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

使用 VBA 程式碼的螢幕截圖

注意：上述程式碼中，Textbox 1 為您所插入的文字方塊名稱，可依需求調整程式碼中的數值與背景顏色。

2. 接著保存並關閉程式碼視窗，退出設計模式。現在，當您輸入介於 1 與 10 之間的數值時，文字方塊背景會變為紅色；輸入介於 11 與 20 之間的數值時，則會變為綠色；其他數值則顯示黃色，如下圖所示：

根據文字方塊內不同數值顯示不同顏色文字方塊的螢幕截圖

＜

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多