VBA数据透视表

ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=sh & "!R1C1:R" & rn & "C22", _
    Version:=4 _
    ).CreatePivotTable _
    TableDestination:="Sheet1!R1C1", _
    TableName:="数据透视表1", _
    DefaultVersion:=4
    'xlPivotTableVersion10=1(03)11=2()12=3()14=4(2010)~15=5(2013)6(2016)
    '必须在表激活情况下才能操作表中的数据透视表
With ActiveSheet.PivotTables("数据透视表1")
    '报表布局设置
    .RowAxisLayout xlTabularRow 'xlTabularRow表格,xlOutlineRow大纲,xlCompactRow压缩(默认)
    .RepeatAllLabels xlRepeatLabels 'xlRepeatLabels重复,xlDoNotRepeatLabels不重复(默认)
    '总计
    .ColumnGrand = False '.ColumnGrand列.RowGrand行'默认都启用True
    
    '行列筛选分类汇总域
    pf = Array("类型", "拣货员名称", "逻辑区号", "任务领取时间")
    For Each pfi In pf
    With .PivotFields(pfi)
        .Orientation = xlRowField
        .Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
    End With
    Next
    
    '.Orientation = xlRowField / xlColumnField / xlPageField
    '.Position = 1 '插入位置
    '.分类汇总 = Array (自动,求和,计数,平均值,最大值,最小值,乘积,数值计数,标准偏差,总体标准差,方差,总体方差)
    '.Subtotals = Array(Atuo,Sum,Count,Average,Max,Min,Product,Count Nums,StdDev,StdDevp,Var,Varp)
    '.SubtotalLocation xlAtTop '分类汇总位置xlAtTop顶部,xlAtBottom底部(默认)
    
    '值域与格式
    .AddDataField .PivotFields("拣货完成时间"), "最后拣货完成时间", xlMax
    .PivotFields("最后拣货完成时间").NumberFormat = "yyyy/m/d h:mm:ss"
    .AddDataField .PivotFields("实际拣货量"), "行", xlCount
    .AddDataField .PivotFields("实际拣货量"), "件", xlSum
    
    '全选透视表
    .PivotSelect "", xlDataAndLabel, True
    'PivotSelect 对象,模式,[允许宏]
    '模式:xlBlanks/xlButton/xlDataOnly/xlFirstRow/xlLabelOnly/xlOrigin/xlDataAndLabel(默认但必须)
End With

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏zingpLiu

python2.x之pyshp的使用

2986
来自专栏逸鹏说道

小白眼中的AI之~Numpy基础

引入一下 Numpy模块, Numpy的数组使用可以查看一下帮助文档, Numpy的 array数组类型必须是一致的(后面会讲)

1034
来自专栏PPV课数据科学社区

Excel常用函数大全

我们在使用Excel制作表格整理数据的时候,常常要用到它的函数功能来自动统计处理表格中的数据。这里整理了Excel中使用频率最高的函数的功能、使用...

3709
来自专栏数据结构与算法

BZOJ2595: [Wc2008]游览计划(斯坦纳树,状压DP)

1570
来自专栏禹都一只猫博客

Python科学计算:在Numpy的边缘试探(入门学习)

2068
来自专栏程序员互动联盟

【专业技术】Android平台下使用OpenGL

存在问题: 安卓平台下如何使用opengl? 解决方案: 1、GLSurfaceView GLSurfaceView是Android应用程序中实现OpenGl画...

3766
来自专栏数据小魔方

字符串提取函数

今天要跟大家分享三个excel中使用频率最高的字符串提取函数——left/right/mid函数。 ▽▼▽ 这三个函数分别对用截取某一单元格文本的左、右、中间某...

3475
来自专栏desperate633

LintCode 最大正方形题目分析代码

样例 1 0 1 0 0 1 0 1 1 1 1 1 1 1 1 1 0 0 1 0 返回 4

742
来自专栏小鹏的专栏

Pandas处理csv表格

可以结合这篇使用:数据处理利器Pandas使用手册 1)读取csv文件 data =pandas.read_csv(‘test.csv’) //返回的是Data...

3425
来自专栏腾讯IVWEB团队的专栏

WebGL: 从 2D 开始

本文要讨论的 webgl 相对来说会更加底层,它建立在 OpenGL ES 2.0 ( 嵌入式 OpenGL,一个适用于移动设备的 3D 图形标准 )之上,对曾...

1.4K1

扫码关注云+社区