Coding Translate Dengan Vba Macro Excel

Hai sobat Excel-ID ada beberapa pertanyaan yang masuk kedalam komentar dan melalui email bahwa menanyakan bagaimana seh cara menciptakan google translate dengan excel memakai akomodasi VBA? Makara pada dasarnya kita memasukan datanya kedalam kolom untuk ditranslate sehingga hasil dari terjemahan atau translate eksklusif dapat dilihat pada sheet yang telah ditentukan kolomnya.

Okeh eksklusif saja berikut yaitu coding untuk translate google dengan memakai VBA

Sub KodingTranslate()
' Tools Referensi kontrol IE


Dim ie As Object, i As Long
Dim inputstring As String, outputstring As String, text_to_convert As String, result_data As String, CLEAN_DATA

Set ie = CreateObject("InternetExplorer.application")
        '   Memilih Input bahasa
    If Sheets(1).ComboBox1.Value = "Detect" Then
        inputstring = "auto"
    Else
        inputstring = Application.WorksheetFunction.VLookup(Sheets(1).ComboBox1.Value, Sheets("Country List").Range("a:b"), 2, 0)
    End If
        '   Memilih Output bahasa
    If Sheet1.ComboBox2.Value = "English" Then
        outputstring = "en"
    Else
        outputstring = Application.WorksheetFunction.VLookup(Sheets(1).ComboBox2.Value, Sheets("Country List").Range("a:b"), 2, 0)
    End If

    text_to_convert = Sheets("Translator").Range("b6").Value

 'Membuka Website google translate

    ie.Visible = False
    ie.navigate "http://translate.google.com/#" & inputstring & "/" & outputstring & "/" & text_to_convert
  
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
    Application.Wait (Now + TimeValue("0:00:5"))
   
    Do Until ie.ReadyState = 4
        DoEvents
    Loop

    CLEAN_DATA = Split(Application.WorksheetFunction.Substitute(ie.Document.getElementById("result_box").innerHTML, "</SPAN>", ""), "<")

    For i = LBound(CLEAN_DATA) To UBound(CLEAN_DATA)
        result_data = result_data & Right(CLEAN_DATA(i), Len(CLEAN_DATA(i)) - InStr(CLEAN_DATA(i), ">"))
    Next
    Sheets("Translator").Range("L6").Value = ""
    Sheets("Translator").Range("L6").Value = result_data
    ie.Quit
    MsgBox "Berhasil", vbOKOnly
   
End Sub

Silakan desain formnya kira-kira menyerupai ini

Nah jadi Anda tinggal tuliskan kalimat yang akan ditranslate kemudian pilih bahasa input dan outputnya kemudian klik deh tombol TERJEMAHKAN dan lihat kesannya sudah diterjemahkan secara otomatis.

Demikian biar bermanfaat dan dapat membantu.

Related Posts