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 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!
