Транслітерація з української на англійську

Якщо Вам часто доводиться перекладати кирилицю в трансліт, то ця функція - для Вас.

Відкрийте редактор Visual Basic (Alt + F11), вставте новий порожній програмний модуль (Insert - Module) і скопіюйте туди текст цієї функції:

Function Translit(Txt As String) As String
 	'moonexcel.com.ua
    Dim Ukr As Variant
    Ukr = Array("а", "б", "в", "г", "д", "е", "є", "ж", "з", "і", "ї", "й", "к", _
    "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", _
    "щ", "и", "ь", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", _
    "Є", "Ж", "З", "И", "Ї", "Й", "К", "Л", "М", "Н", "О", "П", "Р", _
    "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "И", "Ь", "Ю", "Я", " ", "'")
    Dim Eng As Variant
    Eng = Array("a", "b", "v", "g", "d", "e", "je", "zh", "z", "i", "ji", "j", _
    "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", _
    "sh", "sch", "y", "'", "yu", "ya", "A", "B", "V", "G", "D", _
    "E", "Je", "Zh", "Z", "I", "Ji", "J", "K", "L", "M", "N", "O", "P", "R", _
    "S", "T", "U", "F", "Kh", "Ts", "Ch", "Sh", "Sch", "Y", "'", "Yu", "Ya", " ", "j")
    
    For I = 1 To Len(Txt)
        с = Mid(Txt, I, 1)
    
        flag = 0
        For J = 0 To 65
            If Ukr(J) = с Then
                outchr = Eng(J)
                flag = 1
                Exit For
            End If
        Next J
        If flag Then outstr = outstr & outchr Else outstr = outstr & с
    Next I
    
    Translit = outstr
    
End Function


Тепер на будь-якому аркуші цієї книги Ви можете використовувати цю функцію, вставивши її через меню Вставка - Функція, категорія Визначені користувачем (User defined):