Excelでセルをピボットテーブルにフィルタリングするマクロ

Question

VBAマクロを作成して文字列を入力し、PIVOTという別のシートからピボットテーブルをフィルタリングするマクロを開始します。

私はInputbox経由でソリューションを提供していますが（下記参照）、私はセルを使うことをお勧めします。

Sub Macro1() 

Dim IdentificationNo As String 
IdentificationNo = InputBox(Prompt:="Identification", Title:="ENTER IDENTIFICATION NUMBER") 
    Sheets("PIVOT").PivotTables("PivotTable1") _ 
     .PivotFields("Identification #").CurrentPage = IdentificationNo 

End Sub 

Answer 1

変更

IdentificationNo = InputBox(Prompt:="Identification", Title:="ENTER IDENTIFICATION NUMBER") 

入力として Sheet1!A1からの値を使用するので、必要に応じて "シート1" と "A1" に変更します

IdentificationNo = Worksheets("Sheet1").Range("A1").Value 

へ。