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

...全文
388 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
CSDN-Ada助手 2023-01-13
  • 打赏
  • 举报
回复
您可以前往 CSDN问答-Python 发布问题, 以便更快地解决您的疑问

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧