専門家に聞いた!繰り返す痔の原因は!? >>

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

このコードは自分おもったとおり
動作致しますが問題ないでしよぅか

A 回答 (1件)

こんにちは




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

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

Thank you

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Qエクセル:マクロ「Application.CutCopyMode = False」って?

エクセルのマクロを記録していると

「Application.CutCopyMode = False」

というものがよく出てきますが、これは何でしょう?
どういう意味のものかわかりません。
削除しても差し支えないのもでしょうか?

Aベストアンサー

「Application.CutCopyMode = False」の前で
セルのコピー、または切り取りを行っていると思います。
これは、その操作(セルのコピー、または切り取り)を無効にしているだけです。
------------
Range("A1").Select
Selection.Copy ← これを無効にしている
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
------------
上記の場合であれば、「Application.CutCopyMode = False」を削除しても問題ありませんが、
以下の場合、貼り付け処理でエラーになります。
------------
Range("A1").Select
Selection.Copy
Range("A2").Select
Application.CutCopyMode = False
ActiveSheet.Paste ← ココでエラー
------------
ご自分で、セルをコピーしてみると分かると思いますが、コピーした範囲が点線で点滅されます。
「Application.CutCopyMode = False」をすると、
その点滅がなくなります。

「Application.CutCopyMode = False」の前で
セルのコピー、または切り取りを行っていると思います。
これは、その操作(セルのコピー、または切り取り)を無効にしているだけです。
------------
Range("A1").Select
Selection.Copy ← これを無効にしている
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
------------
上記の場合であれば、「Application.CutCopyMode = False」を削除しても問題ありませんが、
以下の場合、貼り付け処理でエラーになります。
------------
...続きを読む


人気Q&Aランキング