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
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.
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.
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.
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
- Membatasi Jumlah Huruf Pada Cell Dengan Vba (Not Validation)Hai, sobat EXCEL-ID pada kesempatan kali ini aku akan menulis bagaimana caranya membatasi jumlah abjad maksimum yang bisa dimasukan atau diketikkan o ...
- Cara Menampilkan Pesan Jikalau Data Yang Dientrikan Ganda (Double)Mengolah daya Ms. Excel tak terlepas dari entry data secara vertikal hal ini dinamakan dengan data satu field. Biasanya Anda entri data yang banyak m ...
- Cara Menampilkan Path File Pada Textbox UserformFile intinya mempunyai daerah lokasi penyimpanan entah itu di MyDocument, Drive D, Drive E atau pada folder yang ada di drive tertentu atau berada di ...
- 32 Jenis Isyarat Vba (Macro) Excel Yang Perlu Diketahui Hai, sobat Excel-ID jikalau Anda sedang mencar ilmu VBA (Macro) Excel tentunya perlu donk acuan untuk menambah wawasan dan pengetahui mengenai codi ...
- Autofill Rumus Otomatis Dengan Vba MacroPengola Ms. Excel dimanjakan dengan banyak sekali fitur dan kemudahan yang disediakan oleh Microsoft itu sendiri begitu banyak fitur yang belum diket ...
- Cara Menciptakan File .Txt Dengan Macro VbaHallo sahabat Excel-ID usang tidak posting artikel wacana Excel, jadi sebelum aku memulai untuk menulis artikel ini aku mohon maaf sebab kesibukan di ...
