計算總和爲

Question

這裏是我的樣本excel文件數據

如何計算的所有CR和DR型記錄分別總和？ 結果應該是

總借記= XXX 總積分= XXX

Logic somthing like...

Dim debit; 
for each row in sheet1 
    if(data of C column == dr) 
     debit = debit + data of D column 
    end if 
end for 
print debit; 

我不是很熟悉的Excel 2010所以不知道如何編寫這個，所以請給我也有一些基本的步驟來實現這一點。

Answer 1

你可以使用這個公式：

=SUMIF(C:C,"=DR",D:D) 

如果你想獲得這種使用VBA，那麼你可以寫這樣的：

Dim debit, credit As Integer 

With Worksheets("Sheet1") 

    For x = 1 To .Cells(Rows.Count, 3).End(xlUp).Row 

     If UCase(.Cells(x, 3).Value) = "DR" Then 
      debit = debit + .Cells(x, 4).Value 
     Else 
      If UCase(.Cells(x, 3).Value) = "CR" Then 
       credit = credit + .Cells(x, 4).Value 
      End If 
     End If 
    Next 

End With