Ahmed Mohamed Eg قام بنشر أكتوبر 26, 2020 مشاركة قام بنشر أكتوبر 26, 2020 الاساتذة الكرام تحية طيبة وبعد ارجو المساعدة فى تنفيذ هذا الفيديو فى ملف اكسل بخصوص كود لترجمة جوجل فى الاكسل من اللغة الانجليزية إلى العربية مع جزيل الشكر 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 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر أكتوبر 26, 2020 أفضل إجابة مشاركة قام بنشر أكتوبر 26, 2020 كان عليك استخدام خاصية البحث بالمنتدى -تفضل دالة جميلة للترجمة من الانجليزية الى لغات العالم 2 رابط هذا التعليق شارك More sharing options...
Ahmed Mohamed Eg قام بنشر أكتوبر 27, 2020 الكاتب مشاركة قام بنشر أكتوبر 27, 2020 أستاذي الفاضل للأسف الملف لا يعمل عندي ارجو التأكيد على عمل الملف لتكون المشكلة عندي فقط أو تحديث الكود عاجز عن الشكر رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر أكتوبر 27, 2020 مشاركة قام بنشر أكتوبر 27, 2020 الأستاذ أحمد فؤاد ... الملف ايضاً لا يعمل عندى بل افسد جهاز الكمبيوتر لدى وجعله بطىء وثقيل جداً , شكرا لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.