Hoe verander ik de bladtabkleur op basis van de celwaarde?

Normaal gesproken kunt u de tabbladkleur eenvoudig en snel wijzigen in Excel, maar heeft u ooit geprobeerd de tabbladkleur te wijzigen op basis van de celwaarde in een werkblad? Als u geïnteresseerd bent in deze taak, zal ik het hebben over enkele codes waarmee u de bladtab kunt kleuren op basis van een specifieke celwaarde in Excel.

Wijzig de kleur van een bladtabblad op basis van de celwaarde met VBA-code

Wijzig meerdere bladtabbladen op basis van de celwaarde met VBA-code

Wijzig de kleur van een bladtabblad op basis van de celwaarde met VBA-code

Ik wil bijvoorbeeld dat de huidige bladtabkleur groen is als de celwaarde in A1 de tekst 'TRUE' is, de tabkleur rood als de tekst in A1 'FALSE' is en de tabkleur blauw als de waarde in cel A1 is elke andere tekst zoals in het volgende screenshot wordt getoond:

1. Klik met de rechtermuisknop op de bladtab waarvan u de kleur wilt wijzigen op basis van de gegevens in cel A1 en kies vervolgens Bekijk code vanuit het contextmenu.

2. In de Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code in het Module venster.

VBA-code: verander de kleur van een bladtab op basis van de celwaarde:

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

Opmerking: In de bovenstaande code, A1 is de celverwijzing waarop u het tabblad wilt kleuren op basis van, "Waar","Niet waar”Zijn de tekst die je nodig hebt, je kunt ze naar wens aanpassen en je kunt de kleur van de code naar behoefte wijzigen.

3. Sla vervolgens dit codevenster op en sluit het. Wanneer u nu de tekst "True" invoert in cel A1, wordt de huidige tabbladkleur groen en wanneer u de tekst "False" invoert in cel A1, wordt de tabbladkleur rood, en als andere tekst wordt ingevoerd in cel A1, wordt de tabkleur automatisch blauw.

Wijzig meerdere bladtabbladen op basis van de celwaarde met VBA-code

Als u de kleur van meerdere bladtabbladen moet wijzigen op basis van een celwaarde, kan hier ook een code worden gebruikt, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster, dubbelklik in het geopende venster Dit Werkboek onder de VBA-project sectie, kopieer en plak vervolgens de onderstaande code in de lege ruimte Module:

VBA-code: wijzig meerdere bladtabbladen op basis van de celwaarde:

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

Opmerking: In de bovenstaande code, A1 en Master zijn de cel en het werkblad waarop u het tabblad wilt kleuren op basis van, Sheet1, Sheet2, Sheet3 zijn de werkbladen waarvan u de tabbladen wilt kleuren. KTE, KTW, KTO zijn de celwaarden in A1 waarop u de tabbladen wilt kleuren op basis van, u kunt de verwijzingen en kleuren in de code naar behoefte wijzigen.

2. Sla vervolgens dit codevenster op en sluit het. Wanneer u de tekst KTE invoert in cel A1 van het hoofdblad, wordt het tabblad Blad1 rood gekleurd, wanneer u KTO invoert in cel A1, wordt Blad2 groen gekleurd, en wanneer je voert KTW in cel A1 in, de Sheet3 wordt blauw gekleurd, zie screenshot:

---

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Lees verder... Gratis download... Aankoop...