لزهر مدلل قام بنشر أبريل 21, 2014 مشاركة قام بنشر أبريل 21, 2014 السلام عليكم قمت بتنزيل برنامج من المنتدى لتحويل المعادلات إلى أكواد و قمت بالتجربة فوجدته لا يحول معضمها المرفق به مثال لمعادلتين الأولى حولها بنجاح و الثانية بها خطأ مشكورين كود تحويل المعادلات الي اكواد- للاستاذ عباد.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 21, 2014 مشاركة قام بنشر أبريل 21, 2014 () Sub Ali_Formola ("(Sheets("Sheet1").Range("A3") = Evaluate("=SUM(A1:A2 ("(Sheets("Sheet1").Range("D3") = Evaluate("=EOMONTH(D1,-1 End Sub اكتب فاصلة في الموضع الأحمر رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر أبريل 21, 2014 الكاتب مشاركة قام بنشر أبريل 21, 2014 مشكور أخي الكريم لكن هناك مشكل في ملف آخر عندي أرجو تصحيحه المرفقات الملف الأصلي به المعادلات + الملف بعد التحويل و به الخطأ مشكورين Book1.rar رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر أبريل 22, 2014 الكاتب مشاركة قام بنشر أبريل 22, 2014 (معدل) للرفع للعلم إذا كان الأوفيس إنجليزي قم بتغيير JJJJ إلى DDDD التي تعني day و vendredi samedi إلى الجمعة و السبت لأن الأوفيس لدي فرنسي مشكورين تم تعديل أبريل 22, 2014 بواسطه medellel رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر أبريل 23, 2014 الكاتب مشاركة قام بنشر أبريل 23, 2014 السلام عليكم قمت بتغيير ; إلى , في في كل السطور في الكود كما دلنا عليها أخونا سليم حاصبيا لكن النتيجة في العمودين أصبحت 1 و في الأصل النتيجة تساوي 1 بشرط اليوم لا يساوي جمعة أو سبت و إذا كان يساويهما فالنتيجة 0 وفقكم الله أنظر المرفقات Lazhar.rar رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر أبريل 23, 2014 مشاركة قام بنشر أبريل 23, 2014 يسر الله مرك . رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 23, 2014 مشاركة قام بنشر أبريل 23, 2014 لقد كان الخطأ فقط في السطر الذي ارسلته لك سامحك الله ارجع كل شيئ كما كان ما عدا السطر المرسل نصيحة اعمل دائماً نسخة احتياطية في هكذا اشياء قبل الاقدام على اي تغيير رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر أبريل 23, 2014 الكاتب مشاركة قام بنشر أبريل 23, 2014 اخي الكريم سليم حاصبيا الخطأ كان من برنامج تحويل المعادلات إلى أكواد و عند تحويل المعادلات إلى أكواد و تطبيق الكود تكون النتيجة خطأ أرسلت لك نموذج من هذا الخطأ و عند ردك فهمت أن المشكلة في ; في الكل و قمت بتغييرها فنجحت معضمها إلا واحدة المهم سأرسل لك الملف قبل التحويل و بعد التحويل من دون أن أغير فيه شيئا لتنظر أين الخطأ أنت و الإخوة الكرام و بارك الله فيكم للعلم الملفين فيهما البرنامج الذي يحول المعادلات إلى أكواد أرجوا أنك فهمتني أخي الكريم 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 رابط هذا التعليق شارك 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.