TOP

우크라이나어에서 영어로 음역

YouLibreCalc for Excel logo

설명

키릴 문자를 음역으로 자주 번역해야 하는 경우 이 기능이 적합합니다.


TRANSLIT 함수에 대한 VBA 코드

Visual Basic 편집기(Alt + F11)를 열고, 새로운 빈 소프트웨어 모듈을 삽입하세요 (Insert - Module) 거기에 이 함수의 텍스트를 복사합니다.

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

이제 이 책의 어느 시트에나 메뉴를 통해 이 기능을 삽입하여 사용할 수 있습니다. 삽입 - 기능 , 범주 사용자 정의 (User defined) :

주제에 관한 기사: