Ви можете легко замінити всі umlauts за допомогою макросу
Зазвичай це не така велика проблема, як кілька років тому, але умлаути все ще можуть викликати проблеми під час обміну даними. Наступний малюнок показує таблицю з текстами, що містять умлаути:
Якщо вам потрібно обмінятися інформацією з іншими системами або надіслати дані в інші країни, тому може бути корисно замінити всі умлаути в таблиці. Ви замінюєте ä на ае, ö на ое тощо.
Звичайно, ви можете зробити це, неодноразово викликаючи функцію EDIT - REPLACE. Але це багато роботи. Якщо ви хочете замінити всі три умлаута ä, ö та ü у верхньому та нижньому регістрі, а також ß, вам потрібно виконати сім операцій заміни поспіль.
З макросом простіше. Ось відповідний код програми:
Sub ReplaceUmlauts ()
Dim Cell As Range
З Application.WorksheetFunction
Для кожної вибраної клітинки
Ячейка. Значення =. Замінити (. Замінити (. Замінити (. Замінити (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Наступна клітина
Закінчити з
End Sub
Макрос вкладає відповідні виклики заміни за допомогою функції Запасні один в одного. Це англійська назва функції табличної функції REPLACE.
Щоб скористатися макросом, спочатку виберіть клітинки, в яких потрібно замінити умлаути, а потім викликайте макрос. Наступний малюнок показує, як виглядає таблиця з умлаутами після запуску макросу:
