ここから本文です

エクセルのマクロについて質問です。 表の中からある項目にフィルターを掛け、内...

at_********さん

2019/10/501:22:17

エクセルのマクロについて質問です。
表の中からある項目にフィルターを掛け、内容ごとに印刷をしたいです。

例えば、以下のような表から部屋番号毎にフィルターを掛け、フィルターを掛けた部屋毎に印刷をしたいです。
宜しくお願いします。

A B
1 名前 部屋
2 田中 201
3 佐藤 201
4 鈴木 202
5 山田 201
6 齋藤 202

閲覧数:
18
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

hot********さん

2019/10/504:20:52

印刷がプレビューになっているので、印刷する場合はPrintPreviewをPrintOutにしてください。


Sub sample()
Dim lastRow As Long
Dim r As Long
lastRow = Range("B" & Rows.Count).End(xlUp).Row 'B列最終行
For r = 2 To lastRow '注目行を2行目から最終行まで
If WorksheetFunction.CountIf(Range("B2:B" & r), Range("B" & r).Value) = 1 Then 'B列の2行目から注目行の間でB列注目行の値が1個(始めて)なら
ActiveSheet.Range("A:B").AutoFilter Field:=2, Criteria1:=Range("B" & r).Value 'B列の注目行の値でオートフィルタ
ActiveSheet.PrintPreview '印刷プレビュー(印刷する時は.PrintOut)
End If
Next
End Sub

質問した人からのコメント

2019/10/7 08:54:26

ありがとうございます!!やってみます!!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる