Question

所以我徒劳地试图从这个post获取指令来处理我的数据。我不断收到运行时错误1004.我的目标是将公司名称输入到与数据透视表相同的工作表的单元格I1中，然后通过该条目对数据透视表进行过滤。这是我改编的代码：

Sub filtercompany()
    ' Filtercompany
    Dim FilterValue As String
    FilterValue = ActiveSheet.Range("I1").Value 'get value for filter

    ActiveSheet.PivotTables("PivotTable1") _
        .PivotFields("[Company].[Name].[Name]").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Company].[Name].[Name]") _
        .CurrentPageName = "[Company].[Name].&[" & FilterValue & "]"
End Sub

Answer 1

查看我的字符串。当我给我一个projektnumber时它工作正常

18770, 17990, 20334, 15, 16727, 17750, 28006, 8308, 18, 0, 1, 2, 48000, 0, 60928, 2, 4, 16, 0, 24934, 29795, 4, 0, 54223, 3, 24932, 24948, 20284, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

使用单元格引用过滤PowerPivot表

1 个答案: