تلميذ الاكسل قام بنشر مايو 16, 2004 قام بنشر مايو 16, 2004 السلام عليكم ورحمة الله وبركاته يوجد لدي كود في خليه يظهر مجموع الادخالات في الخلايا بعد ضربها ثم جمعها كالتالي : =E4*10+F4*9+G4*8+H4*7 المطلوب هو كيف يمكن جعل مجموع الخليه التي تظهرالمجموع لا يتجاوز العدد ( 90 ) مثلاً واذا تجاوز هذا العدد يتم الخصم من الخلايا السابقه بالترتيب ابتداء من أول خليه ( لانه من الممكن ان تكون الخليه الأولى تحتوي على رقم أقل من الرقم المراد خصمه ) فإذا كانت الخليه الأولى لاتحوي العدد الكافي لخصمه ينتقل للخلية التاليه وهكذا حتى يتم الخصم من المدخلات اتمنى أكون وضحت الفكره 0
محمد طاهر عرفه قام بنشر مايو 16, 2004 قام بنشر مايو 16, 2004 (معدل) تم تعديل الكود فى هذه المشاركة فى مشاركة لاحقة و تم ارفاق ملف جديد تم تعديل مايو 17, 2004 بواسطه محمد طاهر
حسام نور قام بنشر مايو 17, 2004 قام بنشر مايو 17, 2004 - نسعد حقاً بأن يكون بيننا مثل هذه الخبرات .. دمت لنا ودام لنا علمك الواسع أستاذنا الكبير محمد طاهر
تلميذ الاكسل قام بنشر مايو 17, 2004 الكاتب قام بنشر مايو 17, 2004 استاذنا الفاضل / محمد طاهر شاكر لك جهدك وتفضلك بالرد على موضوعي وأرجو ان يتسع صدرك لتكرار السؤال في الحقيقه طبقت الماكرو ولكن لم تكن النتيجه بالشكل المطلوب وأرفق لك مثال مشروح فيه الطريقه الكامله قبل وبعد تطبيق الماكرو .. تحياتي تنزيل المثال الملف مضغوط بالون رار
محمد طاهر عرفه قام بنشر مايو 17, 2004 قام بنشر مايو 17, 2004 حسب ما فهمت من شرحك الأخير الكود لن يتدخل فى ناتج معادلة التقييم و انما يتدخل فى عدد الطلقات لتغيير مجموعها فقط قف فى الخلية التي بها مجموع الطلقات و شغل الماكرو التالي Sub koko() Dim kk, m1, m2, m3, m4 As Integer m1 = ActiveCell.Offset(0, -4).Value m2 = ActiveCell.Offset(0, -3).Value m3 = ActiveCell.Offset(0, -2).Value m4 = ActiveCell.Offset(0, -1).Value kk = m1 + m2 + m3 + m4 If kk > 80 Then Dim kkk As Integer kkk = kk - 80 Select Case kkk Case Is < m1 ActiveCell.Offset(0, -4).Value = (m1 - kkk) Case Is < (m1 + m2) ActiveCell.Offset(0, -4).Value = 0 ActiveCell.Offset(0, -3).Value = (m1 + m2 - kkk) Case Is < (m1 + m2 + m3) ActiveCell.Offset(0, -4).Value = 0 ActiveCell.Offset(0, -3).Value = 0 ActiveCell.Offset(0, -2).Value = (m1 + m2 + m3 - kkk) Case Is < (m1 + m2 + m3 + m4) ActiveCell.Offset(0, -4).Value = 0 ActiveCell.Offset(0, -3).Value = 0 ActiveCell.Offset(0, -2).Value = 0 ActiveCell.Offset(0, -1).Value = (m1 + m2 + m3 + m4 - kkk) End Select End If End Sub
تلميذ الاكسل قام بنشر مايو 17, 2004 الكاتب قام بنشر مايو 17, 2004 (معدل) نعم استاذنا الفاضل كان التعديل الاخير هو المطلوب لانه عند تعديل خانة الجمع تعمل بقية الخلايا بالشكل المطلوب ..بقي سؤال أخير وهو كيف يمكن تشغيل الماكرو في اكثر من خليه دفعه واحده ؟؟ شاكر لك جهدك وفقك الله وجعله في موازين حسناتك . تحياتي تم تعديل مايو 17, 2004 بواسطه تلميذ الاكسل
محمد طاهر عرفه قام بنشر مايو 17, 2004 قام بنشر مايو 17, 2004 ـم التعديل فى الملف المرفق علي ملفك لتعمل المعادلة علي كل السجلات اختار الخلايا الصفراء التي بها المجموع من أعلي الي أسفل ثم شغل الماكرو مع تحياتي ghost-EquationItems.rar
تلميذ الاكسل قام بنشر مايو 17, 2004 الكاتب قام بنشر مايو 17, 2004 استاذنا الفاضل ( محمد طاهر ) لانملك الا ان ندعي لك بدوام الصحه والعافيه وطول العمر في طاعة الله جزاك الله كل خير وجعل ماتقدمه من مساعده في موازين حسناتك .. تحياتي وشكري وتقديري
حسام نور قام بنشر مايو 17, 2004 قام بنشر مايو 17, 2004 اكرر شكري واضم صوتي بالدعاء مراراً وتكراراً لمساعدته المستمره للآخرين
محمد طاهر عرفه قام بنشر مايو 19, 2004 قام بنشر مايو 19, 2004 أشكركما كثيرا أخي تلميذ الاكسيل تم اضافة شرح لكليفية تكرار الماكرو علي عدة خلايا هنا http://www.officena.net/ib/index.php?showtopic=3138
الردود الموصى بها