|
VBAまったくの初心者ですが、見よう見真似で集計できるマクロを作ってます。
伝票No. 区分 フラグ 日付 数量 ・・・・
1 xx 2006/6 10 ・・・・
2 yy 1806 2006/6 50 ・・・・
3 xx 2006/6 80 ・・・・
上記表の月別集計を最終行に入れるのですが、完成かなと思った時に2行目のように
途中にフラグを入れなければいけない事が、まれにある事が解り最終行からの計算では
できないようになりました。
Dim ce As Integer, c As Integer
Dim re As Long, r As Long, fe As Long
ce = Range("A1").End(xlToRight).Column '最終列を取得
re = Range("A1").End(xlDown).Row '最終行を取得【伝票No.】
fe = Range("C1").End(xlDown).Row '最終行を取得【フラグ】
If Cells(re, 1) <> "計" Then
If fe > re Then
fe = 1
End If
Cells(re + 1, 1) = "計"
Cells(re + 1, 2) = "−"
For c = 5 To ce - 1
For r = fe + 1 To re
Cells(re + 1, c) = Cells(re + 1, c) + Cells(r, c)
Next r
Next c
※ For r = fe + 1 To re
※ Cells(r, 3) = Format(Cells(r, 4), "eemm")
※ Next r
※ Cells(re + 1, 3) = Cells(re, 3)
End If
上記マクロでも相当苦労して作りました^^;
フラグが処理済って感じで利用してます。途中にフラグが起ってる場合の集計時の
フラグの起て方をご教授願います。
別のシートでフラグ列をみてSUMIFでデーター利用してますのでフラグ列が重要になってくるのです。。。
|
|