Všechny přehlásky můžete snadno nahradit pomocí makra
Obvykle to není tak velký problém, jako před několika lety, ale přehlásky mohou stále způsobovat problémy při výměně dat. Následující obrázek ukazuje tabulku s texty, které obsahují přehlásky:
Pokud potřebujete vyměňovat informace s jinými systémy nebo posílat data do jiných zemí, může být užitečné nahradit všechny přehlásky v tabulce. Vyměníte ä za ae, ö za oe atd.
To lze samozřejmě provést opakovaným vyvoláním funkce EDIT - VYMĚNIT. Ale to je hodně práce. Chcete -li nahradit všechny tři přehlásky ä, ö a ü na velká a malá písmena i ß, musíte provést sedm náhradních operací za sebou.
S makrem je to jednodušší. Zde je příslušný kód programu:
Sub ReplaceUmlauts ()
Dim Cell jako rozsah
S aplikací Application.WorksheetFunction
Pro každou buňku ve výběru
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
„ö“, „oe“), „ü“, „ue“), „Ö“, „Oe“), „Ü“, „Ue“), „ß“, „ss“), _
„Ä“, „Ae“)
Další buňka
Konec s
End Sub
Makro vnoří příslušná náhradní volání prostřednictvím funkce Náhradníci do sebe. Toto je anglický název funkce REPLACE tabulkové funkce.
Chcete -li použít makro, nejprve vyberte buňky, ve kterých chcete přehlásky nahradit, a poté makro zavolejte. Následující obrázek ukazuje, jak vypadá tabulka s přehláskami po spuštění makra:
