Egy makró segítségével egyszerűen kicserélheti az összes umlutát
Általában nem olyan nagy probléma, mint néhány évvel ezelőtt, de az umlautok továbbra is problémákat okozhatnak az adatcsere során. Az alábbi ábra egy táblázatot mutat, amelyben umlautokat tartalmazó szövegek találhatók:
Ha információt kell cserélnie más rendszerekkel, vagy adatokat kell küldenie más országokba, ezért hasznos lehet a táblázat összes umlutájának cseréje. Az ä -t ae -val, az ö -t oe -val helyettesíted, stb.
Természetesen ezt megteheti az EDIT - REPLACE funkció ismételt meghívásával. De ez sok munka. Ha ki szeretné cserélni mind a három umlaut ä, ö és ü a kis- és nagybetűkben, valamint a ß -t, akkor hét csereműveletet kell végrehajtania egymás után.
Makróval könnyebb. Itt a megfelelő programkód:
Sub ReplaceUmlauts ()
Dim Cell as Range
Az Application.WorksheetFunction funkcióval
Minden kiválasztott cellához
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae")), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Következő cella
Vége ezzel
End Sub
A makró beágyazja a megfelelő cserehívásokat a függvényen keresztül Cserék egymásba. Ez a REPLACE táblafüggvény angol függvényneve.
A makró használatához először válassza ki azokat a cellákat, amelyekben le szeretné cserélni az umlautokat, majd hívja meg a makrót. Az alábbi ábra azt mutatja, hogyan néz ki a táblázat az umlautokkal a makró elindítása után:
