Workbook_SheetActivate(ByVal Sh As Object)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim j As Long
Dim i As Long
Dim la As Long

With Sheets(3)
la = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 3 To 4
For j = 4 To 7
Sheets(4).Cells(i, j).Value = Application.SumIfs(.Range("d4:d" & la), _
.Range("a4:a" & la), Sheets(4).Cells(i, 3), _
.Range("c4:c" & la), Sheets(4).Cells(2, j))
Next j
Next i

For i = 6 To 9
For j = 5 To 8
Sheets(4).Cells(i, j).Value = Application.SumIfs(.Range("j4:j" & la), _
.Range("g4:g" & la), Sheets(4).Cells(i, 4), _
.Range("i4:i" & la), Sheets(4).Cells(5, j))
Next j
Next i
End With
End Sub

このｺｰﾄﾞは自分おもったとおり
動作致しますが問題ないでしよぅか

No.1 回答者： fujillin 回答日時： 2017/11/27 14:38

こんにちは

＞自分おもったとおり動作致しますが問題ないでしよぅか
「おもったとおり」であるのなら、良いのではないでしょうか。

私なら、マクロもイベントも利用しないで、シートに直接関数式を設定してお仕舞にすると思います。

この回答へのお礼

有難うございます。
関数を直接やると
集計するセル全てに
関数をいれさらに
条件を変えなければなりません
まぁコピーしても同様ですが。
有難うございます。

お礼日時：2017/11/28 07:30