Tag: 数据透视表

使用VBA在数据透视表中的多个数据范围: 我试图寻找解决scheme，但找不到一个。感谢所有的帮助。您能否告诉我是否有办法将来自两张不同工作表的数据作为使用VBA的数据透视表中的数据源？示例：在Sheet 1中有一个默认数据，用户从下拉列表中select“Sheet 3”，因此vba应该创build一个数据透视表（或者刷新当前数据透视表），数据源是Sheet 1和工作表3.同样，如果用户然后select工作表5，数据透视表应该是工作表1 +工作表5的组合。由于我打算不断向Excel文件添加数据，这将是非常有用的。谢谢！

使用VBA将新列添加到数据透视表中: 我是Excel VBA的新手，现在我在处理数据透视表时遇到困难。数据透视表用于统计得分和得分的发生。我已经完成了数据透视表中的平均函数。（COMP）现在我想分割分数的发生范围。例如，有多less人的得分在> = 80，或> = 70，或> = 60，甚至<60（失败）在此之后，我也要计算通过的比率以下是一些必须使用数据透视表的条件：一个经理有很多领导，一个领导有很多成员，成员参加考试并计分。因此，成员的分数观点应该与经理和领导者相结合，以便看到每个经理的数据测量。以下是使用Pivot Table的VBA代码来达到我的要求： Private Sub CommandButton1_Click() Dim objTable As PivotTable, objField As PivotField Dim ws As Worksheet Dim wsPivot As Worksheet ActiveWorkbook.Sheets("Sheet1").Select Range("A1").Select Set objTable = Sheet1.PivotTableWizard ' Specify row and column fields Set objField = objTable.PivotFields("Creator's Tower […]

从VBA中构build和命名的数组构build一个数据透视表: 我试图引用我的枢轴的源数据名称。我有以下代码： Set rng1 = Sheets("CALA current credit usage").Range("A1:L235") Set rng2 = Sheets("CALA forecast credit usage").Range("A2:L235") Dim MyArray() TotalRows = rng1.Rows.Count + rng2.Rows.Count + 1 ReDim Preserve MyArray(1 To TotalRows, 1 To rng1.Columns.Count) For i = 1 To rng1.Columns.Count For j = 1 To rng1.Rows.Count MyArray(j, i) = rng1.Cells(j, i) Next j Next i j […]

将切片器设置为单元格值: 我有一个控制“数据透视表1”的切片机“Slicer_Item”。根据其他切片机的select，这个切片机有1至100多个项目。当有这么多的项目，很难find你想要select的东西。我希望能够input我想要的项目，用逗号分隔，并让切片机自动select这些项目。这是我迄今为止所尝试的： ActiveWorkbook.SlicerCaches("Slicer_Item").VisibleSlicerItemsList = Array( _ "[Item].&[" & Worksheets("Forecasting").Range("B2") & "]")

VBA将透视滤镜设置为单个select: 从今天早些时候解决了我原来的问题 – 现在我有工作代码，没有像我想要的那样产生完美的结果。简而言之，我循环遍历所有表单，并将所有要被过滤的枢轴设置为单个值。我不想要多个值，除非filter被清除并显示一切。我的代码如下所示，显示所需的数据，但透视图上的filter本身显示为多个值（选中一个值）。我怎样才能得到它作为一个单一的select，并显示在枢轴filter单一的价值？ Sub Loop_Complex_bkup() Dim wks As Worksheet, strName As String, pvt As PivotTable, strPvtName As String For Each wks In Worksheets strName = wks.Name For Each pvt In wks.PivotTables strPvtName = pvt.Name With Sheets(strName).PivotTables(strPvtName).PivotFields("OrderSubType") .ClearAllFilters For Each PivotItem In .PivotItems If PivotItem = "Complex" Then PivotItem.Visible = True If […]

Excel数据透视表问题使用VBA将列设置为“正在运行总计”: 我正在使用VBA循环透视表，以便更新值以包括新的数据（来自外部源）并更新分组的开始和结束date。这个代码工作… For Each pvt In ws.PivotTables For Each pvtFld In pvt.RowFields rowLabel = pvtFld.Name pvtFld.DataRange.Group Start:=startDate, End:=endDate, By:=7, Periods:=Array(False, False, False, True, False, False, False) Next pvtFld … [Trouble code will go here, but let me explain further] Next pvt 我遇到的问题是刷新所有的“运行总数”重置为“不计算”。录制macros对于其他电子表格是有帮助的但不是有用的 ' Sets the "Total" Column from each Pivot to "Running Total" With […]

使用vba循环访问excel的数据: 我想循环通过一个数据透视表的列添加条件格式。我不知道如何select一列的数据。我只能够select列标题。在下面的代码中，我将条件格式部分留下来以减less复杂性。 Sub Format_Pivot_Columns() Set pt = ActiveSheet.PivotTables("piv_scrapedata") For Each ptFld In pt.ColumnFields ptFld.DataRange.Select Selection.Interior.Color = vbYellow Next ptFld End Sub 任何想法？谢谢！

创build差异表: 我有一个数据表，我已经运行了几个macros来识别差异，我现在正在创build一个matrix表，它显示了每个部门每列的差异。这是我的工作表在看到差异之后的样子： [差异表格 ] http://imgur.com/na6nvNH 这就是我想要的： [FinalSheet] http://imgur.com/i6W60m7 我目前有图像1这是一个突出显示的差异表，我需要创buildmatrix部门的Y轴与X轴的列标题和每列的差异不知道我是否可以使用数据透视表，因为数据总是在变化。任何意见将有助于感谢。

使用VBA设置数据透视表中的行的顺序: 我目前正在使用连接到工作簿中的其他工作表中的几个表的数据透视表。不过，我需要按照我确定何时input数据的层次结构对行进行sorting。我有一个源表中的位置编号，但需要使用这些数据来设置数据透视表内的位置使用一些VBA代码。我不确定这是否可能，所以任何想法都不胜感激。提前致谢。

通过macros在数据透视表中插入数据: 其目的是dynamic地将页面INPUT的完整数据范围复制到页面OUTPUT上的数据透视表Table16 – 在标题NAME下的第一个单元格中。数据透视表（某种模板）中的一个小备注包含更多的列，然后是我想要复制的3个列。 Sub SelectCopy() ' ' SelectCopy Macro ' ' the intention is to copy dynamically the complete range of data – on page INPUT ' to the pivot table Table16 on OUTPUT page – in the first cel under the title NAME Range_cels = Sheets("info").Range("M4").Value ThisWorkbook.Sheets("input").Select Range(Range_cels).Select Selection.Copy MsgBox "The data has […]