Cum să vizualizați și să returnați culoarea de fundal împreună cu valoarea de căutare în Excel?
Să presupunem că aveți un tabel așa cum este prezentat mai jos. Acum doriți să verificați dacă o valoare specificată se află în coloana A și apoi să returnați valoarea corespunzătoare împreună cu culoarea de fundal în coloana C. Cum se realizează? Metoda din articol vă poate ajuta să rezolvați problema.
Vizualizați și returnați culoarea de fundal cu valoare de căutare prin funcția definită de utilizator
Procedați după cum urmează pentru a căuta o valoare și a returna valoarea corespunzătoare a acesteia împreună cu culoarea de fundal în Excel.
1. În foaia de lucru conține valoarea pe care doriți să o vizualizați, faceți clic dreapta pe fila foaie și selectați Afișați codul din meniul contextual. Vedeți captura de ecran:
2. În deschidere Microsoft Visual Basic pentru aplicații fereastra, copiați mai jos codul VBA în fereastra Cod.
Cod VBA 1: Vlookup și returnează culoarea de fundal cu valoarea de căutare
Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Range(xDic.Keys(I)).Interior.Color = _
Range(xDic.Items(I)).Interior.Color
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
End Sub3. Apoi apasa Insera > Moduleși copiați codul VBA 2 de mai jos în fereastra Module.
Cod VBA 2: Vlookup și returnează culoarea de fundal cu valoarea de căutare
Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepColor = ""
xDic.Add Application.Caller.Address, ""
Else
LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
End If
End Function4. După introducerea celor două coduri, apoi faceți clic pe Instrumente > Referinte. Apoi verificați Microsoft Script Runtime cutie în Referințe - VBAProject căsuță de dialog. Vedeți captura de ecran:
5. apasă pe Alt + Q tastele pentru a ieși din Microsoft Visual Basic pentru aplicații fereastră și reveniți la foaia de lucru.
6. Selectați o celulă necompletată adiacentă valorii de căutare, apoi introduceți formula =LookupKeepColor(E2,$A$1:$C$8,3) în bara de formule, apoi apăsați tasta Enter.
notițe: În formulă, E2 conține valoarea pe care o veți căuta, $ A $ 1: $ C $ 8 este intervalul tabelului și numărul 3 înseamnă că valoarea corespunzătoare pe care o veți returna o localizează în a treia coloană a tabelului. Vă rugăm să le schimbați după cum aveți nevoie.
7. Continuați să selectați prima celulă de rezultat și trageți mânerul de umplere în jos pentru a obține toate rezultatele împreună cu culoarea lor de fundal. Vezi captura de ecran.
Legate de articole:
- Cum să copiați formatarea sursă a celulei de căutare atunci când utilizați Vlookup în Excel?
- Cum să vizualizați și să returnați formatul de dată în loc de număr în Excel?
- Cum se utilizează vlookup și suma în Excel?
- Cum să vizualizați valoarea de returnare în celula adiacentă sau următoare din Excel?
- Cum să vizualizați valoarea și să returnați adevărat sau fals / da sau nu în Excel?
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!
