MS Excel

Tak mně dneska napadlo, jestli by to nešlo. Měl jsem chviličku a zkusil to. A jde to. Takže, jestli má někdo zájem, může to zkusit taky. ;)))

Odstranit diakritiku pomocí VBA není problém. Dokážete to ale pomocí vzorce(ů)?

1. Není možné použít VBA (a pro jistotu ani žádný jiný programovací jazyk) - pouze vzorce.
2. Je možné použít pomocné sloupce.
3. Musí být zachována velikost písmen.
4. Ostatní znaky musí zůstat tak jak jsou a na svých místech ;)
5. Není možné použít pomocné tabulky!!
6. Nelze použít řetězců (podobně jako ve VBA) něco jako "ÁČĎÉĚÍŇŘŠŤÚŮÝŽáčďéeěíňřšťúůýž"=>"ACDEEINRSTUUYZacdeeinrstuuyz". Řešení musí být obecné, abych nemusel myslet na to, jaké znaky se vyskytují.

Pro hodnoty
Čuňačina
Pišta Hufnágl
Áčka jako Béčka
Champs-Élysées
Curaçao
El Niño
smörgåstårta
tête-à-tête

bude výsledek
Cunacina
Pista Hufnagl
Acka jako Becka
Champs-Elysees
Curacao
El Nino
smorgastarta
tete-a-tete
Pokud použijete pomocné sloupce, vložte vždy přílohu.

Zaslat odpověď >

Strana: 1 2 3 další »

eLCHa(11.1.2016 12:38)#029160

Přidal jsem ještě 6. podmínku, bez ní by to totiž nebyla vlastně žádná výzva a neotravoval bych vás.

Řetězce se pravda dají využít na jednoduché a spolehlivé řešení, museli byste ale vyjmenovat 100% všechny znaky.citovat

Palooo(11.1.2016 12:52)#029161

len hadam .... nebude to nieco s menenim fontu na taky ktory neobsahuje diakritiku? a potom spat?citovat

eLCHa(11.1.2016 12:58)#029162

Ne to není. Ale můžete to použít, zadání to vyhovuje. Sám jsem zvědavý ;) .citovat

Devilcz(11.1.2016 15:51)#029164

snažil bych se to udělat nějak přes ASCII / HTML, nejdříve každé slovo rozdělit dle jednotlivých znaků a pak ten znak vyjádřit v HTML znaku, z toho lze pak následně jednouše vyexportovat znak bez speciálního znaku; přidaná podmínka na rozmezí základních ascii znaků (málá a velká písmena, bez diakritky), se kterými se nic nedělá, je easy...

Jediné co nevím, zda se v excelu dá vyjádřit znak html kódem :-Dcitovat

eLCHa(12.1.2016 14:23)#029197

Ano. Je třeba text rozdělit na jednotlivé znaky. Možná lze sestrojit nějaký maticový vzorec, ale tím jsem se nezabýval. Takže v pomocných sloupcích mám jednotlivé znaky.

1. nápověda
Dejte si do sloupce pod sebe náhodné znaky, stačí pár tak 10-15. Některé s diakritikou, některé bez, některé velké a některé malé. A pak si je seřaďte.citovat

AL(12.1.2016 16:48)#029206

jasné a následne použiť MATCH s posledným parametrom rovným 1, výsledné znaky potom spojiť do pôvodného reťazca, tentokrát už bez diakritiky

Iný spôsob riešenia ponúka vnorená funkcia SUBSTITUTE, ale počet úrovní musí odpovedať počtu znakov s diakritikou, ten presahuje možnosti počtu vnorení v jednom vzorci, čiže bolo by potrebné to urobiť minimálne na dvakrát, t.j. s jedným pomocným stĺpcom.citovat

Devil(13.1.2016 9:20)#029227

#AL nejsem si jistý, ale dle mého názoru MATCH a SUBSTITUTE porušuje podmínku 6 - protože přesně to tyto funkce dělají, ne?citovat

eLCHa(13.1.2016 10:09)#029228

V příloze je řešení, které nevyhovuje zadání. Schválně jsem tam nechal i špatné výsledky, aby bylo vidět, že i když jsem se snažil, přesto mi některé znaky unikly.
Nevyhovuje proto, že jsou použity 2 řetězce - jeden s diakritikou a jeden bez.

Dávám ji sem proto, abyste tedy nemuseli nic vytvářet a nahradili nevyhovující vzorce za vyhovující.

Mimochodem, 2. nápověda (a v podstatě řešení) by opravdu byla POZVYHLEDAT

Příloha: zip

29228_odstraneni-diakritiky-2.zip (10kB, staženo 194x)

citovat

AL(13.1.2016 10:11)#029229

@ Devil: Je to možné, ale je mi to asi jedno

.citovat

eLCHa(14.1.2016 10:20)#029249

Mno
ALovi je to jedno ;) a nikdo další se neozývá, nebudu vás tedy napínat.

Lze použít maticový vzorec:=IFERROR(ZNAK(64+POZVYHLEDAT(ČÁST($A2;B$1;1);ZNAK(ŘÁDEK($A$65:$A$90)))+KDYŽ(JE.CHYBHODN(NAJÍT(MALÁ(ČÁST($A2;B$1;1));ČÁST($A2;B$1;1)));0;32));ČÁST($A2;B$1;1))=IFERROR(CHAR(64+MATCH(MID($A2;B$1;1);CHAR(ROW($A$65:$A$90)))+IF(ISERROR(FIND(LOWER(MID($A2;B$1;1));MID($A2;B$1;1)));0;32));MID($A2;B$1;1))
nebo nematicový=IFERROR(ZNAK(KÓD("A")-1+POZVYHLEDAT(ČÁST($A2;B$1;1);{"A";"B";"C";"D";"E";"F";"G";"H";"I";"J";"K";"L";"M";"N";"O";"P";"Q";"R";"S";"T";"U";"V";"W";"X";"Y";"Z"})+KDYŽ(JE.CHYBHODN(NAJÍT(MALÁ(ČÁST($A2;B$1;1));ČÁST($A2;B$1;1)));0;32));ČÁST($A2;B$1;1))=IFERROR(CHAR(CODE("A")-1+MATCH(MID($A2;B$1;1);{"A";"B";"C";"D";"E";"F";"G";"H";"I";"J";"K";"L";"M";"N";"O";"P";"Q";"R";"S";"T";"U";"V";"W";"X";"Y";"Z"})+IF(ISERROR(FIND(LOWER(MID($A2;B$1;1));MID($A2;B$1;1)));0;32));MID($A2;B$1;1))

Pochopení vzorce nechám na vás ;) .
Bezpečnější je samozřejmě ten nematicový, protože ho neovlivní odstraňování/přidávání řádků.

Využití na listu, v UDF nebo procedurách. Já už od teď žádné řetězce používat nebudu ;))citovat

Strana: 1 2 3 další »

Téma: Challenge - Odstraňte diakritiku

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje