Debug.Print AscW(Selection)
a potom mozme zapisat:
Selection.Replace ChrW(317), "L", MatchCase:=True
nie kazde Ľ je Ľcitovat
Zaslal/a eLCHa 11.1.2016 10:32
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.
honza787145 napsal/a:
Uprimne si myslim, ze byste meli svuj cas venovat necemu jinemu.
Proc?
Jirka003 napsal/a:
použít funkci DOSADIT. Tento příklad platí pro buňku A1. Odstraní všechnu diaktitiku (i německou) z velkých i malých písmen...
=DOSADIT(DOSADIT(DOSADIT(DOSADIT(DOSADIT
(DOSADIT(DOSADIT(DOSADIT(DOSADIT(DOSADIT
(DOSADIT(DOSADIT(DOSADIT(DOSADIT(DOSADIT
(DOSADIT(DOSADIT(DOSADIT(DOSADIT(DOSADIT
(DOSADIT(DOSADIT(DOSADIT(DOSADIT(DOSADIT
(DOSADIT(DOSADIT(DOSADIT(DOSADIT(DOSADIT
(DOSADIT(DOSADIT(DOSADIT(DOSADIT(DOSADIT
(DOSADIT(DOSADIT(DOSADIT(A1;"á";"a");"Á";"A")
;"ä";"a");"Ä";"A");"č";"c");"Č";"C");"ď";"d")
;"Ď";"D");"é";"e");"ě";"e");"ë";"e");"É";"E")
;"Ě";"E");"Ë";"E");"í";"i");"Í";"I");"ň";"n")
;"Ň";"N");"ó";"o");"Ó";"O");"ö";"o");"Ö";"O")
;"ř";"r");"Ř";"R");"š";"s");"Š";"S");"ť";"t")
;"Ť";"T");"ú";"u");"Ú";"U");"ů";"u");"Ů";"U")
;"ü";"u");"Ü";"U");"ý";"y");"Ý";"Y");"ž";"z");"Ž";"Z")
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.