|
>Jakaさん
ご返答ありがとうございます。
それに基づき修正したのですが、
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("C65536").End(xlUp).Row
Rmax = ws3.Range("C65536").End(xlUp).Row
Dim AB As Long, BA As Long
AB = Application.WorksheetFunction.SumIf _
(ws2.Range("C1:C" & Rmax), ws1.Range("D8").Value, ws2.Range("E1:E" & Rmax))
BA = Application.WorksheetFunction.SumIf _
(ws3.Range("C1:C" & Rmax), ws1.Range("D8").Value, ws3.Range("F1:F" & Rmax))
If AB > BA Then
ws1.Range("E8").Value = AB - BA
ElseIf AB < BA Then
ws1.Range("E8").Value = BA - AB
End If
これだとBAの値を引っ張ってくるのですが、
ABとの足し算だったり引き算だったりをしてくれません。
何か間違っていますか?
|
|