Dynamisk skiftende Arbejdsark fanen Farve

Andrew forstår at ændre farven på faner regneark manuelt. Dog vil han gerne en måde at ændre fanen farve baseret på en værdi i en celle i regnearket.

For at gøre dette, skal du bruge en makro. Det centrale er, at du vil ændre farve ejendom Tab objekt, på denne måde:

ActiveSheet.Tab.Color = vbRed

Logikken du bruger til at komme til det punkt at gøre en sådan farve opgave afhænger af, hvad du vil gøre, og hvornår du ønsker at gøre det. Antages det, at du vil ændre fanen farve baseret på hvad der er i celle A1, kan du bruge en makro som følgende:

Private Sub Worksheet_Change (ByVal destination som Range)
MyVal = Range ("A1"). Text

Med ActiveSheet.Tab
Vælg Case MyVal
Case "0"
.Color = VbBlack
Case "1"
.Color = VbRed
Case "2"
.Color = VbGreen
Case "3"
.Color = VbYellow
Case "4"
.Color = VbBlue
Case "5"
.Color = VbMagenta
Case "6"
.Color = VbCyan
Case "7"
.Color = VbWhite
Case Else
.ColorIndex = XlColorIndexNone
End Select
End med
End Sub

Du skal tilføje makroen til kode for regnearket, hvis fane, du vil ændre. (Højreklik på fanebladet arket s og vælge Vis kode fra genvejsmenuen. Indsæt koden i denne kode vindue). De makro højkant uanset er i celle A1 og derefter bruger en Select Case struktur til at ændre farven på fanen. Logikken ændrer farve, hvis A1 indeholder 0 til 7. Hvis der er noget andet der (eller slet ingenting), så ColorIndex egenskab bruges til at indstille fanen farve tilbage til standard.

Makroen kan ændres, således at det, den tester for er en tekststreng (såsom "Black", "Rød", etc.) eller nogle søgeord (såsom "Lav" eller "Høj"). Du kan også bruge forskellige farve betegnelser med farven ejendom, såsom RGB-funktionen:

.Color = RGB (255, 0, 0)

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (13138) gælder for Microsoft Excel 2007, 2010 og 2013.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com