Excelde Ceviri, Translate (Google)

Google`in Translate ozelligini bircogumuz biliyoruz, bunu excelde kullanmak isteyen arkadaslarimiz icin Zeki Gürsoy Beyin bu konudaki calismasini sizlerle paylasiyorum;

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 = "http://translate.google.com.tr"

    Set IE = CreateObject("InternetExplorer.Application")

    With IE
        .navigate URL

        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop

        .document.all("sl").Value = kaynak_dil
        .document.all("tl").Value = hedef_dil
        .document.all("text").Value = kaynak_metin
        .document.forms(0).submit

        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop

        res = .document.all("result_box").innertext

        .Quit
    End With

    Set IE = Nothing

    Translate = Replace(res, "...", "")
End Function

Bu konuda dikkatinizi cekmek istedigim bir konu da var, o da google`in bu translate ozelliginin her zaman dogru ceviriyi veremeyecegi yahut her zaman kastiniz olan kelimeyi algilayamayacagidir.

Ornegin;

=Translate(“masa“,”tr”,”en”) => Table

=Translate(“table“,”en”,”tr”) => Tablo

Tercume Translate Google

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Excelde Ceviri, Translate (Google)” için 7 yorum

  1. Merhaba. Öncelikle kod için teşekkürler. Fakat kodu çalışma kitabı için VBA editöre eklediğim halde fonksiyonlar listesinde “Translate” yer almıyor ve çalıştıramıyorum. Yardımcı olabilirseniz sevinirim.

    1. Merhaba Mustafa Bey,

      İlginiz ve örnek dosya için teşekkür ederim. Dosyada çalışıyor; sanırım kodu modül olarak değil de direk sayfa koduna eklediğim için çalışmadı bende. Tekrar teşekkür ederim.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


7 + 7 =