Hur ändrar jag arkflikens färg baserat på cellvärdet?

Normalt kan du ändra flikfärgen enkelt och snabbt i Excel, men har du någonsin försökt ändra flikfärgen baserat på cellvärdet i ett kalkylblad? Om du är intresserad av den här uppgiften kommer jag att prata om några koder som du kan färga arkfliken baserat på ett specifikt cellvärde i Excel.

Ändra en arkfärgsfärg baserat på cellvärde med VBA-kod

Ändra flera arkflikar baserat på cellvärde med VBA-kod

Ändra en arkfärgsfärg baserat på cellvärde med VBA-kod

Jag vill till exempel att den aktuella flikfärgen på arket ska vara grön om cellvärdet i A1 är texten "SANT", flikfärgen blir röd om texten i A1 är "FALSK" och flikfärgen blir blå om värdet i cell A1 är någon annan text som följande skärmdump visas:

1. Högerklicka på arkfliken som du vill ändra färg baserat på data i cell A1 och välj sedan Visa kod från snabbmenyn.

2. I Microsoft Visual Basic för applikationer , kopiera och klistra in nedanstående VBA-kod i Modulerna fönster.

VBA-kod: Ändra en arkflikfärg baserat på cellvärde:

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

Notera: I ovanstående kod, A1 är cellreferensen som du vill färga fliken baserat på, “Sant","Falsk”Är texten du behöver, du kan ändra dem till ditt behov och du kan ändra färgen i koden som du behöver.

3. Spara och stäng sedan det här kodfönstret, nu när du anger texten "True" i cell A1 blir den aktuella flikfärgen grön och när du anger texten "False" i cell A1 blir flikfärgen röd, och om annan text matas in i cellen A1 blir flikfärgen automatiskt blå.

Ändra flera arkflikar baserat på cellvärde med VBA-kod

Om du behöver ändra flera arkflikfärger baserat på ett cellvärde, här är också en kod som kan hjälpa dig, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer dubbelklicka i det öppnade fönstret Denna arbetsbok under VBAProjekt kopiera och klistra sedan in koden nedan i tomt Modulerna:

VBA-kod: Ändra flera arkflikar baserat på cellvärde:

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

Notera: I ovanstående kod, A1 och Master är cellen och kalkylbladet som du vill färga fliken baserat på, Sheet1, Sheet2, Sheet3 är de kalkylblad som du vill färga flikarna. KTE, Ktw, KTO är cellvärdena i A1 som du vill färga flikarna baserat på, kan du ändra referenser och färger i koden efter behov.

2. Spara och stäng sedan det här kodfönstret, nu när du anger texten KTE i cell A1 i huvudarket, kommer fliken Blad1 att färgas i rött, när du anger KTO i cellen A1, kommer Blad2 att färgas i grönt och när du anger KTW i cell A1, kommer Sheet3 att färgas i blått, se skärmdump:

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

• Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
• Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
• Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Läs mer... Gratis nedladdning... Köp...