Note: The other languages of the website are Google-translated. Back to English

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


pijl blauw rechts bel 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:

doc kleurenblad op waarde 1

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

doc kleurenblad op waarde 2

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.


pijl blauw rechts bel 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

doc kleurenblad op waarde 3

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:

doc kleurenblad op waarde 4


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.
kte tabblad 201905

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!
officetab onderkant
Heb je vragen? Stel ze hier. (23)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Geachte heer.
help me vriendelijk om de kleur van de bladtab te wijzigen op basis van datum / dag.

voor bijv.:-
als blad nr. 1 zondag is dan - bladtab 'ROOD'
als blad nr. 2 maandag is dan - bladtab 'Groen'
als blad nr. 3 dinsdag is dan - bladtab 'Groen'
als blad nr. 4 woensdag is dan - bladtab 'Groen'
als blad nr. 5 donderdag is dan - bladtab 'Groen'
als blad nr. 6 vrijdag is, dan - bladtab 'Groen'
als blad nr. 7 zaterdag is dan - bladtab 'Groen'

help me vriendelijk voor het bovenstaande Excel-probleem.

Bedankt en groeten
Faiz Ibn Uvaiz P.
Deze opmerking is gemaakt door de moderator op de site
Je beschrijving is een beetje vaag over wat je eigenlijk probeert te doen. Als de werkmap maar voor een week is, kleurt u de tabbladen. Als de duur langer is dan een week, dan is de oplossing iets complexer. Totdat u het probleem gedetailleerd beschrijft, zijn er verschillende oplossingen beschikbaar. Ik, en veel mensen, zullen onze tijd niet besteden aan het gratis coderen van 2,000 oplossingen voor u. Maar je beschrijft het probleem dat we misschien 1 oplossing bieden.
Deze opmerking is gemaakt door de moderator op de site
hoe kan ik de kleur van een tabblad wijzigen, afhankelijk van het weer, een reeks cellen bevat tekst
Deze opmerking is gemaakt door de moderator op de site
De formule werkt voor 'True' - bladtab is ROOD, dus dat is geweldig, maar als ik het verander van 'True' in 'False', wil ik dat de bladtab 'geen kleur' ​​heeft. Wat is de formule voor geen kleur op de bladtab als 'True' niet is geselecteerd? Ook als ik wil dat de formule voor een groep cellen is, bijvoorbeeld. A1:A30 wat is de code die ik gebruik?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Shannon:
De volgende VBA-code kan je een plezier doen, probeer het alsjeblieft:

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xRg als bereik
Stel xRg = Intersect (Doel, Bereik ("A1:A30")) in
Als xRg niets is, sluit dan Sub af
Selecteer Case Target.Value
Case "True"
Me.Tab.Color = vbRed
Geval "Onwaar"
Me.Tab.Color = Onwaar
End Select
End Sub

Hoop dat dit je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om de tabkleur te laten veranderen op basis van het volgende: Ik heb een hoofdtabblad waar rijen 3-7 blauw gekleurd zijn en corresponderen met de corresponderende tabbladen 3-7 (die een naam hebben op basis van celwaarden in de master in die rijen) die ik graag blauw gekleurd wil hebben. Dan zijn rijen 8-12 groen gekleurd en komen ook overeen met tabbladen 8-12 enzovoort.
Deze opmerking is gemaakt door de moderator op de site
Dat was een geweldige truc.
Ik heb de tabkleur gekoppeld op basis van de waarde van cel A1 (<>0 ROOD en =0 Groen), maar de macro wordt alleen uitgevoerd als ik A1 selecteer, druk op F2 en druk vervolgens op enter. Zonder dit te doen, hoewel de kleur van het tabblad (gebaseerd op de waarde ervan) rood zou moeten zijn, maar groen blijft.
Ik gebruik Excel 2007.
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om dit te laten werken wanneer cel A1 alle 3 de antwoorden op afzonderlijke regels in de cel kan hebben? Dat wil zeggen dat KTE, KTO en KTW allemaal aanwezig zijn in de cel omdat het meerdere selecties uit een vervolgkeuzelijst mogelijk maakt.
Deze opmerking is gemaakt door de moderator op de site
Ik probeer die code te gebruiken en toe te passen op een selectievakje, dus als ik het vakje aanvink, verandert de kleur, als ik het uitschakel, verandert het terug (ik heb true=green, false=red, else=red) . Maar als ik het aan- en uitvink, krijg ik een foutmelding 'object nodig'


Private Sub CheckBox1_Click ()
_____If Target.Address = "$e$5" Dan 'fout hier'
__________Selecteer Case Target.Value
__________ Case "Onwaar"
_______________Me.Tab.Color = vbRed
__________ Case "Waar"
_______________Me.Tab.Color = vbGreen
__________Case Anders
_______________Me.Tab.Color = vbRed
__________Einde Selectie
_____Stop als
End Sub

Ik heb het gekopieerd en geplakt om het te zien werken en het vervolgens aan te passen aan mijn behoefte, maar ik zou geen manier vinden om het te laten werken.
Deze opmerking is gemaakt door de moderator op de site
Beste collega's,
Vraag gerust om hulp. Ik moet de kleur van de bladtab wijzigen op basis van de waarde in formaat [h]:mm. Als de waarde bijvoorbeeld lager is dan 20:00 - rood, >20:00 groen.
Bedankt en groeten!
Deze opmerking is gemaakt door de moderator op de site
Beste collega's,
Vraag gerust om hulp. Ik moet de kleur van de bladtab wijzigen op basis van de waarde in formaat [h]:mm. Als de waarde bijvoorbeeld lager is dan 20:00 - rood, >20:00 groen.
Bedankt en groeten!
Deze opmerking is gemaakt door de moderator op de site
Hallo Victor,
De onderstaande VBA-code kan uw probleem oplossen, probeer het alstublieft, ik hoop dat het u kan helpen!

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xStr als tekenreeks
Dim xSN als string
Dim xDate als string
Dim xAdres als string
Dim xArr() als tekenreeks
Dim xI1 Als geheel getal
Dim xSM als string
xDatum = "20:00"
xAdres = "$A$1"
Als Target.Address <> xAddress Dan Sub afsluiten
xStr = Doel.Tekst
xArr = Splitsen(xStr, ":")
Als (UBound(xArr) - LBound(xArr) + 1) > 2 Sluit dan Sub af
xI1 = Int(xArr(0))
Als (Len(xArr(0)) - 2) < 1 Dan
Als xI1 > 23 Sluit dan Sub af
Anders
Exit Sub
End If
xSM = xArr(1)
Bij fout Ga naar Err01
Als (Len(xSM) - 2) <> 0 Dan Sub afsluiten
Als Int(Links(xSM, 1)) > 5 Sluit dan Sub af
Als Int(Rechts(xSM, 1)) > 10 Sluit dan Sub af
Als xI1 >= 20 Dan
Me.Tab.Color = vbGreen
Anders
Me.Tab.Color = vbRed
End If
Fout01:
End Sub
Deze opmerking is gemaakt door de moderator op de site
Beste Skyyang,
Sorry voor de te late feedback. Deze formule werkt wanneer ik de waarde in de cel handmatig wijzig. Maar dat was niet wat ik nodig had.
De celwaarde is het resultaat van een formule uit verschilbladen. Dit is bijvoorbeeld de formule in de cel "O13-'520'!AD3". Dit betekent dat de waarde in deze cel verandert, afhankelijk van de waarde van de eerbiedige cel in het eerbiedige blad. Wat ik nodig heb, is dat de bladkleur automatisch wordt gewijzigd wanneer de waarde in cel "O13-'520'!AD3" wordt gewijzigd, wanneer de waarde in de cel "O13-'520'!AD3" lager is dan 05:00 - rood , >20:00 groen, tussen 05:00 en 20:00 bruin.
Alvast bedankt en beste wensen!
Deze opmerking is gemaakt door de moderator op de site
Hallo allemaal, hoe verander ik de tabkleur op basis van een bepaalde waarde in de kolom van de meerdere bladen? Bedankt
Deze opmerking is gemaakt door de moderator op de site
Hoe zou je het tabblad koppelen aan een waarde in een ander tabblad. In mijn voorbeeld heb ik één tabblad met alle informatie die automatisch naar verschillende tabbladen wordt gefilterd. Elk tabblad wordt echter groen of rood weergegeven, afhankelijk van of er een saldo op het hoofdtabblad staat. Kan dit met deze code en zo ja, waar schrijf ik de link naar het hoofdblad in deze code?
Deze opmerking is gemaakt door de moderator op de site
Hallo,

Nog nooit code in Excel gedaan. Ik heb een code nodig die doet wat deze code doet, maar ik heb een andere parameter nodig.

Dus wat ik nodig heb is:

Als de celwaarde niet 0 is en/of als een andere cel getallen bevat, gebruik dan tellen en verander de kleur in rood

Als de celwaarde 0 is en die andere cellen leeg zijn, gebruik dan telling en verander de kleur in groen
Deze opmerking is gemaakt door de moderator op de site
Hallo, Ik heb geprobeerd om de kleur van het tabblad te veranderen op basis van de waarde op een apart blad met de naam Tracking hier, maar het lijkt niet te werken. Bedankt




Particulier subwerkblad_Wijziging (ByVal-doel als bereik)

'Bijwerken door' Extendoffice 20160930

Als Target.Address = "Tracking!$C$2" Dan

Selecteer Case Target.Value

Geval "ip"

Me.Tab.Color = vbRed

Zaak "w"

Me.Tab.Color = vbGeel

Geval "c"

Me.Tab.Color = vbGreen

Case Else

Me.Tab.Color = vbBlue

End Select

End If

End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, Brad,
Om de code correct te laten werken, moet u de bladnaam niet in de code invoegen, gelieve de volgende code te gebruiken: (klik op de bladnaam waarop u deze code wilt uitvoeren en klik vervolgens met de rechtermuisknop op de bladnaam en kies Code weergeven, dan plak de code in de module)

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)

'Bijwerken door' Extendoffice 20160930

Als Target.Address = "$C$2" Dan

Selecteer Case Target.Value

Geval "ip"

Me.Tab.Color = vbRed

Zaak "w"

Me.Tab.Color = vbGeel

Geval "c"

Me.Tab.Color = vbGreen

Case Else

Me.Tab.Color = vbBlue

End Select

End If

End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Ik wil de kleur van het tabblad wijzigen op basis van een van de 2 uitkomsten van een formule. Ik heb een formule van =IF((AND(AA1="Bezet",AA2="Bezet",AA3="Bezet",AA4=" Bezet")),"Bezet","Vrij")
Ik wil dat het tabblad rood is als "Bezet" en groen is als "Vrij". De code hierboven in de hoofdpost herkent echter niet de uitvoer van de If Than
Deze opmerking is gemaakt door de moderator op de site
Hallo,
Ik heb wat hulp nodig
Ik hoef de kleur van de bladtab alleen te wijzigen als deze in een bepaald cellenbereik de datum van vandaag heeft
Zeg bijvoorbeeld
Kolom L heeft enkele datums in het formaat (13-mei-22)
Een van de celwaarden is de datum van vandaag, dan moet de kleur van het tabblad veranderen in rood
Help alstublieft
Dank u bij voorbaat
Deze opmerking is gemaakt door de moderator op de site
Ik zou graag willen dat mijn tabblad van kleur verandert als een cel in kolom O of kolom P een waarde bevat. Is dit mogelijk?

Dank je!
Deze opmerking is gemaakt door de moderator op de site
Ik wil de bladtabkleur instellen op basis van de kleur van cel j4 in elk blad. Er zijn 18+ tabbladen en u wilt de tabbladkleuren bijwerken wanneer de werkmap wordt geopend. Als ik bij het openen niet kan updaten, kan ik de macro uitvoeren nadat de teams de bladen hebben bijgewerkt.
Deze opmerking is gemaakt door de moderator op de site
Hallo, hout
Gebruik de onderstaande code om uw probleem op te lossen: (Opmerking:: Kopieer en plak de onderstaande code in de Dit Werkboek codemodus)
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call SetSheetColor
End Sub

Private Sub Workbook_Open()
Call SetSheetColor
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SetSheetColor
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call SetSheetColor
End Sub

Sub SetSheetColor()
Dim xWShs As Sheets
Dim xRg As Range
Dim xFNum As Integer
Dim xSh As Worksheet
On Error Resume Next
Set xWShs = Application.ActiveWorkbook.Sheets
For xFNum = 1 To xWShs.Count
    Set xSh = xWShs.Item(xFNum)
    Set xRg = xSh.Range("J4")
    xSh.Tab.Color = xRg.Interior.Color
Next
End Sub


https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-color-sheet.png

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL