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 

한다.