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-codeIk 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-codeAls 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:
