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
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Hledání-zástupné znaky
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)
6030_kodovani_dotaz.rar (550kB, staženo 12x)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í.
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)
citovat6034_kodovani_dotaz.zip (704kB, staženo 12x)(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
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
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
Předem děkujicitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články