Kako spremeniti barvo zavihka lista na podlagi vrednosti celice?
Običajno lahko v Excelu enostavno in hitro spremenite barvo zavihka, vendar, ali ste kdaj poskusili spremeniti barvo zavihka glede na vrednost celice na delovnem listu? Če vas ta naloga zanima, bom spregovoril o nekaterih kodah, s katerimi boste zavihek lista obarvali glede na določeno vrednost celice v Excelu.
S kodo VBA spremenite barvo zavihka enega lista glede na vrednost celice
Spremenite zavihke več listov glede na vrednost celice s kodo VBA
S kodo VBA spremenite barvo zavihka enega lista glede na vrednost celice
Na primer, želim, da je trenutna barva zavihka lista zelena, če je vrednost celice v A1 besedilo "TRUE", barva zavihka bo rdeča, če je besedilo v A1 "FALSE", barva zavihka pa modra, če vrednost v celici A1 je katero koli drugo besedilo, kot je prikazano na sliki spodaj:
1. Z desno miškino tipko kliknite zavihek lista, za katerega želite spremeniti barvo na podlagi podatkov v celici A1, in nato izberite Ogled kode iz kontekstnega menija.
2. v Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v Moduli okno.
Koda VBA: Spremenite barvo zavihka enega lista glede na vrednost celice:
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
Opomba: V zgornji kodi je A1 je referenca celice, na katero želite pobarvati zavihek, "True""False"So besedilo, ki ga potrebujete, lahko ga spremenite po potrebi in lahko spremenite barvo kode, kot jo potrebujete.
3. Nato shranite in zaprite to okensko okno. Ko v celico A1 vnesete besedilo »True«, bo trenutna barva zavihka postala zelena, in ko v celico A1 vnesete besedilo »False«, bo barva zavihka postala rdeča, in če v celico A1 vnesemo drugo besedilo, bo barva zavihka samodejno postala modra.
Spremenite zavihke več listov glede na vrednost celice s kodo VBA
Če morate spremeniti barvo zavihkov več listov glede na vrednost celice, tukaj je tudi koda, ki vam lahko pomaga, naredite naslednje:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno, v odprtem oknu dvokliknite Ta delovni zvezek pod VBAProject kopirajte in prilepite spodnjo kodo v prazno Moduli:
Koda VBA: Spremenite zavihke več listov glede na vrednost celice:
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
Opomba: V zgornji kodi je A1 in Master sta celica in delovni list, na katerih želite pobarvati zavihek, Sheet1, Sheet2, Sheet3 so delovni listi, za katere želite obarvati zavihke. KTE, KTW, WHO so vrednosti celic v A1, na katerih želite obarvati zavihke, lahko spremenite sklice in barve v kodi, kot želite.
2. Nato shranite in zaprite to okensko okno. Ko vnesete besedilo KTE v celico A1 glavnega lista, bo zavihek Sheet1 obarvan rdeče, ko vnesete KTO v celico A1, bo Sheet2 obarvan zeleno in ko če v celico A1 vnesete KTW, bo Sheet3 obarvan v modro, glejte posnetek zaslona:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!