Jak změnit barvu záložky listu na základě hodnoty buňky?
Za normálních okolností můžete snadno a rychle změnit barvu karty v aplikaci Excel, ale pokusili jste se někdy změnit barvu karty na základě hodnoty buňky v listu? Pokud vás tento úkol zajímá, promluvím si o některých kódech, které vám umožní zabarvit kartu listu na základě konkrétní hodnoty buňky v aplikaci Excel.
Změňte barvu karty jednoho listu na základě hodnoty buňky pomocí kódu VBA
Změňte více záložek listů na základě hodnoty buňky pomocí kódu VBA
Změňte barvu karty jednoho listu na základě hodnoty buňky pomocí kódu VBA
Například chci, aby aktuální barva záložky listu byla zelená, pokud hodnota buňky v A1 je text „TRUE“, barva záložky bude červená, pokud je text v A1 „FALSE“, a barva záložky bude modrá, pokud hodnota v buňce A1 je jakýkoli jiný text, jak ukazuje následující snímek obrazovky:
1. Klikněte pravým tlačítkem na kartu listu, kterou chcete změnit na základě dat v buňce A1, a poté vyberte Zobrazit kód z kontextové nabídky.
2. V Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte níže uvedený kód VBA do Modul okno.
Kód VBA: Změňte barvu karty jednoho listu na základě hodnoty buňky:
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
Poznámka: Ve výše uvedeném kódu A1 je odkaz na buňku, podle kterého chcete kartu obarvit, “Pravdivý","Falešný„Jsou text, který potřebujete, můžete je podle potřeby změnit a barvu kódu můžete změnit podle potřeby.
3. Poté uložte a zavřete toto okno s kódem, nyní, když v buňce A1 zadáte text „True“, aktuální barva záložky se změní na zelenou a když do buňky A1 zadáte text „False“, barva záložky se změní na červenou, a pokud do buňky A1 zadáte další text, barva záložky se automaticky změní na modrou.
Změňte více záložek listů na základě hodnoty buňky pomocí kódu VBA
Pokud potřebujete změnit barvu záložek více listů na základě hodnoty buňky, zde je také kód, který vám může pomoci, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno, v otevřeném okně poklepejte Tato pracovní kniha pod Projekt VBA části a poté zkopírujte a vložte níže uvedený kód do mezery Modul:
Kód VBA: Změňte více karet listů na základě hodnoty buňky:
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
Poznámka: Ve výše uvedeném kódu A1 a Master jsou buňka a list, podle kterých chcete kartu obarvit, Sheet1, Sheet2, Sheet3 jsou listy, kterými chcete zabarvit karty. KTE, KTW, KTO jsou hodnoty buněk v A1, podle kterých chcete barvy karet upravit, můžete podle potřeby změnit odkazy a barvy v kódu.
2. Poté uložte a zavřete toto okno s kódem, nyní, když zadáte text KTE do buňky A1 hlavního listu, bude karta List1 zbarvena červeně, když zadáte KTO do buňky A1, bude List2 zbarven zeleně a kdy zadáte KTW do buňky A1, bude list3 zbarven modře, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!