excel vba(excel透视表的制作)

《excel vba(excel透视表的制作)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、深山老猫和我一起学EXCELVBA(EXCEL透视表的制作)嗯，昨天家里来客人了，十来个人在围着吃火锅，好不热闹，所以把课程耽误了，不过不要紧，下面就让我来和大家一起讨论一下如何用VBA创建，操作EXCEL的数据透视表-------半年前我求人家帮我也求不来，NND，以下的教程是我一手一脚试出来的，耗时两天，当你回复这个帖子的同时，你也会觉得回复得很值，如果你有更好的想法，一起说出来研究一下~~~哈哈。在做这些之前，我得告诉你们，数据透视表的体积可是相当的大，可能超过你的文件本身的10倍以上，所以

2、啊，要小心喽~~~录制一个数据透视表宏1用VBA创建一个透视表3建立多字段的复杂报表4建立加入公式计算的透视表5给数据区加上格式7取消行例合计7快速建立多行多例数据透视表的方法7透视表的行例位置转换/转换9数据区的行例转换10禁止透视表字段拖拉10录制一个数据透视表宏在讲这一切之前，我们再回到以前的习惯，看一下这个透视表都有些啥对像。然后呢，我们来录制一个宏，来一起研究一下如何去用VBA来写。为我们得到的代码都是一样的，所以请用以下的数据进行录制。谢谢。我们来录制这样一个宏――――我们把所有的数量

3、(OrderQuantity)按InventoryCode分组求和如果有人帮助了你,请记往他,并以他帮助你的精神去帮助别人/深山老猫/欢迎您的到来深山老猫和我一起学EXCELVBA(EXCEL透视表的制作)这是生成的数据透视表：录制的宏很简单，如下面的代码。SubMacro1()''Macro1Macro'宏由XueweiL录制，时间:11/28/2008'ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,SourceData:=_"tc5

4、21!R1C1:R575C12").CreatePivotTableTableDestination:="",TableName:=_"数据透视表1",DefaultVersion:=xlPivotTableVersion10ActiveSheet.PivotTableWizardTableDestination:=ActiveSheet.Cells(3,1)ActiveSheet.PivotTables("数据透视表1").AddFieldsRowFields:="Inventory_Code"

5、ActiveSheet.PivotTables("数据透视表1").PivotFields("OrderQuantity").Orientation=_xlDataFieldEndSub好了，在这里我们可以看到几个对象。我们一一来了解一下。PivotCache如果有人帮助了你,请记往他,并以他帮助你的精神去帮助别人/深山老猫/欢迎您的到来深山老猫和我一起学EXCELVBA(EXCEL透视表的制作)透视表缓存，如果改变数据源，可以修改这个属性。下面这个代码可以马上刷新当前的数据透视表ActiveSh

6、eet.PivotTables(1).PivotCache.RefreshPivotCell透视表的一个单元格PivotField表示数据透视表中的一个字段，PivotField对象是PivotFields集合的成员。PivotFields集合包含数据透视表中所有的字段，也包括隐藏字段。PivotFormula代表在数据透视表中用于计算的公式。PivotItem代表数据透视表字段中的一个项。该项是字段类别中的一个独立的数据条目。PivotItem对象是PivotItems集合的成员。PivotIt

7、ems集合包含PivotField对象中的所有项。PivotItemList指定的数据透视表中所有PivotItem对象的集合。每个PivotItem代表数据透视表字段中的一个项。PivotLayout代表数据透视图报表中字段的位置。PivotTable代表工作表上的一张数据透视表。PivotTable对象是PivotTables集合的成员。PivotTables集合包含单张工作表中的所有PivotTable对象。有人说，TNND这样我怎么看得懂啊？？？没关系，只是先让你知道有那么个东东先，后面你

8、就会明白了。用VBA创建一个透视表由刚刚录制的宏和我们平时用数据透视表的习惯可以知道，建立数据透视表的步骤是：确定数据源--à确定行与例-à确定数据项及运算公式先来看看这个代码，这个代码与刚刚我　们录制的代码的功能是一样的，都是把所有的数量(OrderQuantity)按InventoryCode分组求和：[把代码COPY到VBE里面去~~~~]SubCreatePivotTable()DimptcacheAsPivotCacheDimptAsPivotTable'设置区域Setp