تغيير معادلة SUMIFS الي اكواد VBA

[محمدحسني احمد]

السادة الافاضل

ارجو منكم المساعدة وذلك لتغير المعادلات الي اكواد vba وذلك لان الاصناف تتعدى 10000 صنف وعند العمل بالملف يصبح بطيء جدااا

شاكر اليكم حسن التعاون والمساعدة

حركة2018.rar

[أبوأحـمـد]

عدل هذا السطر إلى الرقم الذي تريد

    sh.Range("B5:O10000").ClearContents

 

[محمدحسني احمد]

شاكر لرد حضرتك

المقصود هو تغير المعادلات الي اكواد لتجنب الاخطاء لان الشيتات تحتوى علي عدد معادلات كبيرة جداا

[إلياس]

يمكنك أخي الفاضل تحويل المعادلات إلى أكواد ، لكن لا أعتقد أن الملف سيكون أخف

افتح محرر الأكواد وأدرج موديول ، واكتب الكود التالي :

sub jard ( )

[g5].formula="=SUMIFS('حركة اليوميه'!G5:$H$10000,'حركة اليوميه'!E5:$F$10000,E5)"

range("g5:g10000").filldown

end sub

لاحظ أخي الفاضل أن السطر الأول هو تعريف لمحتوى ( g5 ) مع تغيير شكل الفواصل في المعادلة

والسطر الثاني لسحب المعادلة على النطاق المراد . ويمكنك تكرار هذا الكود قبل اغلاقه على بقية المعادلات التي تريد تحويلها إلى أكواد

آمل أن تكون الصورة واضحة ، علماً بأنني لست ضليعاً في هذا الجانب ، وإنما رأيت المساهمة على قدر معرفتي المتواضعة

فتقبل ما فيها من خلل .. وفقكم الله

sub jard ( )

[g5].formula="=SUMIFS('حركة اليوميه'!G5:$H$10000,'حركة اليوميه'!E5:$F$10000,E5)"

range("g5:g10000").filldown

end sub

 

[محمدحسني احمد]

لاسف لاتعمل

[إلياس]

تم التطبيق على الملف المرفق ، وهو يعمل بصورة جيده

وفقكم الله

 

حركة2018.rar

[محمدحسني احمد]

اشكر حضارتكم علي المجهود الرائع ولكننت اود عمل كود لايكون ظاهر ويعمل اتوماتيكيا بدون زر

[إلياس]

أخي الفاضل 

اعتذر من حضرتك . لعدم معرفتي بذلك . وإنما أجبتك آنفاً على قدر معرفتي ، حباً في مد يد العون

ولعل الإخوة الأفاضل بفيدونك بما تريد 

وهم كثر ولله الحمد