Hogyan lehet vlookupot adni és visszaadni az egyező értéket cellakommentárral?
Ha a Vlookup függvényt az egyező érték visszaadására alkalmazza, akkor az csak formázás nélkül vonja ki az értéket, például kitöltési szín, betűtípus vagy megjegyzés stb. hogy a következő képernyőképet kapja. Hogyan oldhatná meg ezt a munkát az Excel programban?
Vlookup és adja meg az egyező értéket cellakommentárral a VBA kód használatával
Vlookup és adja meg az egyező értéket cellakommentárral a VBA kód használatával
Az alábbi VBA-kód segíthet a vlookup-ban és a megjegyzéssel megegyező érték visszaadásában, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, majd másolja és illessze be a következő kódot a Modulok Ablak.
VBA kód: Vlookup és egyező érték visszaadása cellamegjegyzéssel:
Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
Application.Volatile
Dim xRet As Variant 'could be an error
Dim xCell As Range
xRet = Application.Match(LookVal, FTable.Columns(1), FType)
If IsError(xRet) Then
VlookupComment = "Not Found"
Else
Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
VlookupComment = xCell.Value
With Application.Caller
If Not .Comment Is Nothing Then
.Comment.Delete
End If
If Not xCell.Comment Is Nothing Then
.AddComment xCell.Comment.Text
End If
End With
End If
End Function
3. Ezután mentse el a kódot, és zárja be a kódablakot, írja be ezt a képletet: = vlookupcomment (H2, A2: C10,3, HAMIS) egy üres cellába az eredmény megkereséséhez, majd nyomja meg a gombot belép kulcs, az egyező érték és a megjegyzés egyszerre kerül vissza, lásd a képernyőképet:
Megjegyzések: A fenti képletben H2 a keresési érték, amelynek vissza szeretné adni a megfelelő értéket, A2: C10 a használni kívánt adattábla, a szám 3 az oszlop száma, amely tartalmazza a visszaadni kívánt egyeztetett értéket.
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!