TOP

Traslitterazione dall'ucraino all'inglese

Descrizione

Se devi tradurre spesso il cirillico in translit, allora questa funzione fa al caso tuo.


Codice VBA per la funzione TRANSLIT

Apri l'editor Visual Basic (Alt + F11), inserire un nuovo modulo software vuoto (Insert - Module) e copia lì il testo di questa funzione:

  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  

Adesso su qualsiasi foglio di questo libro è possibile utilizzare questa funzione inserendola tramite il menù Inserisci - Funzione , categoria Definito dall'utente (User defined) :

Articoli sull'argomento: