Hoe kunt u de kleur van het bladtabblad wijzigen op basis van een celwaarde?
Normaal gesproken kunt u de tabkleur eenvoudig en snel wijzigen in Excel, maar hebt u ooit geprobeerd om de tabkleur te wijzigen op basis van een celwaarde in een werkblad? Als u geïnteresseerd bent in deze taak, zal ik het hebben over enkele codes waarmee u de bladtab kleur kunt aanpassen op basis van een specifieke celwaarde in Excel.
Kleur van één bladtab wijzigen op basis van celwaarde met VBA-code
Meerdere bladtabs wijzigen op basis van celwaarde met VBA-code
Kleur van één bladtab wijzigen op basis van celwaarde met VBA-code
Bijvoorbeeld, ik wil dat de kleur van het huidige bladtab groen wordt als de celwaarde in A1 de tekst “WAAR” is, de tabkleur rood wordt als de tekst in A1 “ONWAAR” is, en de tabkleur blauw wordt als de waarde in cel A1 elke andere tekst is, zoals in de volgende schermafbeelding te zien is:
1. Klik met de rechtermuisknop op het bladtab dat u wilt wijzigen op basis van de gegevens in cel A1, en kies vervolgens Weergave Code uit het contextmenu.
2. In het Microsoft Visual Basic for Applications-venster kopieert en plakt u de onderstaande VBA-code in het Module-venster.
VBA-code: Kleur van één bladtab wijzigen op basis van 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 is A1 de celverwijzing waarop u de tabkleur wilt baseren, “WAAR”, “ONWAAR” zijn de teksten die u nodig heeft, u kunt ze naar wens wijzigen, en u kunt de kleur in de code naar behoefte aanpassen.
3. Sla vervolgens dit codevenster op en sluit het. Nu, wanneer u de tekst “WAAR” invoert in cel A1, wordt de huidige tabkleur groen, en wanneer u de tekst “ONWAAR” invoert in cel A1, wordt de tabkleur rood. Als er andere tekst wordt ingevoerd in cel A1, wordt de tabkleur automatisch blauw.

Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Meerdere bladtabs wijzigen op basis van celwaarde met VBA-code
Als u meerdere bladtabs kleuren moet wijzigen op basis van een celwaarde, hier is ook een code die u kan helpen, doe het volgende:
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen, dubbelklik in het geopende venster op ThisWorkbook onder de sectie VBAProject, kopieer en plak vervolgens de onderstaande code in het lege Module-venster:
VBA-code: Meerdere bladtabs wijzigen op basis van 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 zijn A1 en Master de cel en het werkblad waarop u de tabkleur wilt baseren, Sheet1, Sheet2, Sheet3 zijn de werkbladen waarvan u de tabs wilt kleuren. KTE, KTW, KTO zijn de celwaarden in A1 waarop u de tabs wilt kleuren, u kunt de verwijzingen en kleuren in de code naar behoefte wijzigen.
2. Sla vervolgens dit codevenster op en sluit het. Nu, wanneer u de tekst KTE invoert in cel A1 van het Master-blad, wordt Sheet1-tab gekleurd in rood, wanneer u KTO invoert in cel A1, wordt Sheet2 gekleurd in groen, en wanneer u KTW invoert in cel A1, wordt Sheet3 gekleurd in blauw, zie schermafbeelding:
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!