Можете лесно да замените всички умлаути с помощта на макрос
Обикновено това не е толкова голям проблем, колкото преди няколко години, но умлаутите все още могат да причинят проблеми при обмена на данни. Следващата фигура показва таблица с текстове, които съдържат умлаути:
Ако трябва да обменяте информация с други системи или да изпращате данни в други държави, следователно може да бъде полезно да замените всички умлаути в таблица. Заменяте ä с ае, ö с ое и т.н.
Разбира се, можете да направите това, като извиквате многократно функцията EDIT - REPLACE. Но това е много работа. Ако искате да замените и трите умлаута ä, ö и ü с главни и малки букви, както и с ß, трябва да извършите седем операции по подмяна.
По -лесно е с макрос. Ето подходящия код на програмата:
Sub ReplaceUmlauts ()
Dim Cell As Range
С Application.WorksheetFunction
За всяка избрана клетка
Cell.Vueue = .Sustitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Vueue, "ä", "ae"), _
„ö“, „oe“), „ü“, „ue“), „Ö“, „Oe“), „Ü“, „Ue“), „ß“, „ss“), _
"Ä", "Ae")
Следващата клетка
Край с
End Sub
Макросът влага подходящите повиквания за подмяна чрез функцията Заместители един в друг. Това е името на английската функция на табличната функция REPLACE.
За да използвате макроса, първо изберете клетките, в които искате да замените умлаутите, и след това извикайте макроса. Следващата фигура показва как изглежда таблицата с умлаутите след стартиране на макроса:
