Tag: 数据透视表

为什么VBA数组不加载整数

这里是我在网上find的一个函数，可以帮助循环查看值并select与值相匹配的透视筛选器项目。 我的问题是在Sub Filter_Bana中创build的数组不会加载名为“Bana”（又名varItemList）范围内的值。 范围“Bana”由大约二十个数字（整数）组成。 当我运行子（在底部），我不断收到函数MsgBox“没有findfilter列表项”。 我一直试图弄清楚这一点，并不认为任何命名的整数列表“Bana”正在加载到“varItemList”。 换句话说，当varItemList传递给函数时，数组是空的。 请参阅代码： **编辑：我发现这个问题。 我遇到的问题涉及到两个问题：1）我在VBA不好，2）我的数据透视表字段中的数据types与数据types不匹配。 我将数组组件转换为5个字符的文本，并调整了SQL查询，将我的investorNumber作为5个字符的文本（即数组需要加载string，而我的透视字段需要字符types的数据;如果有办法用整数来做到这一点，我很想知道。 Private Function Filter_PivotField(pvtField As PivotField, _ varItemList As Variant) Dim strItem1 As Long, blTmp As Boolean, i As Long On Error Resume Next Debug.Print varItemList Application.ScreenUpdating = False With pvtField If .Orientation = xlPageField Then .EnableMultiplePageItems = True For i = LBound(varItemList) To UBound(varItemList) […]

Excel数据透视表 – 格式化和分组列与date和另一列

我已经使用了几年的基本的数据透视表，但是我陷入了一些我认为应该相当简单的解决scheme（唉）。 我想以特定的方式格式化我的数据透视表。 例如，只要说我正在使用以下数据： Client Name Stage Amount Paid Date Paid Client A Start $70,000 1/10/2015 Client A Middle $50,000 1/11/2015 Client A End $30,000 1/12/2015 Client B Start $50,000 5/11/2015 Client B Middle $30,000 5/11/2015 Client B End $50,000 5/12/2015 Client C Start $10,000 10/12/2015 Client C Middle $20,000 20/12/2015 Client C End $30,000 30/12/2015 […]

每次下一次macros运行时更改PivotStyle

我想在运行仪表板的时候每隔一次更换一次pivot stayle，build议同样的编码是： Set rng = ws.Range("A1:" & Split(Cells(, lastcol).Address, "$")(1) & lastrow) srcdata = rng.Address(ReferenceStyle:=xlR1C1) Set pvtch = ActiveWorkbook.PivotCaches.Create(xlDatabase, srcdata) Set pvtbl = pvtch.CreatePivotTable(tableDestination:=ptws.Range("A3"), tablename:="PivotTable1") pvtbl.PivotFields("TAT Status").Orientation = xlRowField pvtbl.PivotFields("RequestType").Orientation = xlRowField pvtbl.PivotFields("Case Owner").Orientation = xlColumnField pvtbl.AddDataField pvtbl.PivotFields("Reference no"), "Count_Ticket_ID", xlCount ptws.Range("A4").Value = "Ticket Type with TAT" pvtbl.TableStyle2 = "PivotStyleDark1" 'Here I want to change […]

VBA将PIVOT表格格式转换为普通数据表格

我有一个来自Pivot表的数据，看起来像这样（列A是空的） 10001 100.00% 1 33.33% 2 33.33% 3 33.33% 10002 100.00% 1 1.45% 2 6.60% 3 3.26% 我想用这种格式来制作，这样我就可以处理数据。 （A列中有ZIPCODE，B和C的数据与上表相同） 10001 100.00% 10001 1 33.33% 10001 2 33.33% 10001 3 33.33% 10002 100.00% 10002 1 1.45% 10002 2 6.60% 我想写一个代码，通过B列读取长度满足5（ZIPCODE），然后复制ZIPCODE长度不是5，然后重复，直到下一个ZIP。 任何智慧，将不胜感激。

无法设置PivotField类的Function属性

我试图在数据透视表PT2中获得“Tempo de Espera”的平均值。 但是，当我使用“.Function = xlAverage”时出现以下错误：无法设置PivotField类的Function属性。 有谁能帮我一下吗？ PT2.AddDataField PT2.PivotFields("Tempo de Espera"), "Count of Tempo de Espera", xlCount With PT2.PivotFields("Count of Tempo de Espera") .Orientation = xlDataField .Function = xlAverage 'ERROR HERE – ErrorMsg: Unable to set the Function property of the PivotField class .Caption = "Average of Tempo de Espera" .NumberFormat = "h:mm:ss" End With

VBAmacros我怎么做一个数据透视表的地方，它屏幕的列标题，并插入旁边的值

我需要数字左边的粗体数字（例如14），以6 …开始（这些是帐户），每次新的Header开始时（例如31），我需要这个数字来改变。 我想编程一个macros，但我不知道如何做到这一点，特别是因为帐户数量几乎每次都在变化，所以我不能只使用一个固定的范围。 如果有人能够帮助我，我将不胜感激。

创build数据透视表macros – 需要通过代码删除标记的行

我想标记的行（小计）不见了，这里是我的数据透视表（我正在编写一个macros）的代码有什么build议吗？ 在这里看到图片 ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=ActiveSheet.UsedRange).CreatePivotTable TableDestination:="", TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(1, 1) ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Kostenstellen-Nr" ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Konto-Nr" ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Betrag Brutto" ActiveSheet.PivotTables("PivotTable1").PivotFields("Kostenstellen-Nr").Orientation = xlRowField ActiveSheet.PivotTables("PivotTable1").PivotFields("Konto-Nr").Orientation = xlRowField ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Betrag Brutto"), "Sum of Betrag Brutto", xlSum

我怎样才能改变我的数据透视表，以便以所需的方式显示数据？

我已经能够将一张数据透视表拖到舞池上，但是却一直没能把它放到舞池上 – 似乎我们一直在踩着彼此的脚趾。 我已经在表格上创build数据透视表的数据。 这个类描述了这个数据： public class PriceVarianceData { public String Unit { get; set; } public String ShortName { get; set; } public String ItemCode { get; set; } public String Description { get; set; } public String PriceWeek { get; set; } public String Week { get; set; } public String Price { […]

VBA数据透视表计算字段，然后汇总它

我有一个数据系列，看起来像这样： Cell Nam HSDPA User Capacity (Kbps) 68693A number 68693A number 68693A number 68693B number 68693B number 68693B number 68693C number 68693C number 68693C number 我想要做的是使用VBA创build一个数据透视表，首先将“HSDPA用户容量转换为Mbps”（通过使用千分之一），然后返回每个“Cell Nam”的平均值， 目前我正在使用下面的代码： 'Creating Pivot table Set objPivotTable = objPivotcache.CreatePivotTable(tempRange) 'Setting Fields With objPivotTable 'set row field With .PivotFields("Cell Nam") .Orientation = xlRowField .Position = 1 End With 'set calculated […]

VBA数据透视表折叠所有字段

我已经在VBA中创build了一个包含string数据的数据透视表，但似乎无法折叠数据透视表中的所有字段，我该怎么做？ 这是我的源代码 SrcData = ActiveSheet.Name & "!" & Range(Cells(1, 1), Cells(46, 3)).Address(ReferenceStyle:=xlR1C1) StartPvt = Sheets("Key Controls").Cells(2, 5).Address(ReferenceStyle:=xlR1C1) Set pvtCache = ActiveWorkbook.PivotCaches.Create( _ SourceType:=xlDatabase, _ SourceData:=SrcData) Set pvt = pvtCache.CreatePivotTable( _ TableDestination:=StartPvt, _ TableName:="PivotTable1") pvt.PivotFields("SOP Reference").Orientation = xlRowField pvt.PivotFields("Key Control ID").Orientation = xlRowField pvt.PivotFields("Key Control Name").Orientation = xlRowField