إبراهيم ابوليله قام بنشر أكتوبر 16, 2012 قام بنشر أكتوبر 16, 2012 الاخوه الافاضل تحيه طيبه وبعد اريد كود يحل محل المعادله الموجوده فى العمود P او كود يقوم بنفس العمل التى تقوم به المعادلهمعادله الى كود.rar
الـعيدروس قام بنشر أكتوبر 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
إبراهيم ابوليله قام بنشر أكتوبر 17, 2012 الكاتب قام بنشر أكتوبر 17, 2012 الاخ عباد وعليكم السلام ورحمه الله وبركاته مشكورا على المحاوله ولكن من الواضح ان الكود يعطى الرقم 2 بغض النظر عن وجود مبالغ فى العمود G مع ان المعادله لاتعطى الرقم 2 الا اذا كان (G8<>"",2, ارجو تعديل الكود
الـعيدروس قام بنشر أكتوبر 17, 2012 قام بنشر أكتوبر 17, 2012 نتائج الكود تطابق نتائج المعادلة التي في العامود P شاهد المرفقات معادله الى كود.xlsx_A_1.rar
يوسف عطا قام بنشر أكتوبر 17, 2012 قام بنشر أكتوبر 17, 2012 إبراهيم باشا تقبل تحياتى ياريت لو توضح فى المشاركة نفسها (بالإضافة للمرفق) المعادلة المطلوب العمل عليها و الهدف منها وذلك لوجود مشاكل فى التحميل كما أن كثير من شبكات النت حالياً تستخدم نظام حدود الداونلوود
يوسف عطا قام بنشر أكتوبر 17, 2012 قام بنشر أكتوبر 17, 2012 عباد ابو نصار بك دمت بود تقبل تحياتى وتقديرى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.