Tag: 数据透视表
如何从多个数据透视表创build数据透视表？
我必须创build一个数据透视表，在2014年，2015年和2016年显示不同的数字。一个新的数据透视表的数据实际上是基于3个不同的数据透视表（每个数据库背后有一个非常大的原始数据，大约300000 excel行每年）。 有没有办法结合这三个枢轴，并创造一个全新的，我可以过滤年等等谢谢你
如何防止locking源工作簿的Excel数据透视表外部数据连接进行编辑？
我有一个Excel工作簿，其中一个作为本地数据录入工作簿，另一个作为聚合所有已input数据的位置。 本地工作簿也有一个数据透视表，它使用到第二个工作簿的外部数据连接作为其数据源。 本地工作簿有一些VBAmacros应该打开远程工作簿，写入或读取它，保存并closures它。 但是，刷新数据透视表数据的操作将locking源文件进行编辑，并保持locking状态，直到我closures带有数据透视表的工作簿。 这可以防止编辑远程工作簿的任何macros成功工作（因为它强制macros以只读方式打开工作簿）。 有没有一种方法来防止数据透视表locking源文件的时间超过了刷新数据的时间？ 没有其他实际的用户访问这些工作簿，并且源工作簿中的数据只有20行和11列值，并且当前存储在本地驱动器上（因此不能连接太慢或不可用） 。
在Excel Pivot中应用多值filter
使用Excel 2013，我想将一个前10名filter应用到一个数据透视表，同时也将一个filter应用到一个额外的值字段。 这可能吗？ 我想从“个人理赔专栏”的总和中筛选出所有的1，但是仍然有平均前十的理赔（减去只有1的理赔量）。 表1和个人索赔总额列表1 结果表应该是这样的。
VBA数据透视表filter根据单元格值更改
我有一个数据透视表“IncTrend”与2个filter。 这两个filter我已经改名为“Service1”和“Service2”（他们最初都称为服务，当表是从powerpivot创build的） 在工作表的A2中，我有一个服务validation列表的名称与filter中的项目名称（它们完全匹配）。 我正在尝试编写一个VBA代码，它将在A2的“select”中读取，并更改数据透视表filter“Service1”和“Service2”以匹配它。 前提是我将有许多不同的数据透视表与不同的数据，我需要改变filter匹配，但我甚至不能使用VBA得到更改。 我不断收到 无法获取数据透视表类的PivotFields属性 任何援助将不胜感激。 这是数据透视表的SS。 我的代码是： Sub Filter_Change() Dim WS As Worksheet: Set WS = ActiveWorkbook.Worksheets("Main") Dim PT1 As PivotTable: Set PT1 = WS.PivotTables("IncTrend") Dim PF1 As PivotField: Set PF1 = PT1.PivotFields("[Inc Open].[Service].[Service]") Dim Choice As String: Choice = Worksheets("Main").Range("A2").Value With PF1 .ClearAllFilters .CurrentPage = Choice '.PivotFilters.Add Type:=xlCaptionEquals, Value1:=Choice End With […]
VBAmacros来更改数据透视表中的filter
我正在尝试自动执行每日报告，因此我想创build两个button来更改三个数据透视表的filter。 详细的button应改变显示的一天。 昨天第一个filter是第二个复位button，清除所有filter并显示所有日子。 “Resest” – 巴顿正在工作，但“昨天” – 巴顿不。 目前macros观看起来是这样的： Private Sub CommandButton2_Click() MsgBox ActiveSheet.Range("B1") With ActiveSheet.PivotTables("Detail_Digital").PivotFields("Tag").CurrentPage = _ ACtiveSheet.Range("B1").Value End With End Sub 我也试过PivotFilters.Add _ , Type:=xlDateYesterday但是这也不起作用。 有什么build议么？
在数据透视表中查找最大值
我试图使用VBA在Excel中过滤数据透视表。 我需要通过计数来过滤来电者姓名，这意味着他们在月份提出了多less张票。 所以我使用了数据透视表，但是现在我需要从这个数据透视表中找出最大值10，这意味着谁在月份中提高了最大值。 请看下面给出错误的代码： 运行时错误1004：无法获取Worksheet类的PivotTables属性 ActiveSheet.PivotTables("PivotTable19").PivotFields("Caller").AutoSort _ xlDescending, "C`enter code here`ount of Number", ActiveSheet.PivotTables("PivotTable19"). _ PivotColumnAxis.PivotLines(1), 1
使用excel和vba数据透视表对date前后的数据进行汇总
我有一个excel文件，它是从我们的票据跟踪软件的所有服务票据（状态，分配给，提交…等）的倾销输出。 每张票有一排。 我试图做一个灵活的VBA报告生成器，这将允许我拿起票据转储，并输出一份报告，将在一张表中的数据的副本，另一张表中的摘要，并在另一张表中的线图。 我觉得像数据透视表是完美的方法，唯一的问题是总结。 来自票据转储的数据看起来像这样： | Submitted_On | Priority | Title | Status | Closed_On | 10/10/2016 1 Ticket 1 New 10/11/2016 1 Ticket 2 Fixed 11/10/2016 10/12/2016 3 Ticket 3 Rejected 11/9/2016 10/15/2016 1 Ticket 4 In Review 问题是我想要总结的样子。 基本上，总结应该显示在过去三年中每个月的第一天正好在午夜开放和closures的所有票。 换句话说，如果这个报告是一个时间机器，那么在那个时候X会被打开，Y会被closures。 此外，总结表应该优先考虑。 困难的部分是这些模拟的报告date（过去3年内每个月的第一个）是无关的值，并不在每个数据行内。 所以报告会是这样的： | Open | Closed | | Reporting Date | P1 […]
sorting枢轴表
我碰到一个问题，macros指出： 运行时错误“1004”应用程序定义或对象定义的错误。 但是我认为我确实定义了它？ 先前在这个代码中定义了WS1，并且没有与该部分有关的问题。 这是本节代码的最后一行有问题。 预先感谢您的帮助！ 'Update Pivot Table Dim GroupPivot As PivotTable Set GroupPivot = WS1.PivotTables("GroupPivot") GroupPivot.PivotCache.Refresh 'Sort PivotTable WS1.PivotTables("GroupPivot").PivotFields("Sum of Discrepancy").AutoSort Order:=xlDescending, Type:=xlSortValues
Excel VBA在粘贴数据透视表时自动挂起
当我尝试将数据透视表粘贴到自身时，以下代码会挂起。 我之前使用过相同的代码，但在这里不起作用。 我已经通过它一步一步find问题。 下面是整个代码的问题，粗体接近代码的末尾。 我已经添加了整个代码，以防有人能看到更高的问题，我怀疑它是否顺利地运行到最后的粘贴。 'Create Pivot Store Stock Issues Dim RowCount As Long Dim wsIssues As Worksheet Dim pc As PivotCache Dim pt As PivotTable Dim pi As PivotItem Dim pf As PivotField Dim lastRow As Long Set wsIssues = Worksheets.Add RowCount = Worksheets("Summary").Cells(51, 1).End(xlDown).Row Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "Summary!R51C1:R" & RowCount & "C38") […]
数据透视表更改来源到不同的数据透视表 – Microsft Excel Bug
我终于为自己修正了Excel中的错误，有时，看起来随机的数据透视表的源数据从“数据透视表32”转换为“数据透视表3”。 我一直手工编辑所有这些以文本结尾（这似乎阻止了它的发生）。 我原来的脚本实际上揭示了另一个bug Excel更新了所有数据透视表名称，但如果脚本运行时不可见，图表将完全失去源代码。 所以，无论如何，这是我写的VBA脚本。 Sub FixAllPivotTables() Dim pt As PivotTable Dim ws As Worksheet If MsgBox("This script is mostly harmless. It will add an 'x' to the end of every Pivot Table name to stop an Excel bug where sometimes Pivot Charts lose their connection to their original pivot. Pivot Charts that are visible […]
