如何根據單元格值更改工作表標簽的顏色？

通常，您可以在Excel中輕松快速地更改選項卡顏色，但是，您是否曾經嘗試過根據工作表中的單元格值更改選項卡顏色？ 如果您對此任務感興趣，我將為您介紹一些代碼，這些代碼可讓您根據Excel中的特定單元格值為工作表標簽著色。

使用VBA代碼根據單元格值更改一張標簽的顏色

使用VBA代碼根據單元格值更改多個工作表標簽

使用VBA代碼根據單元格值更改一張標簽的顏色

例如，我希望如果A1中的單元格值為文本“ TRUE”，則當前工作表標簽顏色將為綠色；如果A1中的文本為“ FALSE”，則標簽顏色將為紅色；如果A1中的文本為“ FALSE”，則標簽顏色將為藍色。單元格AXNUMX中的值是任何其他文本，如以下屏幕截圖所示：

1。 右鍵單擊要基于單元格A1中的數據更改其顏色的工作表選項卡，然后選擇 查看代碼 從上下文菜單。

2。 在 Microsoft Visual Basic應用程序 窗口，將下面的VBA代碼復制并粘貼到 模塊 窗口。

VBA代碼：根據單元格值更改一種工作表標簽的顏色：

Private Sub Worksheet_Change(ByVal Target As Range)Updateby ExtendofficeIf Target.Address = "$A$1" ThenSelect Case Target.ValueCase "False"Me.Tab.Color = vbRedCase "True"Me.Tab.Color = vbGreenCase ElseMe.Tab.Color = vbBlueEnd SelectEnd IfEnd SubCopy

請注意： 在上面的代碼中， A1 是您要根據以下選項為標簽上色的單元格引用：真“”假”是您需要的文本，您可以根據需要對其進行更改，還可以根據需要在代碼中更改顏色。

3。 然后保存并關閉此代碼窗口，現在，當您在單元格A1中輸入文本“ True”時，當前標簽頁顏色將變為綠色，而當您在單元格A1中輸入文本“ False”時，標簽頁顏色將變為紅色，如果在單元格A1中輸入了其他文本，則標簽顏色將自動變為藍色。

使用VBA代碼根據單元格值更改多個工作表標簽

如果您需要根據單元格值更改多個工作表標簽的顏色，以下代碼也可以為您提供幫助，請執行以下操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口，在打開的窗口中，雙擊 的ThisWorkbook 在下面 VBA項目 部分，然后將以下代碼復制并粘貼到空白處 模塊:

VBA代碼：根據單元格值更改多個工作表標簽：

Option ExplicitPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)Updateby Extendoffice 20160930Select Case Sheets("Master").Range("A1").ValueCase "KTE"Sheets("Sheet1").Tab.Color = vbRedCase "KTO"Sheets("Sheet2").Tab.Color = vbGreenCase "KTW"Sheets("Sheet3").Tab.Color = vbBlueEnd SelectEnd SubCopy

請注意： 在上面的代碼中， A1 和Master是您要根據其為標簽著色的單元格和工作表， Sheet1, Sheet2, Sheet3 是要為選項卡著色的工作表。 韓國電信, 韓國電信, 韓國旅游發展局 是您要為標簽上色的A1中的單元格值，您可以根據需要更改代碼中的引用和顏色。

2。 然后保存并關閉此代碼窗口，現在，當您在主表的單元格A1中輸入文本KTE時，Sheet1選項卡將變為紅色，當您在單元格A1中輸入KTO時，Sheet2將變為綠色，并且當在單元格A1中輸入KTW時，Sheet3將變為藍色，請參見屏幕截圖：

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel