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