VBA批量创建多个数据透视图

李昭宇 2022-04-13 15:37:33

如何用VBA批量创建多个数据透视图,楼主只会用VBA创建数据透视表,但是不知道如何创建数据透视图,直觉是加一句创建图的代码即可,但还没这个水平,求指教。下文附上数据源和创建透视表的代码
数据源:
组别 电芯编号 容量 能量 温升
GN1 37 7.347 26.74 0.6
GN2 38 8.347 27.74 1.6
GN3 39 9.347 28.74 2.6
GN4 40 10.347 29.74 3.6
GN5 41 11.347 30.74 4.6
创建透视表的代码:
Sub creatpivot()
Dim pt As PivotTable
Dim pc As PivotCache
Set pc = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ThisWorkbook.Sheets("容量").Range("a1:e6"))
Set pt = pc.CreatePivotTable(TableDestination:=ThisWorkbook.Sheets("容量").Range("f2"), TableName:="Video Data")
pt.ColumnGrand = False '不显示列统计
pt.RowGrand = False '不显示列统计

pt.AddFields RowFields:="组别"
pt.AddDataField pt.PivotFields("容量"), "均值:容量", xlAverage '添加容量为值字段,平均值
pt.AddDataField pt.PivotFields("能量"), "均值:能量", xlAverage '添加能量为值字段,平均值
pt.AddDataField pt.PivotFields("温升"), "均值:温升", xlAverage '添加温升为值字段,平均值
End Sub

...全文
81 回复 打赏 收藏 举报
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复
发帖
VBA
加入

2167

社区成员

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
申请成为版主
帖子事件
创建了帖子
2022-04-13 15:37
社区公告
暂无公告