Kako iskati in vrniti barvo ozadja skupaj z vrednostjo iskanja v Excelu?
Recimo, da imate tabelo, kot je prikazano na spodnji sliki zaslona. Zdaj želite preveriti, ali je določena vrednost v stolpcu A in nato vrniti ustrezno vrednost skupaj z barvo ozadja v stolpcu C. Kako jo doseči? Metoda v članku vam lahko pomaga rešiti težavo.
Iskanje in vrnitev barve ozadja z vrednostjo iskanja s strani uporabniško določene funkcije
Iskanje in vrnitev barve ozadja z vrednostjo iskanja s strani uporabniško določene funkcije
Za iskanje vrednosti in vrnitev ustrezne vrednosti skupaj z barvo ozadja v Excelu storite naslednje.
1. Na delovnem listu vsebuje vrednost, ki jo želite pregledati, z desno miškino tipko kliknite zavihek lista in izberite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:
2. Na odprtju Microsoft Visual Basic za aplikacije okno, kopirajte spodnjo kodo VBA v okno Code.
Koda VBA 1: Vlookup in vrnitev barve ozadja z vrednostjo iskanja
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 Sub
3. Nato kliknite Vstavi > Moduliin kopirajte spodnjo kodo VBA 2 v okno modula.
Koda VBA 2: Vlookup in vrnitev barve ozadja z vrednostjo iskanja
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 Function
4. Ko vstavite dve kodi, kliknite Orodja > Reference. Nato preverite Izvajalni čas Microsoft Script polje v Reference - VBAProject pogovorno okno. Oglejte si posnetek zaslona:
5. Pritisnite druga + Q tipke za izhod iz Microsoft Visual Basic za aplikacije okno in se vrnite na delovni list.
6. Izberite prazno celico ob iskalni vrednosti in vnesite formulo =LookupKeepColor(E2,$A$1:$C$8,3) v vrstico formule in pritisnite tipko Enter.
Opombe: V formuli, E2 vsebuje vrednost, ki jo boste iskali, 1 A $ 8: XNUMX C $ je obseg tabele in število 3 pomeni, da se ustrezna vrednost, ki jo boste vrnili, poišče v tretjem stolpcu tabele. Prosimo, spremenite jih po potrebi.
7. Nadaljujte z izbiro prve celice z rezultati in povlecite ročico za polnjenje navzdol, da dobite vse rezultate skupaj z barvo ozadja. Oglejte si posnetek zaslona.
Sorodni članki:
- Kako kopirati izvorno oblikovanje iskalne celice pri uporabi Vlookupa v Excelu?
- Kako v Excelu vlookup in vrniti obliko datuma namesto številke?
- Kako uporabiti vlookup in vsoto v Excelu?
- Kako vlookup vrniti vrednost v sosednji ali naslednji celici v Excelu?
- Kako vlookup vrednost in vrniti true ali false / yes ali no v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!