寵物集市-寵物集市華東、華南、華北排行榜一覽表
430
2025-04-01
如何根據(jù)單元格值更改工作表標(biāo)簽的顏色？
如何根據(jù)單元格值更改工作表標(biāo)簽的顏色？
通常，您可以在Excel中輕松快速地更改選項(xiàng)卡顏色，但是，您是否曾經(jīng)嘗試過(guò)根據(jù)工作表中的單元格值更改選項(xiàng)卡顏色？ 如果您對(duì)此任務(wù)感興趣，我將為您介紹一些代碼，這些代碼可讓您根據(jù)Excel中的特定單元格值為工作表標(biāo)簽著色。
使用VBA代碼根據(jù)單元格值更改一張標(biāo)簽的顏色
使用VBA代碼根據(jù)單元格值更改多個(gè)工作表標(biāo)簽
使用VBA代碼根據(jù)單元格值更改一張標(biāo)簽的顏色例如，我希望如果A1中的單元格值為文本“ TRUE”，則當(dāng)前工作表標(biāo)簽顏色將為綠色；如果A1中的文本為“ FALSE”，則標(biāo)簽顏色將為紅色；如果A1中的文本為“ FALSE”，則標(biāo)簽顏色將為藍(lán)色。單元格AXNUMX中的值是任何其他文本，如以下屏幕截圖所示：
1。 右鍵單擊要基于單元格A1中的數(shù)據(jù)更改其顏色的工作表選項(xiàng)卡，然后選擇 查看代碼 從上下文菜單。
2。 在 Microsoft Visual Basic應(yīng)用程序 窗口，將下面的VBA代碼復(fù)制并粘貼到 模塊 窗口。
VBA代碼：根據(jù)單元格值更改一種工作表標(biāo)簽的顏色：
Private Sub Worksheet_Change(ByVal Target As Range)
Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
Copy
請(qǐng)注意： 在上面的代碼中， A1 是您要根據(jù)以下選項(xiàng)為標(biāo)簽上色的單元格引用：真“”假”是您需要的文本，您可以根據(jù)需要對(duì)其進(jìn)行更改，還可以根據(jù)需要在代碼中更改顏色。
3。 然后保存并關(guān)閉此代碼窗口，現(xiàn)在，當(dāng)您在單元格A1中輸入文本“ True”時(shí)，當(dāng)前標(biāo)簽頁(yè)顏色將變?yōu)榫G色，而當(dāng)您在單元格A1中輸入文本“ False”時(shí)，標(biāo)簽頁(yè)顏色將變?yōu)榧t色，如果在單元格A1中輸入了其他文本，則標(biāo)簽顏色將自動(dòng)變?yōu)樗{(lán)色。
使用VBA代碼根據(jù)單元格值更改多個(gè)工作表標(biāo)簽
如果您需要根據(jù)單元格值更改多個(gè)工作表標(biāo)簽的顏色，以下代碼也可以為您提供幫助，請(qǐng)執(zhí)行以下操作：
1。 按住 ALT + F11 鍵打開(kāi) Microsoft Visual Basic應(yīng)用程序 窗口，在打開(kāi)的窗口中，雙擊 的ThisWorkbook 在下面 VBA項(xiàng)目 部分，然后將以下代碼復(fù)制并粘貼到空白處 模塊:
VBA代碼：根據(jù)單元格值更改多個(gè)工作表標(biāo)簽：
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
Copy
請(qǐng)注意： 在上面的代碼中， A1 和Master是您要根據(jù)其為標(biāo)簽著色的單元格和工作表， Sheet1, Sheet2, Sheet3 是要為選項(xiàng)卡著色的工作表。 韓國(guó)電信, 韓國(guó)電信, 韓國(guó)旅游發(fā)展局 是您要為標(biāo)簽上色的A1中的單元格值，您可以根據(jù)需要更改代碼中的引用和顏色。
2。 然后保存并關(guān)閉此代碼窗口，現(xiàn)在，當(dāng)您在主表的單元格A1中輸入文本KTE時(shí)，Sheet1選項(xiàng)卡將變?yōu)榧t色，當(dāng)您在單元格A1中輸入KTO時(shí)，Sheet2將變?yōu)榫G色，并且當(dāng)在單元格A1中輸入KTW時(shí)，Sheet3將變?yōu)樗{(lán)色，請(qǐng)參見(jiàn)屏幕截圖：
最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過(guò) 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級(jí)功能，可簡(jiǎn)化您在 1500 多種場(chǎng)景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級(jí)數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時(shí)，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪問(wèn)各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過(guò)強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢(shì)。
?? 七種類型的下拉列表：通過(guò)各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對(duì)于初學(xué)者來(lái)說(shuō)輕而易舉，對(duì)于專家來(lái)說(shuō)是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購(gòu)...
Office Tab 為 Office 帶來(lái)選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開(kāi)并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購(gòu)...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
