Hogyan lehet másolni a keresési cella forrásformátumát, amikor a Vlookup programot használja az Excel programban?
Az előző cikkekben a háttérszín megőrzéséről beszéltünk, amikor a vlookup értékek az Excel-ben vannak. Ebben a cikkben bemutatjuk a kapott cellák összes celloformátumának másolásának módszerét, amikor a Vlookup programot az Excel programban hajtjuk végre. Kérjük, tegye a következőket.
Másolja a forrás formátumát, ha a Vlookup programot Excelben használja a felhasználó által definiált funkcióval
Tegyük fel, hogy van egy táblázata az alábbi képernyőképen. Most ellenőriznie kell, hogy egy megadott érték (az E oszlopban) szerepel-e az A oszlopban, és visszaadja a megfelelő értéket formázással a C oszlopban. Ennek eléréséhez tegye a következőket.
1. A munkalap tartalmazza a vlookup értékét, kattintson a jobb gombbal a lap fülre, és válassza ki Kód megtekintése a helyi menüből. Lásd a képernyőképet:
2. A nyílásban Microsoft Visual Basic for Applications ablakba, kérjük, másolja a VBA kód alatt a Kód ablakba.
1. VBA-kód: Vlookup és return érték formázással
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. Ezután kattintson betétlap > Modulok, és másolja az alábbi VBA kódot a Modul ablakba.
2. VBA-kód: Vlookup és return érték formázással
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. kettyenés Eszközök > Referenciák. Ezután ellenőrizze a Microsoft Script futásidejű doboz a Referenciák - VBAProject párbeszédablak. Lásd a képernyőképet:
5. megnyomni a más + Q gombokkal lépjen ki a Microsoft Visual Basic for Applications ablak.
6. Jelöljön ki egy üres cellát a keresési érték mellett, majd írja be a képletet =LookupKeepFormat(E2,$A$1:$C$8,3) be a Formula Bar, majd nyomja meg a gombot belép kulcs.
Megjegyzések: A képletben E2 tartalmazza a keresni kívánt értéket, $ A $ 1: $ C $ 8 a táblázat tartománya és száma 3 azt jelenti, hogy a megfelelő érték, amelyet visszaad, a táblázat harmadik oszlopában található. Kérjük, változtassa meg őket szükség szerint.
7. Folyamatosan válassza ki az első eredménycellát, majd húzza lefelé a Kitöltő fogantyút, hogy az összes eredmény megjelenjen a formázásukkal együtt, ahogy az alábbi képernyőképen látható.
Kapcsolódó cikkek:
- Hogyan lehet visszakeresni és visszaadni a háttérszínt az Excel keresési értékével együtt?
- Hogyan lehet vlookup és visszatérési dátum formátumot szám helyett az Excelben?
- Hogyan használható a vlookup és az összeg az Excelben?
- Hogyan lehet vlookup visszatérni az Excel szomszédos vagy következő cellájában?
- Hogyan lehet vlookup értéket adni és visszaadni igaz vagy hamis / igen vagy nem az Excelben?
A legjobb irodai termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
