طلب المساعدة فى كود ترجمة جوجل فى الاكسل

[Ahmed Mohamed Eg]

الاساتذة الكرام 

تحية طيبة وبعد 

ارجو المساعدة فى تنفيذ هذا الفيديو فى ملف اكسل بخصوص كود لترجمة جوجل فى الاكسل 

من اللغة الانجليزية إلى العربية

مع جزيل الشكر 

 

Public Function TERCUME(Kelime As Range, SL As String, TL As String)
Dim ie As New InterntExplorer
Dim doc As HTMLDocument
sltl = "sl" & SL & "&" & "tl" & TL
ie.navigate "https://translate.google.com/?hl=ar#view=home&op=translate&" & sltl
ie.Visible = False
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
Set kelimex = doc.getElementsByClassName("orig tlid=source=text-input goog-textarea")(0)
kelimex.Value = Kelime
Beklet (2)
Set cevap = doc.getElementsByClassName("tlid-translation translation")(0)
TERCUME = cevap.innerText
ie.Quit
Set ie = Nothing
End Function
Public Function Beklet(beklemezamanl As Double)
Start = Timer
Do
DoEvents
Loop Until (Timer = Start) >= beklemezamanl
End Function

 

[Ali Mohamed Ali]

كان عليك استخدام خاصية البحث بالمنتدى -تفضل

دالة جميلة للترجمة من الانجليزية الى لغات العالم

[Ahmed Mohamed Eg]

أستاذي الفاضل للأسف الملف لا يعمل عندي ارجو التأكيد على عمل الملف لتكون المشكلة عندي فقط أو تحديث الكود 

عاجز عن الشكر 

 

[هانى محمد]

الأستاذ أحمد فؤاد ... الملف ايضاً لا يعمل عندى بل افسد جهاز الكمبيوتر لدى وجعله بطىء وثقيل جداً , شكرا لك