تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

 بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس 

نقدم لكم اليوم درس جميل جدا وهو 

كيفية استخدام SUMIF (الدالة SUMIF) داخل محرر الاكواد Excel VBA

كلنا نعرف ان الدالة  SUMIF تقوم بجمع القيم فى نطاق يلبى المعايير التى تحتاجها او تحددها ومن المعروف ايضا لدى الجميع ان الدالة  SUMIF تحتوى على ثلاثة وسيطات داخل شيت الاكسيل وهى كالاتى

SUMIF(range, criteria, [sum_range])‎

range : او النطاق وهو نطاق الخلايا المتشابهة التى نقوم بجمع القيم المتطابقة منها

criteria : وهو المعيار الذى سوف نقوم بالجمع من خلالة 

sum_range: والنطاق الذى نقوم بجمع القيم منة 

كل هذا الكلام السابق سوف نستخدمة داخل محرر الاكواد ولكن بطريقة كتابة الكود 

لنفرض ان لدينا جدول كما بالصورة 

ونريد ان نقوم بجمع اجمالى القيم فى العمو د   Item  والتى تسمى فى وسيطات الدالة النطاق او range والتى هى موجودة فى العمو D ويتم الجمع بناء على المعيار الموجود فى الخلية I3 ودى اللى احنا هنستخدمها كمعيار او criteria وبعد كدة نجمع اجمالى القيم من العمود G 

سوف نقوم بكتابة الكود كالاتى

Sub mysumif()

Sheet1.Cells(4, "I") = Application.WorksheetFunction.SumIf(Sheet1.Range("d2:d200"), Sheet1.Cells(3, "i"), Sheet1.Range("g2:g200"))

End Sub  

 

 

لتحميل ملف العمل