طلب تصحيح برنامج

[لزهر مدلل]

السلام عليكم

 

قمت بتنزيل برنامج من المنتدى لتحويل المعادلات إلى أكواد و قمت بالتجربة فوجدته لا يحول معضمها

 

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

 

مشكورين

كود تحويل المعادلات الي اكواد- للاستاذ عباد.rar

[سليم حاصبيا]

()   Sub Ali_Formola           

("(Sheets("Sheet1").Range("A3") = Evaluate("=SUM(A1:A2

("(Sheets("Sheet1").Range("D3") = Evaluate("=EOMONTH(D1,-1

 

End Sub

اكتب فاصلة في الموضع الأحمر

[لزهر مدلل]

مشكور أخي الكريم

 

لكن هناك مشكل في ملف آخر عندي أرجو تصحيحه

 

 

المرفقات الملف الأصلي به المعادلات + الملف بعد التحويل و به الخطأ

 

مشكورين

Book1.rar

[لزهر مدلل]

للرفع

 

للعلم إذا كان الأوفيس إنجليزي قم بتغيير JJJJ إلى DDDD التي تعني day و vendredi samedi إلى الجمعة و السبت لأن الأوفيس لدي فرنسي

 

مشكورين

تم تعديل أبريل 22, 2014 بواسطه medellel

[لزهر مدلل]

السلام عليكم

 

قمت بتغيير ; إلى , في في كل السطور في الكود كما دلنا عليها أخونا سليم حاصبيا لكن النتيجة في العمودين أصبحت 1

و في الأصل النتيجة تساوي 1 بشرط اليوم لا يساوي جمعة أو سبت و إذا كان يساويهما فالنتيجة 0

 

وفقكم الله

 

أنظر المرفقات

Lazhar.rar

[ا بو سليمان]

يسر الله مرك 

 

.

[سليم حاصبيا]

لقد كان الخطأ فقط في السطر الذي ارسلته لك

سامحك الله ارجع كل شيئ كما كان 

ما عدا السطر المرسل

نصيحة اعمل دائماً نسخة احتياطية في هكذا اشياء قبل الاقدام على اي تغيير

[لزهر مدلل]

اخي الكريم سليم حاصبيا

 

الخطأ كان من برنامج تحويل المعادلات إلى أكواد و عند تحويل المعادلات إلى أكواد و تطبيق الكود تكون النتيجة خطأ أرسلت لك نموذج من هذا الخطأ و عند ردك فهمت أن المشكلة في ; في الكل و قمت بتغييرها فنجحت معضمها إلا واحدة المهم سأرسل لك الملف قبل التحويل  و بعد التحويل من دون أن أغير فيه شيئا لتنظر أين الخطأ أنت و الإخوة الكرام و بارك الله فيكم

للعلم الملفين فيهما البرنامج الذي يحول المعادلات إلى أكواد

 

أرجوا أنك فهمتني أخي الكريم

Sheets("Medellel").Range("M12") = Evaluate("=IF(ROW()-11<=$W$2,IF(OR(TEXT($V$2+ROW()-13,""JJJJ"")=""vendredi"",TEXT($V$2+ROW()-13,""JJJJ"")=""samedi""),0,1),"""")")

أنظر المرفق

Lazhar.rar