[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ピポットテーブルテーブルフィルタを絞り込みをしてPDF出力』(MOMO)
こんばんは。
繰り返しの作業でできないところがあり、お力を貸していただきたいですm(__)m
sheet1には、A2から検索したい文字が入っています。
sheet2PDFには、ピポットテーブルがあり、マクロの記憶で読み取りました。
sheet1の項目を順に検索して、PDFを出力したいです。
★ここを項目名に変えたいです★のところを繰り返しの名前で検索してPDF出力することはできるでしょうか?
?Aは実行して問題なくできました。
?@と?Aをあわせたいです。
■sheet1
A1は項目名
A2〜最終行まで検索したい文字が入っています。
A B C
1 項目名 空白 空白
2 バナナ 空白 空白
3 ごりら 空白 空白
4 ミント 空白 空白
5 りんご 空白 空白
・
・
・
■sheet2PDF
ピポットテーブルが入っています。
テストの項目から、sheet1のA2からの文字を検索して絞り込みたいです。
そのあとPDFを出力したいです。
下ピポットテーブルのフィルタ
A B C
23 項目名(フィルタ) 日付(フィルタ) 電話(フィルタ)
<1>Sub Macro66()
Dim ws As Worksheet Set ws = Worksheets("sheet1")
Dim ws2 As Worksheet Set ws2 = Worksheets("sheet2PDF")
ws.Activate
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row '最終行までループ
ActiveSheet.PivotTables("P").PivotFields("[データベースシート1].[テスト].[テスト]"). _ VisibleItemsList = Array("[データベースシート1].[テスト].&[★ここを項目名に変えたいです★]")
★ここにPDF出力をいれてみたいです★
Next
End Sub
<2>Sub PDF()
'
Sheets("sheet2PDF").Select ChDir "W:出力先" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "W:出力先\" & Format(DateAdd("m", 0, Date), "yyyymm") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _ :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
よろしくお願いいたします。
< 使用 Excel:Excel2019、使用 OS:Windows10 >
Sub test()
Dim ws As Worksheet Dim ws2 As Worksheet Dim i As Long Dim s As String
Set ws = Worksheets("sheet1") Set ws2 = Worksheets("sheet2PDF")
For i = 2 To ws.Cells(Rows.Count, "A").End(xlUp).Row '最終行までループ s = ws.Cells(i, "A") ws2.PivotTables("P").PivotFields("[データベースシート1].[テスト].[テスト]"). _ VisibleItemsList = Array("[データベースシート1].[テスト].&[" & s & "]") ws2.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="W:\出力先\" & Format(DateAdd("m", 0, Date), "yyyymm") & s & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True Next End Sub
# 全くの保証はありませんし、検証もしていません、出来ません。
(γ) 2023/03/17(金) 07:42:52
スライサーを挿入して、スライサをVBAで操作するのが楽ですよ (´・ω・`) 2023/03/17(金) 10:12:04
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.