피벗 테이블 변경 VBA를 사용하는 보고서 필터

Question

셀을 기반으로하는 피벗 테이블 보고서 필터를 변경하는 VBA 코드가 있습니다.

영숫자 인 입력으로 모두 잘 작동합니다. 입력이 숫자 일 때 오류가 발생합니다.

런타임 오류 '1004':

애플리케이션 정의 또는 개체 정의 오류

여기

Sub ProjSelect_PivotsUpdate() 
    Dim Selected_Proj 

    Selected_Proj = Worksheets("Parameters").Range("SelectedProj") 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Project").ClearAllFilters 
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Project").CurrentPage = _ 
    Selected_Proj 
End Sub 

오류 코드 : 여기

코드이다.

Answer 1

Range ("SelectedProj") 형식을 string으로 설정하거나 숫자를 입력하기 전에 간단히 ''를 추가해야합니다.

Answer 2

값을 자르면 문제가 해결됩니다.