مثال بسيط لاستخدام الدالة SUMIF عن طريق VBA

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

طلب احد الاخوة مثال للدالة SUMIF 

ولكن عن طريقة VBA

قمنا بعمل المثال التالي لتوضيح الفكرة

الكود المستخدم

 Sub Yasser_Test()  
   For x = 4 To 13  
     With Sheet2  
       Cells(x, 4) = Application.WorksheetFunction.SumIf(.Range("B4:B1000"), Cells(x, 2), .Range("D4:D1000"))  
       Cells(x, 5) = Application.WorksheetFunction.SumIf(.Range("B4:B1000"), Cells(x, 2), .Range("E4:E1000"))  
     End With  
   Next x  
 End Sub  

لتحميل الملف اضغط هنا

تحياتي

ياسر العربي