إبراهيم ابوليله قام بنشر أكتوبر 16, 2012 مشاركة قام بنشر أكتوبر 16, 2012 الاخوه الافاضل تحيه طيبه وبعد اريد كود يحل محل المعادله الموجوده فى العمود P او كود يقوم بنفس العمل التى تقوم به المعادلهمعادله الى كود.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 17, 2012 مشاركة قام بنشر أكتوبر 17, 2012 السلام عليكم Sub Al_S() Dim Rn As Range For Each Rn In Range("M5:O" & Cells(Rows.Count, 2).End(xlUp).Row).Rows If Application.Sum(Rn.Value) > 1 Then Cells(Rn.Row, "P") = 1 ElseIf Application.Sum(Rn.Offset(0, -9).Value) <> "" Then Cells(Rn.Row, "P") = 2 ElseIf Application.Sum(Rn.Value) > 0 Then Cells(Rn.Row, "P") = "" End If Next End Sub رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أكتوبر 17, 2012 الكاتب مشاركة قام بنشر أكتوبر 17, 2012 الاخ عباد وعليكم السلام ورحمه الله وبركاته مشكورا على المحاوله ولكن من الواضح ان الكود يعطى الرقم 2 بغض النظر عن وجود مبالغ فى العمود G مع ان المعادله لاتعطى الرقم 2 الا اذا كان (G8<>"",2, ارجو تعديل الكود رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 17, 2012 مشاركة قام بنشر أكتوبر 17, 2012 نتائج الكود تطابق نتائج المعادلة التي في العامود P شاهد المرفقات معادله الى كود.xlsx_A_1.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 17, 2012 مشاركة قام بنشر أكتوبر 17, 2012 إبراهيم باشا تقبل تحياتى ياريت لو توضح فى المشاركة نفسها (بالإضافة للمرفق) المعادلة المطلوب العمل عليها و الهدف منها وذلك لوجود مشاكل فى التحميل كما أن كثير من شبكات النت حالياً تستخدم نظام حدود الداونلوود رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 17, 2012 مشاركة قام بنشر أكتوبر 17, 2012 عباد ابو نصار بك دمت بود تقبل تحياتى وتقديرى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان