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 Function
4. 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 hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!