Транслитерация за 1 минуту в Excel #excel #shorts #easy_excel #petrstarr

Показать описание

Транслитерация 📥📤 за 1 минуту.

Транслитерация - это замена русских букв на латинские.

Чтобы не решать эту задачу вручную, можно написать небольшую пользовательскую функцию.

❓ Как это сделать?

🔸 Нажимаем ALT+F11 и вызываем редактор Visual Basic.
🔸 Нажимаем на элемент меню "Insert", выбираем "Module".

В приложенном файле код функции, который нужно скопировать (при необходимости нужно заменить буквы)

🔸 Нажимаем CTRL+A выделяем весь код. Далее нажимаем CTRL+C копируем содержимое.
🔸 Нажимаем на область пустого окна "Module". Вставляем скопированный текст горячими клавишами CTRL+V. Закрываем окно редактора.

🔹Выделяем ячейку, где будет наша формула.
🔹 Переходим на вкладку "Формулы".
🔹 Нажимаем на кнопку "Вставить функцию".
🔹 В открывающемся окне в поле "Категория", выбираем из списка "Определенные пользователем".
🔹 Созданная функция называется Transliter. Выбираем ее и нажимаем "ОК".
🔹Выбираем ячейку с текстом для перевода, подтверждаем "ОК".

И все готово, протягиваем формулу к оставшемуся списку.

Формула:
Function Transliter(x As String) As String
cyr = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
lat = Array("", "a", "b", "v", "g", "d", "e", "e", "zh", "z", "i", "y", "k", _
"l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", _
"sh", "sch", "y", "y", "", "e", "yu", "ya")
For i = 1 To 33
x = Replace(x, Mid(cyr, i, 1), lat(i), , , vbBinaryCompare)
x = Replace(x, UCase(Mid(cyr, i, 1)), StrConv(lat(i), vbProperCase), , , vbBinaryCompare)
Next
Transliter = x
End Function