Veriyi başka dile çevirmek

[işsiz123]

Arkadaşlar merhabalar A:A sutununda adı soyadı bulunmakta B:B sutununa isimlerin arapçasını yazmasını istiyorum. Kişi isimleri 1000 kişi falan var tek tek zor.

 

[Ömer]

Merhaba,

Linki inceleyin.

http://www.excel.web.tr/f125/google-translate-ile-ceviri-t106179.html

.

 

[programer]

Merhaba

Aşağıdaki linkteki yazı fontunu ekleseseniz istediğiniz olur.

http://www.dafont.com/afarat-ibn-blady.font

 

[işsiz123]

Merhaba

Aşağıdaki linkteki yazı fontunu ekleseseniz istediğiniz olur.

http://www.dafont.com/afarat-ibn-blady.font

Teşekkürler Bu şekilde sadece fontunu değiştiriyor cümle anlamını bozuyor.

 

[işsiz123]

Merhaba,

Linki inceleyin.

http://www.excel.web.tr/f125/google-translate-ile-ceviri-t106179.html

.

Ömer bey teşekkürler Güzel bir çalışma lakin ben çalıştıramadım.

http://s9.dosya.tc/server2/94g28g/Ekran_Alintisi.PNG.html
Resim e göre uyarlamanız mümkün mü? Saygılar

 

[işsiz123]

Konu güncel

 

[Ömer]

Aşağıdaki kodları kullanın.

Translate_Test kodunu butona bağlarsınız.

Sub Translate_Test()

    Dim i As Long
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Translate(Cells(i, "A"), "tr", "ar")
    Next i
    
End Sub

Function Translate(kaynak_metin As String, _
          Optional kaynak_dil As String = "tr", _
          Optional hedef_dil As String = "en") As String
          
    Dim IE As Object, URL As String, res As String

    URL = "https://translate.google.com/#" & kaynak_dil & "/" & hedef_dil & "/" & kaynak_metin
    
    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .navigate URL
        
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop

        res = .Document.all("result_box").innerText
        .Quit
    End With

    Translate = Replace(res, "...", "")
    
    Set IE = Nothing
    
End Function

.

 

[işsiz123]

Teşekkürler konu çözülmüştür

 

[igultekin2000]

ilave açıklama

Aşağıdaki kodları kullanın.

Translate_Test kodunu butona bağlarsınız.

Sub Translate_Test()

    Dim i As Long
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Translate(Cells(i, "A"), "tr", "ar")
    Next i
    
End Sub

Function Translate(kaynak_metin As String, _
          Optional kaynak_dil As String = "tr", _
          Optional hedef_dil As String = "en") As String
          
    Dim IE As Object, URL As String, res As String

    URL = "https://translate.google.com/#" & kaynak_dil & "/" & hedef_dil & "/" & kaynak_metin
    
    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .navigate URL
        
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop

        res = .Document.all("result_box").innerText
        .Quit
    End With

    Translate = Replace(res, "...", "")
    
    Set IE = Nothing
    
End Function

.

pratik bir kat ama işaretlileri baz alan süzme ilave olsa daha kullanışlı olurdu. uzun listelerde de rahat rahat kullanılır.