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

MS Excel

Téma: Hledání-zástupné znaky

Zaslal/a p.lostak 29.9.2011 8:22

Dobrý den,
potřebuji filtrovat a vyhledávat data. Klasická funkce SVYHLEDAT má problém se zástupnými znaky (?;*). V listu1 jsou vstupní data. Potřebuji otestovat zda sloupec A (ITEMID) a sloupec E(ITEMGROUPID) odpovídá kódovací tabulce v listu2 sloupec A(Číslo položky) a seznamu položek sloupec E. Sloupec A(Číslo položky) musí rozkódovat na sloupec B(číslo položky pro hledání) (ještě není 100% rozkódovaný, ale na testy to stačí).
Takže výsledek má být z listu2 sloupec A porovnej s listem1 sloupec A a pak porovnej list1 sloupec E s sloupcem v listu2 E pokud bude shoda, tak nic nedělej; bude-li se lišit číslo položky nebo skupina položek nějakým způsobem to označ.
Doufám, že se to dá pochopit a snad i najít rozumné řešení.
Předem děkuji za snahu Petr Lošťák

Příloha: 6030_kodovani_dotaz.rar (550kB, staženo 12x)

Zaslat odpověď >

---

Poki(29.9.2011 9:31)#006033

Asi mi to po dni volna hned zrana moc nemysli, ale nepochopil jsem to - slo by to popsat nejak polopaticky i pro nas pomalejsi?citovat

p.lostak(29.9.2011 13:10)#006034

Dobrý den,
potřebuji porovnat data z listu1 sloupec E s listem 2 sloupec E. K tomu použiji sloupce A listu 1a2.Na listu1 ve sloupci A jsou data v konečné podobě. Ve sloupci A listu 2 jsou ukázány jak mají data vypadat.Tj. v buňce 4A (11AAAA###V) rozklíčovat na 11???????V (? - je zástupný znak); dle tohoto předpisu (11AAAA###V) mohu mít tisíce záznamů. Po najití List2 sloupec B = List1 sloupec A, testovat shodu LIST2 sloupec E s listem 1 sloupec E. Graficky znázorním v excelu v listu3.
Omlouvám se za mé špatné vyjádření.

Příloha: 6034_kodovani_dotaz.zip (704kB, staženo 12x)

citovat

Roman(29.9.2011 15:18)#006036

Zkus dát do bunky F2 =ZVLookUp(A2;List2!$B$3:$B$126;4)
a vložit funkci
Function ZVLookUp(co As String, Kde As Range, Sloupec As Integer) As String
Dim Od As Object
Set Od = Kde
For Each bun In Od
If co Like bun Then
ZVLookUp = bun.Offset(, Sloupec - 1)
Exit Function
End If
If bun = "" Then Exit For
Next bun
ZVLookUp = Error(7)
End Functioncitovat

p.lostak(30.9.2011 8:50)#006046

Děkuji Romane, Tvůj kód pracuje. Můžeš mě prosím rozklíčovat co který řádek v samotné funkci dělá. Rád bych pochopil, nějakou představu mám, ale rád se přiučím o odborníků.
Předem děkujicitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse