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

[شوقي ربيع]

السلام عليكم

وجدة كود خاص بالترجمة الفورية للكلمات في احد المواقع الاحنبية واردة نشره في المنتدى لتعم الفائدة على الجميع لاكن

الكود به خلل او نقص ما وحاولة جاهدا لكتشافه ومع الاسف لم اصل لحل

هدا المرفق به االاكواد الخاصة بهته الدالة

اول شى لازم تفعيل

Microsoft HTML Object Library
 Microsoft Internet Controls 

من Qutils
Références-VBAProject

لان الكود يعمل بالنت

عند كتابة تساوي (=) في اي خلية ثم الحرف  t تضهر لكم الدالة باسم traduction

ارجو من اعضاء المنتدى خاصتا عباقرة الاكواد التوصل الى حل ما نضرا لجمال الفكرة

وشكرا

traduire cette valeur.rar

تم تعديل مارس 17, 2013 بواسطه hoorabie

[شوقي ربيع]

هده ترجمة لمحتويات الكود

 

traduire cette valeur -.rar

تم تعديل مارس 17, 2013 بواسطه hoorabie

[شوقي ربيع]

للرقع

[احمد عبد الناصر]

السلام عليكم

 

الكود يعمل معي كلاتي

 

- اكتب اي كلمة باي لغة غير العربية . مثلا  cat

-كليك يمين و اختارمن traduire cette valeur  

auto detect

-تتحول cat الي قط

 

 

تحياتي

[شوقي ربيع]

السلام عليكم

شكرا جزيلا اخي احمد لم اتصور الامر بهده البصاطة يبدو اني اسأت فهم الكود

 

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

ملاحضة

يجب تفعيل

Microsoft HTML Object Library
Microsoft Internet Controls

من Qutils
Références-VBAProject

 

طريقة عمل الدالة هي كليك يمين على اي خلية بها نص

من traduire cette valeur  اختر اللغة التي تريد الترجمة اليها بعد لاحضات قليلة  سوف يترجم النص في نفس الخلية

 

 و ان أردت أن تضهر الترجمة في خلية اخرى قبل ان تقوم الداة بالترجمة ادهب الى الخلية التي تريد ان تضهر بها الترجمة فقط

 

traduire cette valeur.rar

[حمادة عمر]

السلام عليكم

راائع خي احمد عبد الناصر

والشكر موصول لاخونا / ربيع ...

علي اضافته الجميله

جزاكم الله خيرا