Coding Translate dengan VBA Macro Excel

Hai sahabat Excel-ID ada beberapa pertanyaan yang masuk kedalam komentar dan melalui email bahwa menanyakan bagaimana seh cara membuat google translate dengan excel menggunakan fasilitas VBA? Jadi intinya kita memasukan datanya kedalam kolom untuk ditranslate sehingga hasil dari terjemahan atau translate langsung bisa dilihat pada sheet yang telah ditentukan kolomnya.

Okeh langsung saja berikut adalah coding untuk translate google dengan menggunakan 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 seperti ini









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

Demikian semoga bermanfaat dan bisa membantu.

Related

Macro Excel VBA 8816453685756399886

Posting Komentar

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item