![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
添付写真のように、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
![「マクロの修正方法の質問です。」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/2/989646_65306fd590b3f/M.jpg)
お探しの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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
エクセルのハイパーリンクで質問です。
Excel(エクセル)
-
Excel 数行分セル結合したあと、結合した一番下の行を非表示にしたら、罫線が印刷されません。
Excel(エクセル)
-
-
4
chatGPTで質問してみた エクセルのVBAについて
Visual Basic(VBA)
-
5
Range.RemoveDuplicates メソッド
Visual Basic(VBA)
-
6
エクセル CSVファイルについて
Excel(エクセル)
-
7
Excelの各シートを色ごとで分類して値転記するマクロの作り方を教えて下さい。
Visual Basic(VBA)
-
8
マクロについて
Excel(エクセル)
-
9
FileCopy時のエラー
Visual Basic(VBA)
-
10
Excel マクロについて
Visual Basic(VBA)
-
11
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
12
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
13
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
14
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
15
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
16
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
17
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
18
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
19
エクセルvbaについて
Visual Basic(VBA)
-
20
VBA 別ブックから条件に合うものを転記したいです
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
A4の2枚をA3の1枚にする編集方法?
-
[Visual Studio] ソースの印刷...
-
PDFファイルを印刷し終了するには
-
PHPでPDFファイルの直接印刷
-
VBAで印刷スプール終了の判定を...
-
VBでExcel印刷する時のプリンタ...
-
VBSでExcelファイル印刷時のプ...
-
2回以上PDFをコピーや印刷がで...
-
オートメーションエラー(214741...
-
マクロコードについて
-
Javaでの帳票開発(直接印刷)に...
-
VBscriptでPDFファイルを直接印...
-
ホームページ上の地図を1クリ...
-
HPの背景画像や背景色が印刷時...
-
エクセル VBA 印刷モジュール
-
印刷ダイアログを表示させない方法
-
B4で手差しトレイから印刷(V...
-
端末によって印刷されたフォー...
-
VBAにて指定したセルをプルダウ...
-
ACCESSで設定した帳票の用紙サ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷要求順番と印刷出力順番が...
-
印刷ダイアログを表示させない方法
-
ActiveReportsを使って[印刷ダ...
-
印刷ダイアログを表示させたくない
-
プリンターを指定して印刷するには
-
PDFファイルを印刷し終了するには
-
vbaでPDFファイルが印刷されない
-
VBscriptでPDFファイルを直接印...
-
VBからのプリンタ制御について
-
ACCESSで設定した帳票の用紙サ...
-
イベントプロシージャ 印刷が...
-
VBSでExcelファイル印刷時のプ...
-
phpでの自動印刷
-
VBAにて指定したセルをプルダウ...
-
EXCELファイルの複数ダウンロー...
-
VBAで印刷スプール終了の判定を...
-
プリンタの印刷ジョブを削除し...
-
PHPでPDFファイルの直接印刷
-
A4の2枚をA3の1枚にする編集方法?
-
VBでExcel印刷する時のプリンタ...
おすすめ情報