Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

42793 / 76807

←次へ　｜　前へ→


	【39076】月次集計をしようと頑張ってますが・・

akane - 06/6/17(土) 15:32 -


	引用なし

	パスワード

ＶＢＡまったくの初心者ですが、見よう見真似で集計できるマクロを作ってます。
伝票No. 区分　フラグ　日付　　数量・・・・
　１　　　ｘｘ　　　　　　　2006/6　 10　・・・・
　２　　　ｙｙ　　　1806　 2006/6　 50　・・・・
　３　　　ｘｘ　　　　　　　2006/6　 80　・・・・
上記表の月別集計を最終行に入れるのですが、完成かなと思った時に２行目のように
途中にフラグを入れなければいけない事が、まれにある事が解り最終行からの計算では
できないようになりました。

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
上記マクロでも相当苦労して作りました＾＾；
フラグが処理済って感じで利用してます。途中にフラグが起ってる場合の集計時の
フラグの起て方をご教授願います。
別のシートでフラグ列をみてＳＵＭＩＦでデーター利用してますのでフラグ列が重要になってくるのです。。。

2 hits

▼

【39076】月次集計をしようと頑張ってますが・・ akane 06/6/17(土) 15:32

≪