Tag: 数据透视表

VBA创build数据透视表错误1004

我想要一个程序为我创build几个数据透视表（因为我必须每周/每月这样做），但同一types的数据。 基于几个网站，我复制了一些代码，并编辑了以下代码： Private Sub CommandButton1_Click() 'Declaration 'Creates new worksheet Dim sht As Worksheet Dim pvtCache As PivotCache Dim pvt As PivotTable Dim StartPvt As String Dim SrcData As String Dim DataRange As Range 'Create a new worksheet Set sht = Sheets.Add sht.Name = "EUPS Report" 'Determine the data range you want to pivot Set DataRange […]

Excel VBA：在特定的目的地创build数据透视表没有错误？

我一直在广泛研究通过vba创build数据透视表，并面临一些复杂的，我无法find解决scheme。 我正在试图在工作表“Pivot”的第4列中创build一个数据透视表。 当我尝试运行我的代码时，我得到： “运行时错误1004：Worksheet类的PivotTableWizard方法失败。 谁能帮忙？ 我还是很新的vba。 这是我的代码，我不断收到第二行的错误： Sub PivotTable() ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Sheets("Information").UsedRange).CreatePivotTable TableDestination:="Pivot!R1C4", TableName:="PivotTable", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(1, 1) With ActiveSheet.PivotTables("PivotTable").PivotFields("PN") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("PivotTable").PivotFields("Commit") .Orientation = xlColumnField .Position = 1 End With ActiveSheet.PivotTables("PivotTable").AddDataField ActiveSheet.PivotTables("PivotTable").PivotFields("Qty"), "Sum", xlSum End Sub

在Excel中一次设置多个切片器

我有一个具有完全相同的切片机的两个数据透视表的工作簿。 我正在使用VBA脚本来同步两个切片器。 我把它们命名为“Slicer_xxxx_Master”，另一个命名为“Slicer_xxxx_Slave”。 下面的代码工作正常，除了有很多select的切片机。 由于它一个接一个地设置切片，所以它重复地重新过滤数据透视表，直到所有需要的切片被设置。 是否有一种方法将所有切片项值收集到一个数组中，然后一次性设置从属切片器值？ Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) Application.ScreenUpdating = False Dim sC As SlicerCache Dim sC_Slave As SlicerCache Dim SL As SlicerCacheLevel Dim sI As SlicerItem Dim sI_Slave As SlicerItem For Each sC In ActiveWorkbook.SlicerCaches If InStr(1, sC.Name, "Master") Then Set sC_Slave = ThisWorkbook.SlicerCaches(Replace(sC.Name, "Master", "Slave")) For Each sI In […]

将Excel工作表名称传递给macrosVB

我认为这应该是一个简单的，考虑到我有很less的VB知识:)我已经logging了一个macros，为当前表格上的范围创build数据透视表。 当然，这给了我的是为特定工作表创build数据透视表的代码。 我正在尝试调整代码以获取活动工作表的名称，以便可以在不同工作表中使用此macros。 我试图search并find如何检索名称，然后将该名称提供给将创build数据透视表的过程的代码。 我在代码的ActiveWorkbook.PivotCaches.Create部分打了一个障碍。 我得到“运行时错误”1004“：应用程序定义的或对象定义的错误”消息。 任何帮助将不胜感激！ Sub Macro1() Dim sht As String sht = ActiveSheet.Name Columns("A:K").Select ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ Worksheets(sht).Range("!R1C1:R1048576C11"), Version:=6).CreatePivotTable TableDestination:= _ Worksheets(sht).Range("!R1C14"), TableName:="PivotTable3", DefaultVersion:=6 ActiveSheet.Select Cells(1, 14).Select With ActiveSheet.PivotTables("PivotTable3").PivotFields("Department") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("PivotTable3").PivotFields( _ "Originating Master Name") .Orientation = xlRowField .Position = 2 End With With […]

自动创build数据透视表时出错

我创build了一个macros，通过索引匹配和一般计算创build一个包含一些值的表格。 这个表位于范围（“AA1：BA”和LastRow） – >我正在写LastRow，因为每天都在改变拉斯特罗。 我想创build一个数据透视表，它将位于单元格（9,1）中，并将创build一个初始表作为源代码。我构build了您在下面看到的代码，但它给了我一个错误，数据透视表字段名称在行上无效： Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange).CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), TableName:="PivotTable") 下面是与数据透视表相关的整个代码。 Dim PSheet As Worksheet Dim DSheet As Worksheet Dim PCache As PivotCache Dim PTable As PivotTable Dim PRange As Range Dim LastRow As Long Dim LastCol As Long Application.DisplayAlerts = False Application.DisplayAlerts = True Set PSheet = Worksheets("Budget_Report") Set DSheet = Worksheets("Budget_Report") […]

两个数据透视表在同一个Excel表中

我已经在源数据的同一张表中创build了一个数据透视表。 现在，我想在同一张表中使用相同的数据源创build第二个数据透视表，但在数据透视表（当然）中使用不同的打印数据。 我一直收到一个错误，因为它说，数据透视表不能覆盖另一个数据透视表。 然而，他们的方式，我已经select了数据透视表创build的范围，他们不会相互覆盖。 我也手动testing。 另外，如果我logging过程，它只是使用源数据的准确参考，我不想使用，因为每天都会改变lastrow和lastcolumn。 只是提醒一下，这个macros很适合创build第一个表格。 第二个表是问题。 下面，我将提供我现在的代码。 Dim DSheet As Worksheet Dim PCache As PivotCache Dim PTable1 As PivotTable Dim PTable2 As PivotTable Dim PRange As Range Application.DisplayAlerts = True Set DSheet = Worksheets("Budget_Report") Set PRange = DSheet.Range(Cells(1, 53), Cells.SpecialCells(xlCellTypeLastCell)) Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange) Set PTable1 = PCache.CreatePivotTable(TableDestination:=DSheet.Cells(4, 1), TableName:="PivotTable1") Set PTable2 […]

在数据透视表中添加一个带有对透视表单元格的引用的计算字段

我一直在试图在数据透视表中添加一个计算的字段。 整个数据透视表是迄今为止完美创build的。 最后一列，我想添加id计算的一个。 不幸的是，到目前为止，我甚至无法手动进行。 但是，如果我只是在数据透视表旁插入下面提供的公式，那么它完美的工作。 =GETPIVOTDATA('Monthly $/SU Forecast',$A$15,'T-Lane','Athens to GREECE')-GETPIVOTDATA('Monthly $/SU Actual',$A$15,'T-Lane','Athens to GREECE') 当我在macros中键入下面的内容时，它会显示“无法获取数据透视表类的PivotFields属性” .PivotFields("Diff").Orientation = xlDataField 代码的整个部分是这样的： .CalculatedFields.Add "Diff", "=GETPIVOTDATA('Monthly $/SU Forecast',$A$15,'T-Lane','Athens to GREECE')-GETPIVOTDATA('Monthly $/SU Actual',$A$15,'T-Lane','Athens to GREECE')" .PivotFields("Diff").Orientation = xlDataField 我的枢轴表

通过VBA创build数据透视表中的问题

Set myPivotTable = ActiveWorkbook.PivotCaches.Create( SourceType:=xlDatabase, SourceData:=mySourceWorksheet.Name & "!" & mySourceData).CreatePivotTable( TableDestination:=myDestinationWorksheet.Name & "!" & myDestinationRange, TableName:="Sheet1NewSheet") 上面的代码给了我 运行时错误5表示无效的过程调用或参数。

dynamic更新数据透视表旁边的注释

我有一个数据透视表，显示产品的列表。 每个产品都会显示当前库存水平，该产品的当前需求等信息。我想要做的是在每个产品的旁边（在数据透视表外面）做笔记，例如说明库存的原因对于某个产品来说是低的，我们会做什么，谁来负责（3列）。 不过，我希望将这些评论“链接”到每个产品上。 这意味着，如果我调整数据透视表中的filter，我刚才写的评论，转移到在数据透视中正确的产品线。 与当前筛选器select无关的注释不应该丢失，但是每当链接的产品在数据透视表中再次popup时都应该出现。 有任何想法吗？ 谢谢！

Excel数据透视表使用date列来过滤结果

我有一个数据透视表，我已经在页面字段区域中inputdate字段来过滤页面中的数据。 但是，我只能select单个date。 我想使用date范围。 我怎样才能做到这一点？ 或者我可以这样做吗？