Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 636|回复: 7

[求助] 求一段用VBA做数据透视表的代码

[复制链接]
发表于 2020-1-11 11:42 | 显示全部楼层 |阅读模式
只要客户料号和库存数量

库存统计表.rar

26.69 KB, 下载次数: 10

发表于 2020-1-11 18:33 | 显示全部楼层
回复

使用道具 举报

发表于 2020-1-11 20:26 | 显示全部楼层
回复

使用道具 举报

发表于 2020-1-13 09:59 | 显示全部楼层
Sub AddPt()
    Dim pt As PivotTable
    Dim x As Range, y As Range
    Set x = Sheets("库存表").Range("a1:ah" & Sheets("库存表").Range("a65536").End(xlUp).Row)
    Set y = Sheets("库存统计表").[a1]
    Call DelPt(y.Parent)
    Set pt = y.Parent.PivotTableWizard(SourceType:=xlDatabase, SourceData:=x, TableDestination:=y)
    With pt
        .PivotFields("客户料号").Orientation = xlRowField
        With .PivotFields("库存数量")
            .Orientation = xlDataField
            .Function = xlSum
        End With
    End With
    y.CurrentRegion.EntireColumn.AutoFit
End Sub

Sub DelPt(sh As Worksheet)
    Dim pt As PivotTable
    sh.Cells.Clear
    For Each pt In sh.PivotTables
        pt.TableRange2.Clear
    Next
End Sub


库存统计表2.rar (82.22 KB, 下载次数: 18)
回复

使用道具 举报

 楼主| 发表于 2020-1-15 14:40 | 显示全部楼层
爱疯 发表于 2020-1-13 09:59
Sub AddPt()
    Dim pt As PivotTable
    Dim x As Range, y As Range

运行不了呀!  你上传的文件坏了!
回复

使用道具 举报

 楼主| 发表于 2020-1-15 14:40 | 显示全部楼层

加你了 !通过一下 !谢谢
回复

使用道具 举报

发表于 2020-1-15 14:48 | 显示全部楼层
1)4楼用的1楼附件,都有提示,可以打开,可运行出结果
2)这是把1楼的数据,重新复制到一个空白工作簿里的。 3.rar (126.04 KB, 下载次数: 18)
回复

使用道具 举报

 楼主| 发表于 2020-1-15 15:54 | 显示全部楼层
爱疯 发表于 2020-1-15 14:48
1)4楼用的1楼附件,都有提示,可以打开,可运行出结果
2)这是把1楼的数据,重新复制到一个空白工作簿里 ...

谢谢 !已经打开了! 可以运行!
回复

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2020-8-14 03:54 , Processed in 0.078000 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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