Możesz łatwo zastąpić wszystkie umlauty za pomocą makra
Zwykle nie jest to tak duży problem jak kilka lat temu, ale umlauty nadal mogą powodować problemy podczas wymiany danych. Poniższy rysunek przedstawia tabelę z tekstami zawierającymi umlauty:
Jeśli potrzebujesz wymieniać informacje z innymi systemami lub przesyłać dane do innych krajów, przydatne może być zastąpienie wszystkich umlautów w tabeli. Zamieniasz ä na ae, ö na oe itd.
Oczywiście możesz to zrobić, wielokrotnie wywołując funkcję EDIT - REPLACE. Ale to dużo pracy. Jeśli chcesz zamienić wszystkie trzy znaki umlautowe ä, ö i ü w dużych i małych literach oraz ß, musisz wykonać siedem operacji zamiany z rzędu.
Łatwiej jest z makro. Oto odpowiedni kod programu:
Sub ZamieńUmlauty ()
Przyciemnij komórkę jako zakres
Z Application.Worksheet Function
Dla każdej komórki w zaznaczeniu
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ą, "Ae")
Następna komórka
Kończyć z
Napis końcowy
Makro zagnieżdża odpowiednie wywołania zastępcze za pomocą funkcji Zamienniki w siebie. To jest angielska nazwa funkcji tabeli REPLACE.
Aby użyć makra, najpierw zaznacz komórki, w których chcesz zastąpić umlauty, a następnie wywołaj makro. Poniższy rysunek pokazuje, jak wygląda tabela z umlautami po uruchomieniu makra:
