TOP

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

Опис

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


VBA код для функції TRANSLIT

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

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

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

Статті по темі: