Všetky prehlásky môžete ľahko nahradiť pomocou makra
Obvykle to nie je taký veľký problém ako pred niekoľkými rokmi, ale prehlásky môžu stále spôsobovať problémy pri výmene údajov. Nasledujúci obrázok zobrazuje tabuľku s textmi, ktoré obsahujú prehlásky:
Ak potrebujete vymieňať informácie s inými systémami alebo odosielať údaje do iných krajín, môže byť preto užitočné nahradiť všetky prehlásky v tabuľke. Ä nahradíte ae, ö za oe atď.
Môžete to samozrejme urobiť opakovaným volaním funkcie EDIT - VYMENIŤ. Ale to je veľa práce. Ak chcete nahradiť všetky tri prehlásky ä, ö a ü veľkými a malými písmenami, ako aj ß, musíte vykonať sedem náhradných operácií za sebou.
S makrom je to jednoduchšie. Tu je príslušný kód programu:
Sub ReplaceUmlauts ()
Dim Cell as Range
S aplikáciou.WorksheetFunction
Pre každú bunku vo výbere
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
„ö“, „oe“), „ü“, „ue“), „Ö“, „Oe“), „Ü“, „Ue“), „ß“, „ss“), _
„Ä“, „Ae“)
Ďalšia bunka
Ukončiť s
Koniec pod
Makro vnorí prostredníctvom funkcie príslušné náhradné hovory Náhradníci do seba. Toto je anglický názov funkcie tabuľkovej funkcie REPLACE.
Ak chcete použiť makro, najskôr vyberte bunky, v ktorých chcete nahradiť prehlásky, a potom makro zavolajte. Nasledujúci obrázok ukazuje, ako vyzerá tabuľka s prepismi po spustení makra:
