添付写真のように、B列にフィルターをかけて、
みかんだけのフィルターで印刷
りんごだけのフィルターで印刷
以下繰り返し
と、フィルター上で選べるものを全て自動で印刷するようなマクロの作り方を教えていただきました。
このB列指定のフィルターを
C列のフィルターに変更して、
長野だけのフィルターで印刷
山梨だけのフィルターで印刷
以下繰り返し
と、するにはどこを直せばよろしいでしょうか?
数百件あるので、教えていただけると助かります。
どうぞ宜しくお願い致します。
マクロは以下です。
Sub PrintFilteredData()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim filterRange As Range
Dim uniqueItems As Collection
Dim item As Variant
Set ws = ThisWorkbook.Sheets("a")
Set rng = ws.Range("A1").CurrentRegion
Set filterRange = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count)
Set uniqueItems = New Collection
On Error Resume Next
For Each cell In filterRange.Columns(2).Cells
If cell.Value <> "" Then
uniqueItems.Add cell.Value, CStr(cell.Value)
End If
Next cell
On Error GoTo 0
For Each item In uniqueItems
ws.AutoFilterMode = False
filterRange.AutoFilter Field:=2, Criteria1:=item
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ws.AutoFilterMode = False
Next item
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) ワークシート内 検索 HITしたら すべて選択する 6 2021/11/11 22:50
- Visual Basic(VBA) 超難 日付に対するクロス集計 7 2021/12/06 20:56
- Visual Basic(VBA) シートごとに 個数と集計 2 2021/10/25 22:00
- PowerPoint(パワーポイント) エクセルのマクロ設定について教えてください。 2 2021/10/29 11:36
- Excel(エクセル) Rangeメソッドは失敗しました。globalオブジェクトについて 6 2021/11/21 21:54
- Excel(エクセル) VBA 1 2023/04/27 13:37
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
マクロの作り方で質問です。
Excel(エクセル)
-
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
-
4
エクセルVBAの配列について
Visual Basic(VBA)
-
5
Excel VBAにて、2GB超の点群データ(CSVファイル,改行コードLF)を高速で解析したい。
Visual Basic(VBA)
-
6
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
7
Excel マクロについて
Visual Basic(VBA)
-
8
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
9
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
10
Cellsのコードが打てません
Visual Basic(VBA)
-
11
VBA 別ブックからコピペしたいのですが、軽くしたいです
Visual Basic(VBA)
-
12
【補足欄が足りなかったため、こちらで再質問させていただきます。】 Excelの転記マクロについて、教
Visual Basic(VBA)
-
13
select case について
Visual Basic(VBA)
-
14
Excelマクロで空白セルの大小比較処理について
Visual Basic(VBA)
-
15
Excelで、改行がある場合の条件式(関数)の書き方を教えてください
Excel(エクセル)
-
16
VBA 同じ名前のオブジェクトを選択したいのですが
Visual Basic(VBA)
-
17
マクロVBAについてご教授いただけましたらと存じます。
Visual Basic(VBA)
-
18
エクセル→貼り付けのオプション→貼り付け先の書式に合わせる が急にできなくなった。 どうして?
Excel(エクセル)
-
19
一つのフォルダーに50個のエクセルファイルがあります。 各ファイルにはAとBのシートがあります。 5
Visual Basic(VBA)
-
20
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
イベントプロシージャ 印刷が...
-
VB.NETで罫線付きのデータを印...
-
印刷ダイアログを表示させたくない
-
2回以上PDFをコピーや印刷がで...
-
ActiveReportsを使って[印刷ダ...
-
プリンターを指定して印刷するには
-
違うフォーマットの宛名印刷
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
ミニチュアCDの作り方を教えて...
-
グーグルマップのV3で地図をプ...
-
~の文字化けについて
-
プリンタの印刷ジョブを削除し...
-
数式が消える
-
vba 時間の引き算 例えば 15:00...
-
Windows10のVBAでDirectX 8が使...
-
「読み込み違反」が起きたとき...
-
matplotlibで任意の角度の円弧...
-
WinSCPで画像のように puttyを...
-
秒数を入力すると○時間○分○秒と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
ACCESSで設定した帳票の用紙サ...
-
vbaでPDFファイルが印刷されない
-
プリンターを指定して印刷するには
-
印刷ダイアログを表示させたくない
-
VBAで不特定枚数印刷をしたいで...
-
VBAにて指定したセルをプルダウ...
-
VB.NET+ActiveReports で印刷...
-
ActiveReportsを使って[印刷ダ...
-
VBscriptでPDFファイルを直接印...
-
webページの印刷制限について
-
PDFファイルを印刷し終了するには
-
イベントプロシージャ 印刷が...
-
クリレポのプリンタ設定について
-
両面印刷設定方法について
-
ファイルのパス指定での印刷方法
-
Accessフォームで全レコードを...
-
VBSでExcelファイル印刷時のプ...
-
VBAで印刷スプール終了の判定を...
おすすめ情報