contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
25 Oca 2012

Excelde Ceviri, Translate (Google)

//
Yorumlar7
/
Etiketler,

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

7 % yanıt

  1. Pingback : Tum Gonderiler | Excel VBA Macro Egitim Sitesi

  2. Hüseyin

    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. huseyinkasirga

      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.

  3. Pingback : ExcelTR Gonderiler | Excel Blogu

Cevap bırakın


5 + 6 =