Sve umlaute možete jednostavno zamijeniti pomoću makronaredbe
Obično to nije tako veliki problem kao prije nekoliko godina, ali umlauti i dalje mogu uzrokovati probleme pri razmjeni podataka. Sljedeća slika prikazuje tablicu s tekstovima koji sadrže umlaute:
Ako trebate razmjenjivati informacije s drugim sustavima ili slati podatke u druge zemlje, stoga može biti korisno zamijeniti sve umlaute u tablici. Zamijenite ä s ae, ö s oe itd.
Naravno, to možete učiniti ponovnim pozivanjem funkcije EDIT - REPLACE. Ali to je mnogo posla. Ako želite zamijeniti sva tri umlauta ä, ö i ü velikim i malim slovima, kao i ß, morate izvesti sedam operacija zamjene zaredom.
Lakše je s makronaredbom. Evo odgovarajućeg programskog koda:
Sub ReplaceUmlauts ()
Dim Cell As Range
S aplikacijom.Funkcija radnog lista
Za svaku odabranu ćeliju
Ćelija.Vrijednost = .Zamijeniti (. Zamijeniti (. Zamijeniti (. Zamijeniti (_
.Zamijeniti (. Zamijeniti (. Zamijeniti (Ćelija.Vrijednost, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Sljedeća ćelija
Završi s
Kraj podm
Makro ugniježđuje odgovarajuće pozive zamjene putem funkcije Zamjene jedno u drugo. Ovo je engleski naziv funkcije tablice REPLACE.
Da biste koristili makronaredbu, najprije odaberite ćelije u kojima želite zamijeniti umlaute, a zatim pozovite makronaredbu. Sljedeća slika prikazuje kako tablica s umlautima izgleda nakon pokretanja makronaredbe:
