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 de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!