Excel VBA質問箱 IV

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

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


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

49277 / 76732

←次へ　｜　前へ→


	【32371】オートフィルタの印刷

山内 - 05/12/13(火) 14:04 -


	引用なし

	パスワード

日給月給のアルバイトの給与計算をエクセルで作成しています。
下記データ1.の 6行目項目をオートフィルタにしています。
フィルタを使用（昇順）する列はＥ列（ＮＯ.）です。6行目の列は，本来右へ
ＡＪの列迄あります。
そこで質問は，下記2.の印刷をＶＢＡで自動処理する方法を教えて下さい。
（2.のようにＥ列でフィルタの順番でまず006をクリックすれば，見出しと006
のフィールドのデータを印刷，次に007をクリックすれば見出しと007のフィー
ルドのデータを印刷，続いて008から009迄を同じ繰り返しで印刷。実際のデー
タは一日20人ほどあります。1ヶ月経ってからコード別（人別）に印刷します
。）宜しくお願いします。

1.
Ａ　列　Ｂ〃Ｃ〃Ｄ〃　Ｅ〃　　Ｆ〃　Ｇ〃　Ｈ〃　　　Ｉ〃

　　　　
　　　　アルバイト給与
　　　　ｘxｘ　月分
　　　　xxx　店
　　　　xxx　様
　　　　xxxx
Ａ　列　Ｂ〃Ｃ〃Ｄ〃　Ｅ〃　　Ｆ〃　Ｇ〃　Ｈ〃　　Ｉ〃
６行目→年　月　日　曜日　Ｎｏ　名前　入店　退店　労働時間
17　 12　　1　　木　　009　　abc　10　　 20　　　　 10
17　 12　　1　　木　　008　　def　 8　　 18　　　　 10
17　 12　　2　　金　　009　　abc　 8　　 17　　　　　9
17　 12　　2　　金　　007　　yui　 7　　　16　　　　 9
17　 12　　2　　金　　006　　poi　13　　　20　　　　 7
17　 12　　3　　土　　008　　def　 9　　　19　　　　10
17　 12　　3　　土　　007　　yui　 6　　　16　　　　10

2.オートフィルタを利用した場合の印刷（下記）
　　　　アルバイト給与
　　　　　　　ｘxｘ　月分
　　　　　　　xxx　店
　　　　　　　xxx　様
　　　　　　　xxxx
17 　12 　2 　　金　　 006 poi 　13　　 20 　　　　7

--------------------------------------------------------

　　　　アルバイト給与
　　　　　　　ｘｘｘ　月分
　　　　　　　xxx　店
　　　　　　　xxx　様
　　　　　　　ｘｘｘ
17 　12 　2 　　　金　007 yui 　　7 　　 16 　　　9
17 　12 　3 　　　土　007 yui　　 6 　　　6　　　 10

--------------------------------------------------------

　　　アルバイト給与
　　　　　　ｘｘｘ　月分
　　　　　　xxx　店
　　　　　　xxx　様
　　　　　　ｘｘｘ

17 　　12 　1 　　木　　008 def 　　8 　　18 　　　10
17 　　12　 3　　土　　008 def　　 9　　 19　　　 10

--------------------------------------------------------

　アルバイト給与
　　　　 xxx　月分
　　　　 xxx　店
　　　　 xxx 様
17　　12　　1　　木　　009　abc　 10　 20　　　　　10
17　　12　　2　　金　　009　abc　　8　　17　　　　　9

1 hits

▼

【32371】オートフィルタの印刷 山内 05/12/13(火) 14:04

≪