Wie ändere ich die Farbe der Blattregisterkarte basierend auf dem Zellenwert?
Normalerweise können Sie die Registerkartenfarbe in Excel einfach und schnell ändern. Haben Sie jemals versucht, die Registerkartenfarbe basierend auf dem Zellenwert in einem Arbeitsblatt zu ändern? Wenn Sie an dieser Aufgabe interessiert sind, werde ich einige Codes erläutern, mit denen Sie die Registerkarte "Blatt" basierend auf einem bestimmten Zellenwert in Excel einfärben können.
Ändern Sie die Farbe einer Blattregisterkarte basierend auf dem Zellenwert mit VBA-Code
Ändern Sie mehrere Blattregisterkarten basierend auf dem Zellenwert mit VBA-Code
Ändern Sie die Farbe einer Blattregisterkarte basierend auf dem Zellenwert mit VBA-Code
Ich möchte beispielsweise, dass die aktuelle Tabulatorfarbe grün ist, wenn der Zellenwert in A1 der Text „TRUE“ ist, die Tabulatorfarbe rot ist, wenn der Text in A1 „FALSE“ ist, und die Tabulatorfarbe blau ist, wenn Der Wert in Zelle A1 ist ein beliebiger anderer Text, wie im folgenden Screenshot gezeigt:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte "Blatt", deren Farbe Sie basierend auf den Daten in Zelle A1 ändern möchten, und wählen Sie dann Code anzeigen in dem Kontextmenü.
2. In dem Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein Modul Fenster.
VBA-Code: Ändern Sie die Farbe einer Blattregisterkarte basierend auf dem Zellenwert:
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
Hinweis: In dem obigen Code, A1 ist die Zellreferenz, auf der Sie die Registerkarte basierend auf „Wahre", "falsch”Sind der Text, den Sie benötigen, können Sie ihn nach Bedarf ändern und die Farbe im Code nach Bedarf ändern.
3. Speichern und schließen Sie dieses Codefenster. Wenn Sie jetzt in Zelle A1 den Text „True“ eingeben, wird die aktuelle Registerkartenfarbe grün, und wenn Sie in Zelle A1 den Text „False“ eingeben, wird die Registerkartenfarbe rot. und wenn anderer Text in die Zelle A1 eingegeben wird, wird die Registerkartenfarbe automatisch blau.
Ändern Sie mehrere Blattregisterkarten basierend auf dem Zellenwert mit VBA-Code
Wenn Sie die Farbe mehrerer Blattregisterkarten basierend auf einem Zellenwert ändern müssen, kann Ihnen auch ein Code helfen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Doppelklicken Sie im geöffneten Fenster DiesesWorkbook unter dem VBAProjekt Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Feld ein Modul:
VBA-Code: Ändern Sie mehrere Blattregisterkarten basierend auf dem Zellenwert:
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
Hinweis: In dem obigen Code, A1 und Master sind die Zelle und das Arbeitsblatt, auf denen Sie die Registerkarte basierend auf färben möchten. Sheet1, Sheet2, Sheet3 sind die Arbeitsblätter, mit denen Sie die Registerkarten einfärben möchten. KTE, KTW, KTO Sind die Zellenwerte in A1, auf denen Sie die Registerkarten einfärben möchten, können Sie die Referenzen und Farben im Code nach Bedarf ändern.
2. Speichern und schließen Sie dann dieses Codefenster. Wenn Sie jetzt den Text KTE in Zelle A1 des Master-Blattes eingeben, wird die Registerkarte Blatt1 rot gefärbt, wenn Sie KTO in Zelle A1 eingeben, wird das Blatt2 grün gefärbt und wann Wenn Sie KTW in Zelle A1 eingeben, wird das Blatt 3 blau gefärbt, siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!