Vyhledávací funkce pro Excel

Je tomu už asi rok, kdy jsem zjistila, že Excelu chybí jistá funkce pro pokročilejší vyhledávání i když funkcí na vyhledávání má několik, ale žádnou která by uměla prohledat sloupec který chci, vrátit výsledky v pořadí v jakém si určím a z daného sloupce.



Pustila jsem se do vývoje vlastní funkce která tohle všechno umí a po dlouhém testování (pomohl mi i jeden člen fóra PC-Help kterému se ta funkce taky hodila) jsem ji dovedla téměř k dokonalosti.

Funkce se vloží do modulu v editoru VBA který se spustí klávesovou zkratkou Alt+F11
Výsledný sešit se pak musí uložit jako "sešit s podporou maker" a v Excelu je potřeba mít povolená makra.

---

Function NajdiVice(Hledat As Variant, Oblast As Range, Prohledat_sloupek As Integer, Vzit_sloupek As Integer, Poradi As Integer) As Variant
' funkce na vyhledání položky v zadaném sloupci a v zadaném pořadí
' **** vysvětlivky funkce ****
' Hledat = co hledat
' Oblast = oblast dat (tabulka) kde hledat a vybírat výsledky
' Prohledat_sloupek = číslo sloupce v oblasti dat který se má prohledat
' Vzit_sloupek = číslo sloupce ze kterého se bude brát výsledek hledání
' Poradi = pořadí výsledku který má najít
' ****

Dim a As Long, x As Integer
x = 1
With Oblast
    For a = 1 To .Rows.Count
        If .Cells(a, Prohledat_sloupek) = Hledat Then
            If x = Poradi Then
                NajdiVice = .Cells(a, Vzit_sloupek) 'vrací nalezenou hodnotu
                Exit Function
            Else
                x = x + 1 'počítadlo pořadí shody
            End If
        End If
    Next
End With
NajdiVice = CVErr(xlErrNA) 'vrátí chybu N/A když nenajde shodu
End Function

---

 Příklad použití výpisu položek podle stejného ID.

Zápis vzorce s průvodcem.

Funkce v editoru VBA vč. vysvětlivek (zelený text na začátku funkce)

Ukázkový soubor ke stažení