[[20230316210745]]　『ピポットテーブルテーブルフィルタを絞り込みをし』（MOMO）　ページの最後に飛ぶ

『ピポットテーブルテーブルフィルタを絞り込みをして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

コメント返信：

[ 一覧(最新更新順) ]

[[20230316210745]] 『ピポットテーブルテーブルフィルタを絞り込みをし』（MOMO） ページの最後に飛ぶ

[[20230316210745]]　『ピポットテーブルテーブルフィルタを絞り込みをし』（MOMO）　ページの最後に飛ぶ