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

 Sub Yasser_Test()
DIM x as long  
   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