透视表的制作.docVIP

嗯，昨天家里来客人了，十来个人在围着吃火锅，好不热闹，所以把课程耽误了，不过不要紧，下面就让我来和大家一起讨论一下如何用VBA创建，操作EXCEL的数据透视表半年前我求人家帮我也求不来，NND，以下的教程是我一手一脚试出来的，耗时两天，当你回复这个帖子的同时，你也会觉得回复得很值，如果你有更好的想法，一起说出来研究一下~~~哈哈。 在做这些之前，我得告诉你们，数据透视表的体积可是相当的大，可能超过你的文件本身的10倍以上，所以啊，要小心喽~~~ 录制一个数据透视表宏 1 用VBA创建一个透视表 3 建立多字段的复杂报表 4 建立加入公式计算的透视表 5 给数据区加上格式 7 取消行例合计 7 快速建立多行多例数据透视表的方法 7 透视表的行例位置转换/转换 9 数据区的行例转换 10 禁止透视表字段拖拉 10 录制一个数据透视表宏 在讲这一切之前，我们再回到以前的习惯，看一下这个透视表都有些啥对像。然后呢，我们来录制一个宏，来一起研究一下如何去用VBA来写。 为我们得到的代码都是一样的，所以请用以下的数据进行录制。谢谢。 我们来录制这样一个宏――――我们把所有的数量(Order Quantity)按Inventory Code 分组求和 这是生成的数据透视表： 录制的宏很简单，如下面的代码。 Sub Macro1() Macro1 Macro 宏由 XueweiL 录制，时间: 11/28/2008 ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ tc521!R1C1:R575C12).CreatePivotTable TableDestination:=, TableName:= _ 数据透视表1, DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.PivotTables(数据透视表1).AddFields RowFields:=Inventory_Code ActiveSheet.PivotTables(数据透视表1).PivotFields(Order Quantity).Orientation = _ xlDataField End Sub 好了，在这里我们可以看到几个对象。我们一一来了解一下。 PivotCache 透视表缓存，如果改变数据源，可以修改这个属性。下面这个代码可以马上刷新当前的数据透视表 ActiveSheet.PivotTables(1).PivotCache.Refresh PivotCell 透视表的一个单元格 PivotField 表示数据透视表中的一个字段PivotField 对象是 PivotFields 集合的成员。PivotFields 集合包含数据透视表中所有的字段，也包括隐藏字段。PivotFormula 代表在数据透视表中用于计算的公式。PivotItem 代表数据透视表字段中的一个项。该项是字段类别中的一个独立的数据条目。PivotItem 对象是 PivotItems 集合的成员。PivotItems 集合包含 PivotField 对象中的所有项。PivotItemList 指定的数据透视表中所有 PivotItem 对象的集合。每个 PivotItem 代表数据透视表字段中的一个项。PivotLayout 代表数据透视图报表中字段的位置。PivotTable 代表工作表上的一张数据透视表。PivotTable 对象是 PivotTables 集合的成员。PivotTables 集合包含单张工作表中的所有 PivotTable 对象。?确定行与例-?确定数据项及运算公式 先来看看这个代码，这个代码与刚刚我　们录制的代码的功能是一样的，都是把所有的数量(Order Quantity)按Inventory Code 分组求和： [把代码COPY到VBE里面去~~~~] Sub CreatePivotTable() Dim ptcache As PivotCache Dim pt As PivotTable 设置区域 Set ptcache = ActiveWorkbook.PivotCaches.Add(xlDatabase, Sheet1.Range(A1).CurrentRegion.Address) 增加透视表到新的工作表 ‘如果你不想加到新的工作表去，比如你想加到另一个工作表