V slove Komarno nie je ziadna chyba je to ako vzor co sa v stlpci moze vsetko nachadzat. Su tam aj dobre udaje.
Dakujem cez tu funkciu je to pouzitelne.
neckcitovat
Dakujem cez tu funkciu je to pouzitelne.
neckcitovat
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: Vyhladanie urcitych znakov v stlpci
Když dáte dohromady slovní zadání... Ale vlastně ne, zapomeňte na to.
a) Uspokojivé řešení neexistuje.
b) RegExp (pokud není v PowerQuery nějaká novější verze, jakože tam podle všeho nejdou používat ani zástupné znaky) si VBA tahá z VBScriptu a objekt je starý 20 let, a nezvládá ani pořádně češtinu.
Řešení postavené na existenci správného znění (referenčního jmenného seznamu) je v praxi velmi často k ničemu.
1) Seznamy jsou postavené na příjmeních, produktech, názvech společností. I sami zakladatelé společností často založí dvě firmy téhož jména (prohozená slova, krátké dodatky). Příjmení (čeština, jiný znak = jiné jméno, prohozené jméno a příjmení, otec a syn atd.)...
2) Uživatel má zpravidla dva seznamy (se stejnými, společnými nebo svými chybami navíc). Není jeden z nich referenční.
3) Máte ID/IČO nebo nemáte šanci, a nepomůže vám ani AI s miliardou záznamů za zády.citovat
MS Excel
Téma: Vyhladanie urcitych znakov v stlpci 
Zaslal/a neck 25.9.2019 10:08
Dobry den
Snazil som sa na fore najst odpoved na moj problem uz v riesenych temach ale nic take som nenasiel. Preto sa chcem spytat akym sposobom je mozne cez makro v urcenom stlpci napr A vyhladat znaky podla tabulky ascii (ide hlavne o cisla a specialne znaky) ktore by boli hladane cez ascii kod napr. znak @ = kod 64.
(Ak to cez kod nie je mozne tak aspon cez znak.)
Moja predstava je taka ze v stlpci A sa nachadzaju rozne nazvy ktore ale mozu obsahovat preklepy vo forme cisiel alebo specialnych znakov.
Tieto preklepy potrebujem vyhladat vo vsetkych riadkoch a riadky v ktorych sa tieto znaky nachadzaju prekopirovat na novy harok z dovodu lahsej kontroly.
napr.
stlpec A obsahuje taketo riadky
8ratisla@
Brn0
5liac
Komarno
atd.
riadkov moze byt aj 500 tisic a preklepov len v 100 riadkoch
Dakujem
neck
Strana: « předchozí 1
2
Funkciu som odskusal a je to presne to co som potreboval. Este by som sa ale rad spytal ci je mozne tuto funkciu riesit aj cez makro pretoze u pol miliona zaznamov to na procesore i5 8 generacie trva dost dlho. Hlavne odfiltrovanie tych zlych zaznamov ked sa tam uz vzorec nachadza.
Dakujem
neckcitovat
Dakujem
neckcitovat
áno je to možné prerobiť aj na makro.
a na odfiltrovanie použi automatický filter. Písal si, že je to iba 100 zlých záznamov.citovat
a na odfiltrovanie použi automatický filter. Písal si, že je to iba 100 zlých záznamov.citovat
Tohle bych v excelu nedělal. Pokud ano, může se zkusit kontrola pravopisu.
Další volby:
LO Calc (umí regexp i ve vzorcích).
findstr (cmd utilita, je ve win, umí trochu regexp, mohla by stačit)
Osobně bych použil perl, (export do csv, a filtr přes příkazový řádek)
Jinak podle gusta.citovat
Další volby:
LO Calc (umí regexp i ve vzorcích).
findstr (cmd utilita, je ve win, umí trochu regexp, mohla by stačit)
Osobně bych použil perl, (export do csv, a filtr přes příkazový řádek)
Jinak podle gusta.citovat
(26.9.2019 13:05)#044378
Ano pisal som ze v 100 roadkoch. A ked somaplikoval v zorec v zozname s 150 000 riadkami tak to trochu trvalo a naslo to 35 zlych. Funkcne to je al epri tom filtrovani sa to vsetko zasa prepocitava a to zdrzuje.
Inak dakujem pokial je to makro zdlhave tak aj takto to viem pouzit.
neckcitovat
Inak dakujem pokial je to makro zdlhave tak aj takto to viem pouzit.
neckcitovat
Myslel som, že ako návod to stačí.
tu je upravené makro.
Sub oprav()
Dim bunka As Range
Range("a1").CurrentRegion.Select
For Each bunka In Selection
For i = 1 To Len(bunka)
Select Case Mid(bunka, i, 1)
Case "A" To "Z", "a" To "z"
Case "ľ", "š", "č", "ť", "ž", "ý"
Case Else
bunka.Offset(0, 2) = bunka
Exit For
End Select
Next i
Next bunka
End Subcitovat
tu je upravené makro.
Sub oprav()
Dim bunka As Range
Range("a1").CurrentRegion.Select
For Each bunka In Selection
For i = 1 To Len(bunka)
Select Case Mid(bunka, i, 1)
Case "A" To "Z", "a" To "z"
Case "ľ", "š", "č", "ť", "ž", "ý"
Case Else
bunka.Offset(0, 2) = bunka
Exit For
End Select
Next i
Next bunka
End Subcitovat
Makro, ktoré to urobí jednorázovo na 500 000 riadkoch (len multiplykovaný zoznam obcí) pod 10 s (u mňa 6,5 s) aj so StatusBar-om.
Celý 4,7 MB súbor s 500 000 riadkami je na GoogleDrive.
Celý 4,7 MB súbor s 500 000 riadkami je na GoogleDrive.
Příloha: 
44407_vypis-nepismenne-texty-bez-dat.zip (23kB, staženo 22x)
citovat44407_vypis-nepismenne-texty-bez-dat.zip (23kB, staženo 22x)(27.9.2019 13:00)#044413
elninoslov napsal/a:
A nevedel by ste niekto na to zložiť pattern pre RegExp? To nedávam, tak neviem, či by to šlo.
Když dáte dohromady slovní zadání... Ale vlastně ne, zapomeňte na to.
a) Uspokojivé řešení neexistuje.
b) RegExp (pokud není v PowerQuery nějaká novější verze, jakože tam podle všeho nejdou používat ani zástupné znaky) si VBA tahá z VBScriptu a objekt je starý 20 let, a nezvládá ani pořádně češtinu.
Řešení postavené na existenci správného znění (referenčního jmenného seznamu) je v praxi velmi často k ničemu.
1) Seznamy jsou postavené na příjmeních, produktech, názvech společností. I sami zakladatelé společností často založí dvě firmy téhož jména (prohozená slova, krátké dodatky). Příjmení (čeština, jiný znak = jiné jméno, prohozené jméno a příjmení, otec a syn atd.)...
2) Uživatel má zpravidla dva seznamy (se stejnými, společnými nebo svými chybami navíc). Není jeden z nich referenční.
3) Máte ID/IČO nebo nemáte šanci, a nepomůže vám ani AI s miliardou záznamů za zády.citovat
Strana: « předchozí 1
2
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