Kako kopirati izvorno oblikovanje iskalne celice pri uporabi Vlookupa v Excelu?
V prejšnjih člankih smo govorili o ohranjanju barve ozadja pri vrednostih vlookup v Excelu. Tu v tem članku bomo predstavili način kopiranja celotnega oblikovanja celic nastale celice pri izvajanju Vlookupa v Excelu. Naredite naslednje.
Kopirajte oblikovanje vira, ko uporabljate Vlookup v Excelu z uporabniško določeno funkcijo
Kopirajte oblikovanje vira, ko uporabljate Vlookup v Excelu z uporabniško določeno funkcijo
Recimo, da imate tabelo, kot je prikazano na spodnji sliki zaslona. Zdaj morate preveriti, ali je določena vrednost (v stolpcu E) v stolpcu A, in vrniti ustrezno vrednost z oblikovanjem v stolpec C. Prosimo, storite naslednje, da jo dosežete.
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 vrnjena vrednost z oblikovanjem
Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
Application.CutCopyMode = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Set xRg = Application.Range(xDicStr)
xRg.Copy
Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
3. Nato kliknite Vstavi > Moduliin kopirajte spodnjo kodo VBA 2 v okno modula.
Koda VBA 2: Vlookup in vrnjena vrednost z oblikovanjem
Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Application.ScreenUpdating = False
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "
Else
LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
End If
Application.ScreenUpdating = True
End Function4. klik 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.
6. Izberite prazno celico ob iskalni vrednosti in vnesite formulo =LookupKeepFormat(E2,$A$1:$C$8,3) v Formula Barin nato pritisnite Vnesite ključ.
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 nato povlecite ročico za polnjenje navzdol, da dobite vse rezultate skupaj z njihovim oblikovanjem, kot je prikazano spodaj.
Sorodni članki:
- Kako iskati in vrniti barvo ozadja skupaj z vrednostjo iskanja 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 orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
