Логотип
Надстройка VBA-Excel
Надстройка удобная, понятная. Активно использую. Автор оперативно отвечает на вопросы, за что ему спасибо!
Артем

Функция транслитерации в Excel

Функция ТРАНСЛИТ выполняет транслитерацию текста из кириллицы в латиницу.

 

Добавить в Excel!

Установите программу

*Этого функционала нет в стандартном Excel

 Скачали:  32 471 чел.

Описание функции

Функция =ТРАНСЛИТ(ТЕКСТ) имеет всего один аргумент

  • ТЕКСТ - строка (или ссылка на ячейку), к которой необходимо применить транслитерацию текста.

Пример

Следующий пример демонстрирует работу данной функции:

Пример функции ТРАНСЛИТ

Код на VBA

Public Function ТРАНСЛИТ(ТЕКСТ As String) As String
    Dim Rus As Variant, Eng As Variant
    Dim i As Long, j As Integer
    Dim simb As String
    Dim FindRus As Boolean
    Dim simbtrans As String
    Dim MergeText As String
 
    Rus = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", "щ", "ъ", "ы", "ь", "э", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я")
    Eng = Array("a", "b", "v", "g", "d", "e", "jo", "zh", "z", "i", "j", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", "sh", "sch", "''", "y", "'", "e", "yu", "ya", "A", "B", "V", "G", "D", "E", "JO", "ZH", "Z", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "KH", "TS", "CH", "SH", "SCH", "''", "Y", "'", "E", "YU", "YA")
 
    For i = 1 To Len(ТЕКСТ)
        simb = Mid(ТЕКСТ, i, 1)
        FindRus = False
        For j = 0 To 65
            If Rus(j) = simb Then
                simbtrans = Eng(j)
                FindRus = True
                Exit For
            End If
        Next
        If FindRus Then MergeText = MergeText & simbtrans Else MergeText = MergeText & simb
    Next
    ТРАНСЛИТ = MergeText
End Function

Установка

Обращаем Ваше внимание, что функционал, описанный в данной статье, ОТСУТСТВУЕТ в Excel.

Чтобы его добавить, необходимо установить надстройку VBA-Excel. Данная программа содержит более сотни функций, которые сделают работу с Excel в разы эффективней. С ней рутинные задачи будут занимать считанные секунды. Программой уже воспользовались 32 471 чел., попробуйте и Вы!


Установите программу

Ссылки по теме

  1. Удалить латинские буквы
  2. Как извлечь русские слова из ячейки Excel
  3. Проверка наличия русского текста в ячейке Excel
  4. Содержит ли ячейка Excel латиницу?
  5. Как изменить регистр букв в Excel
  6. Произнести текст ячейки Excel вслух
  7. Функция инверсии текста в Excel
  8. Как переводить текст в Excel с разных языков
  9. Заменить русские буквы на английские в Excel

Комментарии:

comments powered by Disqus