|
複数のSUMIFを更に足す場合どうすればいいのでしょうか?
現状、
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, Rmax As Long
Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("Sheet2")
Set ws3 = ThisWorkbook.Worksheets("Sheet3")
Rmax = ws2.Range("D65536").End(xlUp).Row
Rmax = ws3.Range("C65537").End(xlUp).Row
Dim AB, BA As Long
AB.Value = Application.WorksheetFunction.SumIf _
(ws2.Range("D1:D" & Rmax), ws1.Range("D8").Value, ws2.Range("G1:G" & Rmax))
BA.Value = Application.WorksheetFunction.SumIf _
(ws3.Range("C1:C" & Rmax), ws1.Range("D8").Value, ws3.Range("E1:E" & Rmax))
ws1.Range("E8").Value = AB - BA
こういうイメージで行ないたいのですが、
「AB」「BA」の修飾氏が不正とけられてしまいます。
SUMIF同士は足し算できないのでしょうか?
|
|