Jak vlookup a vrátit odpovídající hodnotu s komentářem buňky?
Když použijete funkci Vlookup k vrácení odpovídající hodnoty, extrahuje pouze hodnotu bez formátování, jako je barva výplně, písmo nebo komentář atd. Někdy však možná budete muset vlookup a vrátit odpovídající hodnotu včetně komentáře získat následující výsledek obrazovky. Jak byste mohli vyřešit tuto práci v aplikaci Excel?
Vlookup a návrat odpovídající hodnoty s komentářem buňky pomocí kódu VBA
Vlookup a návrat odpovídající hodnoty s komentářem buňky pomocí kódu VBA
Níže uvedený kód VBA vám může pomoci vlookup a vrátit odpovídající hodnotu s komentářem, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modul, poté zkopírujte a vložte následující kód do souboru Modul Okno.
Kód VBA: Vlookup a návrat odpovídající hodnoty s komentářem buňky:
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. A poté uložte kód a zavřete okno s kódem, zadejte tento vzorec: = vlookupcomment (H2, A2: C10,3, FALSE) do prázdné buňky vyhledejte výsledek a stiskněte vstoupit klíč, shodná hodnota i komentář se vrátí najednou, viz screenshot:
Poznámka: Ve výše uvedeném vzorci, H2 je vyhledávací hodnota, kterou chcete vrátit odpovídající hodnotu, A2: C10 je datová tabulka, kterou chcete použít, číslo 3 je číslo sloupce, které obsahuje odpovídající hodnotu, kterou chcete vrátit.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!