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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

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!

Preberite več ... Brezplačen prenos... Nakup ...