Hogyan lehet megváltoztatni a lap fülének színét a cella értéke alapján?
Normál esetben az tabulátor színét könnyen és gyorsan megváltoztathatja az Excel programban, de megpróbálta már megváltoztatni a tabulátor színét a munkalap cellájának értéke alapján? Ha érdekel ez a feladat, akkor beszélek néhány kódról, amelyekkel kiszínezheti a lapfület az Excel adott cellájának értéke alapján.
Változtassa meg az egyik lap fülének színét a cella értéke alapján, VBA kóddal
VBA kóddal több cellalapot módosíthat a cellaérték alapján
Változtassa meg az egyik lap fülének színét a cella értéke alapján, VBA kóddal
Például azt akarom, hogy az aktuális lapfül színe zöld legyen, ha az A1 cellájának értéke „IGAZ”, a tabulátor színe piros lesz, ha az A1 szövege „HAMIS”, és a fül színe kék lesz, ha az A1 cella értéke bármely más szöveg, a következő képernyőképen:
1. Kattintson a jobb gombbal azon a lapfülön, amelynek a színét az A1 cellában szereplő adatok alapján szeretné megváltoztatni, majd válassza a lehetőséget Kód megtekintése a helyi menüből.
2. Az Microsoft Visual Basic for Applications ablakba másolja és illessze be az alábbi VBA kódot a Modulok ablak.
VBA kód: Az egyik lap fülének módosítása a cella értéke alapján:
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
Jegyzet: A fenti kódban A1 az a cellahivatkozás, amely alapján a lapot színezni szeretné,Igaz","Hamis”Az a szöveg, amelyre szüksége van, megváltoztathatja azokat az igényeinek megfelelően, és szükség szerint megváltoztathatja a kód színét.
3. Ezután mentse el és zárja be ezt a kódablakot. Most, amikor beírja az „Igaz” szöveget az A1 cellába, az aktuális fül színe zöld színűvé válik, és amikor az „Hamis” szöveget írja be az A1 cellába, a fül színe pirosra vált, és ha más szöveget ír be az A1 cellába, a fül színe automatikusan kék lesz.
VBA kóddal több cellalapot módosíthat a cellaérték alapján
Ha több lapfül színét kell megváltoztatnia egy cellaérték alapján, itt egy kód is segíthet, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak, a megnyílt ablakban kattintson duplán Ez a munkafüzet alatt a VBAProject szakaszban, majd másolja és illessze be az alábbi kódot az üresbe Modulok:
VBA-kód: Több lap fülének módosítása a cella értéke alapján:
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
Jegyzet: A fenti kódban A1 és a Mester az a cella és munkalap, amelyek alapján a lapot színezni szeretné, Sheet1, Sheet2, Sheet3 azok a munkalapok, amelyekkel a lapokat színezni szeretné. KTE, KTW, WHO azok a cellák értékei az A1-ben, amelyek alapján a lapokat színezni kívánja, szükség szerint megváltoztathatja a kódban található hivatkozásokat és színeket.
2. Ezután mentse el és zárja be ezt a kódablakot. Most, amikor beírja a KTE szöveget a törzslap A1 cellájába, a Sheet1 fül piros színnel jelenik meg, amikor a KTO-t írja be az A1 cellába, a Sheet2 zöld színnel jelenik meg, és amikor beírod a KTW-t az A1 cellába, a Sheet3 kék színű lesz, lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!