Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 7758|回复: 5

[已解决]用宏录制数据透视表

[复制链接]
发表于 2013-5-4 17:02 | 显示全部楼层 |阅读模式
test.rar (21.84 KB, 下载次数: 36)
11b.png
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-5-4 17:25 | 显示全部楼层
名字冲突了。
你录的时候就已经建立了一个名为 数据透视表2 的透视表,再运行的话,就不成了。
回复

使用道具 举报

发表于 2013-5-4 17:34 | 显示全部楼层    本楼为最佳答案   
  1. Sub test()
  2.     With ActiveWorkbook.PivotCaches.Add(xlDatabase, Worksheets("sheet1").UsedRange)
  3.         With .CreatePivotTable(ActiveCell)
  4.             With .PivotFields("元件")
  5.                 .Orientation = xlRowField
  6.                 .Position = 1
  7.             End With
  8.             .AddDataField .PivotFields("数量"), "计数项:数量", xlCount
  9.         End With
  10.     End With
  11. End Sub
复制代码
选中一单元格后,再运行代码就能创建了。

千万不要选中到SHEET1的AB列数据区域里了。

回复

使用道具 举报

发表于 2013-5-4 17:35 | 显示全部楼层
也可以通过对话框来选择数据表的存放位置。
回复

使用道具 举报

 楼主| 发表于 2013-5-10 17:12 | 显示全部楼层
hwc2ycy 发表于 2013-5-4 17:35
也可以通过对话框来选择数据表的存放位置。

这个有个问题,每次原件种类数不一样,怎么弄啊?
通过这个VB算出来的好像不对
回复

使用道具 举报

发表于 2013-5-10 17:23 | 显示全部楼层
adan_bai 发表于 2013-5-10 17:12
这个有个问题,每次原件种类数不一样,怎么弄啊?
通过这个VB算出来的好像不对

你试过新加种类数没,这是数透,只要你的种类数包含在数据区域了,就都会有的,除非你筛选了。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:39 , Processed in 0.602831 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表