Tag: 数据透视表

是否有可能基于过滤Excel中的源表中的行来过滤数据透视表使用的数据？: 我已经在Excel 2007中开发了一个仪表板，它使用一个工作表中的一个源表（在我们的数据仓库中填充了一个查询）和多个数据透视表，对这些数据进行不同的截面处理。我在近百个公式中使用了GETPIVOTDATA，为我的仪表板中的特定指标提供了正确的值。这一切工作正常。不过，我现在已经收到了这个问题，使5个不同的部分仪表板。正如你可以想象的，我不想为此创build5个不同的工作簿，并需要维护所有这些工具的逻辑。所以我的问题是以下。是否有可能自动（通过VBA或任何其他手段）过滤结果在我的源表中，这是我的数据透视表的来源，从而我的仪表板值。如此示意性地 DATABASE_VIEW – > SOURCE_TABLE – > 12个数据透视表 – > 100个GETPIVOTDATA函数最好我想加载source_table中的所有段（我的数据库中的一个视图），然后过滤源表中的数据，这导致我的枢轴过滤source_dat。这样我可以（不需要重新查询数据库）在仪表板中快速切换（只刷新枢轴）。源表中的数据具有可供过滤的CUSTOMER_SEGMENT列。任何帮助表示赞赏。杰弗里

根据下拉列表更改数据透视表filter: 我有下拉列表，有一个国家的名单。我需要根据下拉列表中select的国家/地区筛选数据透视表。我正在使用这个代码。 Sub PivotChange(ByVal Target As Range) If Not Application.Intersect(Target, Sheets("Summary").Range("D7")) Is Nothing Then Sheets("Data_4PivotChart").PivotTables("PivotTable7").PivotFields("Country"). _ ClearAllFilters Sheets("Data_4PivotChart").PivotTables("PivotTable7").PivotFields("Country").CurrentPage _ = Sheets("Summary").Range("D7").Value End If End Sub 但目前它没有做任何事情。任何人都可以帮助我在哪里添加此代码，以便它将由事件触发。谢谢

当其他两列匹配时从列中添加值: 我有一个约12,000行的生态数据表。有三列： site ， species和value 。我需要为每个匹配的网站和物种组合添加值，例如，“网站A”的所有“红色枫树”值。我有按site和species分类的数据，所以我可以手工做，但是速度很慢。 site / species匹配的数量是不同的，所以我不能只是把这些数值加起来，类似types的问题已经讨论了数据透视表，但是没有人需要匹配两列并添加第三列，而我还没有能够弄清楚如何推断我的情况。我相当舒适的编码，并希望做一些看起来像这个伪代码，但我不清楚在VBA的语法： For each row if a(x) = a(x+1) and b(x) = b(x+1) then sum = sum + c(x) else d(x) = sum sum = 0 next 有任何想法吗？

更改数据透视表的报表布局通过Excel VBA: 我在Excel中使用VBA生成数据透视表。默认情况下，报告布局是'Outline Form' 。我怎样才能通过我的代码将其更改为'Compact form'或'Tabular Form' ？任何帮助表示赞赏！谢谢。

Excel VBA – 陷入从variables数据范围生成数据透视表: 我有下面的代码，理论上应该使用它在“数据”表中find的数据在第二个表（存在）上创build一个数据透视表。但是，只要到达创build数据透视表的部分，它就会一直崩溃。我原来是从一个固定的大小，然后改变它，所以它应该采取我的“数据”表上的所有数据，无论是一个2×3或58×13表 Sheets("DATA").Select Range("H1").Select ActiveCell.FormulaR1C1 = "l" Range("A1").Select ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ Sheets("DATA").Range("A1").CurrentRegion, _ Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="Prior. per user!R1C1", TableName:="PivotTable1", _ DefaultVersion:=xlPivotTableVersion14 Sheets("Prior. per user").Select Cells(1, 1).Select With ActiveSheet.PivotTables("PivotTable1").PivotFields("Priority") .Orientation = xlColumnField .Position = 1 End With With ActiveSheet.PivotTables("PivotTable1").PivotFields("Caller") .Orientation = xlRowField .Position = 1 End With Range("D2").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Priority").PivotItems( _ "Medium").Position = 2 Columns("D:D").ColumnWidth = […]

数据透视表中的总和字段: 我有一个列A（date）和列B（小时）的文件。我在另外一张纸上创build了一个数据透视表，并且显示数据的工作做得很好： 6/1/2014 2 1.25 6/2/2014 3 0.25 6/3/2014 4 3.5 我想要做的是总结小时，所以它看起来像这样： 6/1/2014 3.25 6/2/2014 3.25 6/3/2014 7.5 我怎样才能做到这一点？

Excel VBA删除与macros的透视图: 我的Excel表单上有一个button，可以在单击时创build数据透视表和透视图。因为它会运行多次，每次运行我需要删除现有的表和图表。表是没有问题的，但图表每次都用一个递增的数字重新命名。我需要知道运行图表的名称才能删除它。这是我的表/图表创build： Sheets("EditListingCriteria").Select RowNumber = "R" & Application.CountA(Range("A:A")) & "C19" Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Worksheets("PivotTable").PivotTables("PivotTable5").PivotCache. _ CreatePivotTable TableDestination:="Charts!R5C3", TableName:="PivotTable6" _ , DefaultVersion:=xlPivotTableVersion14 Sheets("Charts").Select Cells(5, 3).Select ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _ "PivotTable6").PivotFields("Material Weight"), "Sum of Material Weight", xlSum With ActiveSheet.PivotTables("PivotTable6").PivotFields("Shipment Month") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("PivotTable6").PivotFields("Ordered Ship Mode") .Orientation […]

Excel一对多表，查询每个行的行数: 我有一个在Excel中的一对多表，如图所示设置。每个删除（ID）有很多样本; 每个样本具有固定数量的属性（访问，访问types等）。我也有一个数据透视表设置可视化的数据：现在，我需要筛选/查询我的数据，以find所有3种访问types的ID：随机化和30周交付。（也可能需要对每个ID及其相关对象进行额外的查询）这可能在Excel中使用高级filter和数据透视表？还是我需要编写VBA脚本来处理和组织这个给我？（使用Excel 2010）如果VBA脚本是最好的，我应该使用Find和FindNext来获取属于某个ID的所有样本吗？提前致谢！

用多个标准查找，一个MAX值: 我试图从特定QUARTER中最近一个月（最大月份数）查找员工（ NAME ）及其MANAGER的LOCATION ，数据如下： NAME LOCATION MANAGER QUARTER MONTH Ryan Smith Sioux Falls Rick James 3 7 Jane Doe Tampa Bobby Brown 3 7 John Rogers Tampa Tracy Lane 3 7 Ryan Smith Sioux Falls Rick James 3 8 Jane Doe Denver Thomas Craig 3 8 John Rogers Tampa Cody Davis 3 8 所以，如果我知道员工的名字和我正在查找的季度，那么结果应该显示他们最后一个经理的位置以及他们所在的位置，因为这些可能会逐月改变。我已经使用了INDEX和MATCH数组公式： […]

刷新数据透视表的运行时错误1004: 我创buildmacros将刷新工作表中的所有数据透视表。相同的代码在一张纸上工作，但不在另一张纸上。我试图在debugging模式下运行它，并且对于前几个表格可以正常工作，并且在中间的一个中间会出错：运行时错误“1004”：数据透视表类的RefreshTable方法失败。在这张表里有20张数据透视表，但是它的工作地点是26.你的帮助将会非常感谢。 Sub Refresh_Pivots2() Dim PL As PivotTable Worksheets("Incidents Pivots").Activate For Each PL In ActiveSheet.PivotTables PL.RefreshTable Next PL End Sub 我只是尝试另一个代码 Sub Refresh_Incidents() Worksheets("Incidents Pivots").Activate Dim A A = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20") For i = […]