• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Jak vylepšit funkci SVYHLEDAT pomocí VBA

Zaslal/a nod.tomas 30.1.2012 10:59

Ahoj. Potřeboval bych funkci, která funguje podobně jako SVYHLEDAT, ale v případě vícenásobného výskytu hledané hodnoty by vrátila do buňky všechny výskyty oddělené středníkem.

Příklad dat:

X|aa|
Y|bb|
Z|cc|
X|dd|
X|ee|

SVYHLEDAT by mi při zápisu =SVYHLEDAT(A1;A:B;2;0) vrátila toto: aa

Já bych chtěl pomocí VBA a vlastní funkce vrátit do 1 buňky: aa; dd; ee

Uměl by mi někdo něco takového prosím napsat?

Byl bych moc vděčný.
Děkuji.

Uzamčeno - nelze přidávat nové příspěvky.

---

Jeza.m(30.1.2012 11:21)#007109

Editor maker -> vložit modul -> do modulu vložit:
Public Function SVYHLEDAT2(co As String, oblast As Range, sloupec As Single) As String
For i = 1 To oblast.Rows.Count
If oblast.Cells(i, 1) = co Then If SVYHLEDAT2 <> "" Then SVYHLEDAT2 = SVYHLEDAT2 & "; " & oblast.Cells(i, sloupec) Else SVYHLEDAT2 = oblast.Cells(i, sloupec)
Next
If SVYHLEDAT2 = "" Then SVYHLEDAT2 = "NENALEZENO"
End Function
Do buňky pak napsat vzorec v podobě:
=SVYHLEDAT2("co";oblast;číslo sloupce)
=SVYHLEDAT2("X";A1:B5;2)
přičemž "co" může být reprezentováno hodnotou v nějaké buňce.

M@citovat

nod.tomas(30.1.2012 12:01)#007111

Jeza.m:

Perfektní! Moc ti děkuju. citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse