EXCEL-VBA创建透视表_Lala

EXCEL-VBA创建透视表,梦央苑工作室,有事没事，网查一次；有问答问，有疑解疑！,写在前面,梦央苑工作室,近日写一个EXCEL表的VBA小工具，要用到EXCEL的“数据透视表”表这个功能，想走点捷径写这个程序，于是上网找如何用VBA创建“数据透视表”的文章，竟然只找到一两篇，而且不是无法运行，就是写得很业余的（运行过程中，用户如果点一下单元格，程序运行就异常那种）。不得已，自己查VBA帮助，写了一个，现在拿出来分享给有兴趣的同志们！本教程不说理论，直接以实例讲解！（注：本人写这程序用的是OFFICE2010版）,基础表,梦央苑工作室,以下的几个实例，都以下面的这份表格数据为基础，表名称为“基础表”：,实例1：效果图,梦央苑工作室,每个员工、每个月的工资列表，并求出总工资。以下为结果图,实例1：代码_第一部分,梦央苑工作室,每个员工、每个月的工资列表，并求出总工资。以下为代码,PublicSubcreatePivot()DimwsAsWorksheetDimsTableNameAsStringDimobjPivotTableAsPivotTableDimobjFieldAsPivotFieldDimrDataSourceAsRangeDimrDestinationAsRange指定基础数据区域SetrDataSource=ThisWorkbook.Worksheets(基础表).Range(A1:E16)指定数据透视表名称（随意）sTableName=Lala新建一个数据表，用来显示结果Setws=ThisWorkbook.Worksheets.Add指定数据透视表的位置SetrDestination=ws.Range(A1)创建透视表SetobjPivotTable=ws.PivotTableWizard(SourceType:=xlDatabase,SourceData:=rDataSource,TableDestination:=rDestination,TableName:=sTableName)把“员工”项定义为行标签WithobjPivotTable.PivotFields(员工).Orientation=xlRowField.Position=1EndWith把“月份”项定义为行标签WithobjPivotTable.PivotFields(月份).Orientation=xlColumnField.Position=1域的位置EndWith,实例1：代码_第二部分,梦央苑工作室,每个员工、每个月的工资列表，并求出总工资。以下为代码,把“工资”项定义为数值项WithobjPivotTable.PivotFields(工资).Orientation=xlDataField透视项排列方向（Orientation），xlDataField:数据域、xlRowField:行域、xlColumnField:列域.Function=xlSum域的求值模式xlSum:求和、xlCount:计数、xlAverage：平均值、xlMax：最大值、xlMin：最小值.Caption=总工资域的名称EndWith打完收工，处理后事SetrDataSource=NothingSetws=NothingSetrDestination=NothingSetobjPivotTable=NothingEndSub,实例2：效果图,梦央苑工作室,每个员工的总工资和总资金。以下为结果图,实例2：代码_第一部分,梦央苑工作室,每个员工的总工资和总资金。以下为代码,PublicSubcreatePivot()DimwsAsWorksheetDimsTableNameAsStringDimobjPivotTableAsPivotTableDimobjFieldAsPivotFieldDimrDataSourceAsRangeDimrDestinationAsRange指定基础数据区域SetrDataSource=ThisWorkbook.Worksheets(基础表).Range(A1:E16)指定数据透视表名称（随意）sTableName=Lala新建一个数据表，用来显示结果Setws=ThisWorkbook.Worksheets.Add指定数据透视表的位置SetrDestination=ws.Range(A1)创建透视表SetobjPivotTable=ws.PivotTableWizard(SourceType:=xlDatabase,SourceData:=rDataSource,TableDestination:=rDestination,TableName:=sTableName)把“员工”项定义为行标签WithobjPivotTable.PivotFields(员工).Orientation=xlRowField.Position=1EndWith,实例2：代码_第二部分,梦央苑工作室,每个员工的总工资和总资金。以下为代码,把“工资”项定义为数值项WithobjPivotTable.PivotFields(工资).Orientation=xlDataField透视项排列方向（Orientation），xlDataField:数据域、xlRowField:行域、xlColumnField:列域.Function=xlSum域的求值模式xlSum:求和、xlCount:计数、xlAverage：平均值、xlMax：最大值、xlMin：最小值.NumberFormat=0.00_显示格式.Caption=总工资域的名称EndWith把“奖金”项定义为数值项WithobjPivotTable.PivotFields(奖金).Orientation=xlDataField.Function=xlSum.NumberFormat=0.00_显示格式.Caption=总奖金域的名称EndWith以下把各LTE站点的流量信息从竖列表表示，转为以行列表表示WithobjPivotTable.DataPivotField.Orientation=xlColumnField.Position=1EndWith打完收工，处理后事SetrDataSource=NothingSetws=NothingSetrDestination=NothingSetobjPivotTable=NothingEndSub,实例3：效果图,梦央苑工作室,每个员工在每间公司的总工资和总资金。以下为结果图,实例2：代码_第一部分,梦央苑工作室,每个员工的总工资和总资金。以下为代码,PublicSubcreatePivot()DimwsAsWorksheetDimsTableNameAsStringDimobjPivotTableAsPivotTableDimobjFieldAsPivotFieldDimrDataSourceAsRangeDimrDestinationAsRange指定基础数据区域SetrDataSource=ThisWorkbook.Worksheets(基础表).Range(A1:E16)指定数据透视表名称（随意）sTableName=Lala新建一个数据表，用来显示结果Setws=ThisWorkbook.Worksheets.Add指定数据透视表的位置SetrDestination=ws.Range(A1)创建透视表SetobjPivotTable=ws.PivotTableWizard(SourceType:=xlDatabase,SourceData:=rDataSource,TableDestination:=rDestination,TableName:=sTableName)把“公司”项定义为行标签WithobjPivotTable.PivotFields(公司).Orientation=xlRowField.Position=1EndWith,实例3：代码_第二部分,梦央苑工作室,每个员工的总工资和总资金。以下为代码,把“员工”项定义为行标签WithobjPivotTable.PivotFields(员工).Orientation=xlRowField.Position=2EndWith把“工资”项定义为数值项WithobjPivotTable.PivotFields(工资).Orientation=xlDataField透视项排列方向（Orientation），xlDataField:数据域、xlRowField:行域、xlColumnField:列域.Function=xlSum域的求值模式xlSum:求和、xlCount:计数、xlAverage：平均值、xlMax：最大值、xlMin：最小值.NumberFormat=0.00_显示格式.Caption=总工资域的名称EndWith把“奖金”项定义为数值项WithobjPivotTable.PivotFields(奖金).Orientation=xlDataField.Function=xlSum.NumberFormat=0.00_显示格式.Caption=总奖金域的名称EndWith以下把各LTE站点的流量信息从竖列表表示，转为以行列表表示WithobjPivotTable.Da