Cum se schimbă culoarea filei de foaie pe baza valorii celulei?
În mod normal, puteți schimba culoarea filelor ușor și rapid în Excel, dar ați încercat vreodată să schimbați culoarea filelor pe baza valorii celulei dintr-o foaie de lucru? Dacă sunteți interesat de această sarcină, voi vorbi despre câteva coduri pentru ca dvs. să colorați fila de foaie pe baza unei valori specifice a celulei din Excel.
Schimbați culoarea filei unei foi pe baza valorii celulei cu codul VBA
Schimbați mai multe file de foi pe baza valorii celulei cu codul VBA
Schimbați culoarea filei unei foi pe baza valorii celulei cu codul VBA
De exemplu, vreau ca culoarea filelor curente a foii să fie verde dacă valoarea celulei din A1 este textul „ADEVĂRAT”, culoarea filelor va fi roșie dacă textul din A1 este „FALS”, iar culoarea filelor va fi albastră dacă valoarea din celula A1 este orice alt text, după cum se arată în următoarea captură de ecran:
1. Faceți clic dreapta pe fila de foaie pe care doriți să-i modificați culoarea pe baza datelor din celula A1, apoi alegeți Afișați codul din meniul contextual.
2. În Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți codul VBA de mai jos în Module fereastră.
Cod VBA: Modificați culoarea filei unei foi pe baza valorii celulei:
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
Notă: În codul de mai sus, A1 este referința celulei pe care doriți să colorați fila pe baza „Adevărat","Fals”Sunt textul de care ai nevoie, le poți schimba în funcție de nevoile tale și poți schimba culoarea din cod după cum ai nevoie.
3. Apoi salvați și închideți această fereastră de cod, acum, când introduceți textul „Adevărat” în celula A1, culoarea curentă a filei va deveni verde, iar când introduceți textul „Fals” în celula A1, culoarea filei va deveni roșie, iar dacă se introduce alt text în celula A1, culoarea filelor va deveni albastră automat.
Schimbați mai multe file de foi pe baza valorii celulei cu codul VBA
Dacă trebuie să schimbați culoarea filelor cu mai multe foi pe baza unei valori a celulei, iată și un cod care vă poate ajuta, faceți următoarele:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră, în fereastra deschisă, faceți dublu clic Acest manual de lucru în temeiul Proiect VBA , apoi copiați și lipiți codul de mai jos în spațiul gol Module:
Cod VBA: Modificați mai multe file de foi pe baza valorii celulei:
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
Notă: În codul de mai sus, A1 și Master sunt celula și foaia de lucru pe care doriți să colorați fila în funcție de, Sheet1, Sheet2, Sheet3 sunt foile de lucru pe care doriți să le colorați filelor. KTE, KTW, OMS sunt valorile celulei din A1 pe care doriți să colorați filele pe baza, puteți modifica referințele și culorile din cod după cum aveți nevoie.
2. Apoi salvați și închideți această fereastră de cod, acum, când introduceți textul KTE în celula A1 a foii principale, fila Sheet1 va fi colorată în roșu, când introduceți KTO în celula A1, Sheet2 va fi colorată în verde și când introduceți KTW în celula A1, Sheet3 va fi colorată în albastru, vedeți captura de ecran:
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
