pinkpanther قام بنشر مايو 7, 2008 مشاركة قام بنشر مايو 7, 2008 السلام عليكم شباب هل يوجد دالة او كود VBA يقوم بعمل التالي: ============================== هذه المعادلة راح نكتبها في A5 اذا A4 (وهي خليه متغيرة) اكبر من 10 إذن تضاف الى A5 ============================= مثال: لو افترضنا A4 = 400 و A5 = 0 النتيجة A5 = 400 لو تغيرت القيمة بـ A4 A4 = 100 A5 يجب ان تكون A5 = 500 لو تغيرت القيمة بـ A4 A4 = 50 A5 يجب أن تكون A5 = 550 ...الخ هل هذا ممكن؟ تحياتي لكم وبانتظار نصيحتكم Excel1.zip رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر مايو 7, 2008 مشاركة قام بنشر مايو 7, 2008 اخي الكريم السلام عليكم انظر المرفق واي استفسار اعلمني من فضلك ______________.rar رابط هذا التعليق شارك More sharing options...
arthouse2010 قام بنشر مايو 9, 2008 مشاركة قام بنشر مايو 9, 2008 ممكن شرح الكود الخاص بتجميع بشرط ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر مايو 10, 2008 مشاركة قام بنشر مايو 10, 2008 اخي الكريم السلام عليكم Private Sub Worksheet_Calculate() Worksheet_Change Range("A4") End Sub Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim My_Value If Target.Address = "$A$4" And Range("A4") > 10 Then Range("A4").Select My_Value = ActiveCell.Value Range("A5").Select ActiveCell.FormulaR1C1 = ActiveCell.Value + My_Value End If End Sub اخي الكريم في الفقرة الاولى يتم تحديد الخلية التي سيتم تغيير المدخلات عليها في الفقرة الثانية يتم تحديد الشرط وهو حسب ما طلب الاخ pinkpanther ان يكون اكبر من 10 نقوم بعدها بادخال المتغير فاذا وافق الشرط ستم اضافة الرقم للخلية A5 وهكذا في السطر الاخير يقوم الكود بجمع ما في الخلية A5 مع المدخل الجديد من A4 واي استفسار اعلمني من فضلك رابط هذا التعليق شارك More sharing options...
pinkpanther قام بنشر مايو 13, 2008 الكاتب مشاركة قام بنشر مايو 13, 2008 السلام عليكم .... نزار أولا : آسف على التأخر بالرد ... ثانيا : ألف ألف ألف شكر لك ... فعلا هذا هو المطلوب ... عندي ملاحظة بسيطة : لو اردنا أن نطبق الكود على ثلاث خلايا لنحصل على ثلاث نتائج كما في المرفقات كيف يتم تعديل اول الكود ليشمل الثلاث الخلايا B2 و B3 و B4 Private Sub Worksheet_Calculate() Worksheet_Change Range("B2") End Sub تحياتي لك P2.zip رابط هذا التعليق شارك More sharing options...
pinkpanther قام بنشر مايو 14, 2008 الكاتب مشاركة قام بنشر مايو 14, 2008 بانتظار ردكم اخواني ... رابط هذا التعليق شارك More sharing options...
pinkpanther قام بنشر مايو 14, 2008 الكاتب مشاركة قام بنشر مايو 14, 2008 مازلت بنتظار مساعدتكم رابط هذا التعليق شارك More sharing options...
pinkpanther قام بنشر مايو 15, 2008 الكاتب مشاركة قام بنشر مايو 15, 2008 مازلت بنتظارك اخي نزار رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر مايو 15, 2008 مشاركة قام بنشر مايو 15, 2008 اخي الكريم السلام عليكم انا شاهدت الملف ولكن لم افهم ما تقصده بالتعديل ولكن انظر للمرفق هل هذا ما تقصده P2.rar رابط هذا التعليق شارك More sharing options...
pinkpanther قام بنشر مايو 16, 2008 الكاتب مشاركة قام بنشر مايو 16, 2008 هلا فيك اخي نزار شكرا لتفاعلك مع موضوعي الملف الذي ارفقته فعلا هذا هو المطلوب لكن اواجه مشكلة في الملف المشكلة هي : لو فرضنا ان الخلايا في B مربوطة بالخلايا C فان الكود لا يعمل بكفائة مثال: ادخل رقم 12 في الخلية C1 خليه A1 تكون 12 ولو ادخلنا رقم 12 في الخليه C2 خليه A2 يجب أن تكون 12 لكن تجد نتيجة A1 تغيرت وهي مالها دخل بالموضوع ! اتمنى ان اجد منك المساعدة تحياتي لك P2.zip رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر مايو 17, 2008 مشاركة قام بنشر مايو 17, 2008 اخي الكريم السلام عليكم انظر للمرفق بعد التعديل واي استفسار اعلمني من فضلك P2.rar رابط هذا التعليق شارك More sharing options...
pinkpanther قام بنشر مايو 17, 2008 الكاتب مشاركة قام بنشر مايو 17, 2008 مرررررررررررررررررررسيه اخوي نزار الان يعمل بكفائة شكرا لك ... وجزاك الله الف الف الف خير تحياتي لك رابط هذا التعليق شارك 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.