Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8598 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【32371】オートフィルタの印刷 山内 05/12/13(火) 14:04 質問[未読]
【32377】Re:オートフィルタの印刷 Jaka 05/12/13(火) 17:13 回答[未読]
【32379】Re:オートフィルタの印刷 山内 05/12/13(火) 17:55 お礼[未読]
【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
【32377】Re:オートフィルタの印刷
回答  Jaka  - 05/12/13(火) 17:13 -
引用なし
パスワード
   処理内容が良く解ってないけど、大体こんな感じなると思いますから、後は適当に直してください。
また、シートにクリックイベントは無いです。

Ｗクリックイベントだと

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
ActiveSheet.AutoFilterMode = False
If Target.Column <> 5 Then Exit Sub
Cancel = True
MsgBox 月分のセル
With Range("E6", Range("E65536").End(xlUp))
　　.AutoFilter Field:=1, Criteria1:=Target.Value
　　DoEvents
　　'ここで普通に印刷、コードはマクロ記録してください。
　　ActiveWindow.SelectedSheets.PrintPreview
End With
DoEvents
Cancel = False
ActiveSheet.AutoFilterMode = False
End Sub
【32379】Re:オートフィルタの印刷
お礼  山内  - 05/12/13(火) 17:55 -
引用なし
パスワード
   ▼Jaka さん：
今，時間取れませんから明日トライします。有難うございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8598 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free