Hoe wijzigt u de kleur van een werkbladtab op basis van de waarde in een cel?
Normaal gesproken wijzigt u de tabkleur in Excel eenvoudig en snel, maar heeft u ooit geprobeerd de tabkleur te veranderen op basis van een celwaarde in een werkblad? Als u deze taak interessant vindt, bespreek ik enkele codes waarmee u de kleur van de werkbladtab kunt instellen aan de hand van een specifieke celwaarde in Excel.
Wijzig de kleur van één werkbladtab op basis van een celwaarde met VBA-code
Wijzig meerdere Bladtabs op basis van een celwaarde met VBA-code
Wijzig de kleur van één werkbladtab op basis van een celwaarde met VBA-code
Stel dat ik wil dat de kleur van het Huidig werkblad-tabblad groen wordt als de celwaarde in A1 de tekst „TRUE” is, rood wordt als de tekst in A1 „FALSE” is, en blauw wordt als de waarde in cel A1 een andere tekst bevat, zoals in de volgende schermafbeelding wordt weergegeven:
1. Klik met de rechtermuisknop op het werkbladtabblad waarvan u de kleur wilt wijzigen op basis van de gegevens in cel A1 en kies vervolgens Code weergeven in het contextmenu.
2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code in het Module-venster.
VBA-code: Wijzig de kleur van één werkbladtab op basis van een 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 op basis waarvan u de tabkleur wilt instellen. „True” en „False” zijn de teksten die u nodig hebt; u kunt deze naar wens aanpassen, net als de kleuren in de code.
3. Sluit het codevenster met Opslaan en sluiten. Zodra u „True” in cel A1 typt, wordt de huidige tabbladkleur groen; bij „False” in cel A1 wordt deze rood, en bij elke andere tekst in cel A1 automatisch blauw.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Wijzig meerdere Bladtabs op basis van een celwaarde met VBA-code
Als u de kleur van meerdere bladtabs wilt aanpassen op basis van een celwaarde, helpt de volgende code u daarbij. Volg hiervoor de onderstaande stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen. Dubbelklik in het geopende venster op ThisWorkbook onder het gedeelte VBAProject en plak de onderstaande code in de lege Module:
VBA-code: Wijzig meerdere Bladtabs op basis van een 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 op basis waarvan u de tabkleur instelt. Sheet1, Sheet2 en Sheet3 zijn de werkbladen waarvan u de tabbladen wilt kleuren. KTE, KTW en KTO zijn de celwaarden in A1 op basis waarvan u de tabbladen wilt kleuren. U kunt de verwijzingen en kleuren in de code naar wens aanpassen.
2. Sluit het codevenster met Opslaan en sluiten. Zodra u de tekst KTE invoert in cel A1 van het Master-werkblad, wordt het tabblad Sheet1 rood; bij invoer van KTO in cel A1 wordt Sheet2 groen, en bij invoer van KTW in cel A1 wordt Sheet3 blauw. Zie de schermafbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins