excel vba sumif 月間集計
excel vba sumif 月間集計
どなたか教えていただけますか？
sheet1に１日毎のデータが打ち込まれています。そのデータを同じブック内の月間シートが開いたときに表示してるのですが、３１日間分のコードをsumifで処理しているため、かなりのファイル容量となり重くなります。もっと効率的な方法はないのでしょうか、（範囲指定の繰り返し処理等）お願いいたします。
なお、sheet1からsheet5まで日毎のデータをそれぞれ月間シート1～5に集計してます。
例です。
sheet1は
A B C D E F・・・・
1 日 目的 距離 燃料
2 1 社用 50
3 1 私用 60 10
4 2 社用 30
月間シート1は
A B C D E F
1 日 距離 燃料 1110
2 1 110 10
3 2 30 0
Private Sub Worksheet_Activate()
UserForm1.Hide
Range("A1").Select
'距離数
Range("B2").Value = WorksheetFunction.SumIf(Sheets("Sheet1").Range("A2:A300"), Range("A2"), Sheets("Sheet1").Range("C2:C300"))
Range("B3").Value = WorksheetFunction.SumIf(Sheets("Sheet1").Range("A2:A300"), Range("A3"), Sheets("Sheet1").Range("C2:C300"))
・
・
・
'累計 ・・・は、こんな感じ処理してます
Dim myRng As Range
Dim c As Range
Set myRng = Range("F2:F32")
For Each c In myRng
c.Value = c.Offset(0, -4).Value + c.Offset(-1, 0).Value
Next c
End Sub
お礼
お礼が遅くなりました すみません 2007/1/4 12:10:00 500の値を日付として認識されません 四苦八苦しながら勉強してみます これからもご指導お願いいたします