Найти тему
Easy - Excel, PQ

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

Подробное видео можете посмотреть по ссылке: https://dzen.ru/video/watch/6429e1f379f40c0d471cd3b4

Подписывайтесь на мой Телеграм канал, там много интересного и полезного контента: https://t.me/easy_xls

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

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

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

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


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

🔸 Нажимаем
CTRL+A выделяем весь код. Далее нажимаем CTRL+C копируем содержимое.

-2


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

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

-3


🔹 Созданная функция называется
Transliter. Выбираем ее и нажимаем "ОК".

-4


🔹Выбираем ячейку с текстом для перевода, подтверждаем
"ОК".

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

-5

Формула:
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