Excel VBA質問箱 IV

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

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


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

19369 / 76732

←次へ　｜　前へ→


	【62796】フィルター繰り返し印刷

しゅう - 09/9/3(木) 1:41 -


	引用なし

	パスワード

ＶＢＡ初心者です。宜しくお願いします。

例

種類　　　　品番　　品名　　
ＡＡＡ　　123441　　ドア右
ＡＡＡ　　123442　　ドア左
ＢＢＢ　　123881　　マド右
ＢＢＢ　　123882　　マド左
ＣＣＣ　　123991　　ガラス右
ＣＣＣ　　123992　　ガラス左

この表でオートフィルターをかけて
種類の列で抽出して印刷を繰り返したい。
マクロの記録をすると以下の通りです。
Sub Macro1()
　　Range("A1").Select
　　Selection.AutoFilter
　　Selection.AutoFilter Field:=1, Criteria1:="ＡＡＡ"
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
　　Selection.AutoFilter Field:=1, Criteria1:="ＢＢＢ"
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
　　Selection.AutoFilter Field:=1, Criteria1:="ＣＣＣ"
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
　　Selection.AutoFilter Field:=1
End Sub
これだと種類が増えた時に対応できません。
過去ログを検索しましたが参考になるものが見つかりませんでした。
どなたか教えて下さい。
宜しくお願いします。

0 hits

▼

【62796】フィルター繰り返し印刷 しゅう 09/9/3(木) 1:41

≪