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:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!