20170517xlVBA添加数据透视表
Sub AddPovitTable()
'Constance
Const DATA_SHEET As String = "Advanced Filter"
Const DATA_ADDRESS As String = "R7C1:R107C11"
Const PIVOT_SHEET As String = "PivotSheet" ' Sheet Name with No space
Const PIVOT_ADDRESS As String = "R3C1"
Const PIVOT_TABLE As String = "Pivot Table" 'Object
Dim Wb As Workbook
Dim Sht As Worksheet
Dim pvtTable As PivotTable Set Wb = ThisWorkbook 'Do not display Alert when delete a sheet
Application.DisplayAlerts = False
For Each Sht In Wb.Worksheets
If Sht.Name = PIVOT_SHEET Then Sht.Delete
Next Sht
Application.DisplayAlerts = True 'Add a new sheet for pivot table
Set Sht = Wb.Worksheets.Add(After:=Wb.Worksheets(Wb.Worksheets.Count))
Sht.Name = PIVOT_SHEET 'Create a new pivot table
Set pvtTable = Wb.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=DATA_SHEET & "!" & DATA_ADDRESS, _
Version:=xlPivotTableVersion15). _
CreatePivotTable( _
TableDestination:=PIVOT_SHEET & "!" & PIVOT_ADDRESS, _
TableName:=PIVOT_TABLE, _
DefaultVersion:=xlPivotTableVersion15)
'set Fields
With pvtTable
.PivotFields("State").Orientation = xlRowField
.PivotFields("State").Position = 1 .PivotFields("City").Orientation = xlRowField
.PivotFields("City").Position = 2 .PivotFields("Salesperson").Orientation = xlRowField
.PivotFields("Salesperson").Position = 3 .PivotFields("Payment").Orientation = xlRowField
.PivotFields("Payment").Position = 4 .PivotFields("Transport").Orientation = xlRowField
.PivotFields("Transport").Position = 5 .PivotFields("Month").Orientation = xlRowField
.PivotFields("Month").Position = 6 .AddDataField .PivotFields("Product A"), "Sum:Product A", xlSum
.AddDataField .PivotFields("Product B"), "Sum:Product B", xlSum
.AddDataField .PivotFields("Product C"), "Sum:Product C", xlSum End With 'Release Objects
Set Wb = Nothing
Set Sht = Nothing
Set pvtTable = Nothing End Sub
20170517xlVBA添加数据透视表的更多相关文章
- 【Excle数据透视表】如何快速选定数据透视表的汇总行并添加绿色底纹
数据透视表创建好之后,如何批量将汇总行的底色修改为绿色呢?目标效果图如下: 解决方案 "启用选定内容"选取所有汇总行 单击任意汇总字段(如:北京 汇总)→选择→启用选定内容→开始→ ...
- 【转载】使用Pandas创建数据透视表
使用Pandas创建数据透视表 本文转载自:蓝鲸的网站分析笔记 原文链接:使用Pandas创建数据透视表 目录 pandas.pivot_table() 创建简单的数据透视表 增加一个行维度(inde ...
- 我们无法找到服务器加载工作簿的数据模型"的 SharePoint 网站,当您刷新 Excel 2013 工作簿中的数据透视表时出错
假定您使用 Analysis Services 源在 Microsoft Excel 2013 中创建数据透视表.将 Excel 工作簿上载到 Microsoft SharePoint 网站中.当您尝 ...
- 【转】关于C#使用Excel的数据透视表的例子
收到消息,下星期又有导出 Excel 报表的代码要写.心想,不就是 OleDb 先 CREATE 表, 然后 INSERT 么?都是体力活啊...... 结果拿到纸张的报表,我就悲剧了.报表的结构,像 ...
- VSTO学习笔记(十四)Excel数据透视表与PowerPivot
原文:VSTO学习笔记(十四)Excel数据透视表与PowerPivot 近期公司内部在做一种通用查询报表,方便人力资源分析.统计数据.由于之前公司系统中有一个类似的查询使用Excel数据透视表完成的 ...
- C# 操作Excel数据透视表
一.概述 数据透视表(Pivot Table)是一种交互式的表,可以进行某些计算,如求和与计数等,可动态地改变透视表版面布置,也可以重新安排行号.列标和页字段.当改变版面布置时,数据透视表也会按照新的 ...
- 利用Excel-Vba进行多表汇总和数据透视表
汇总表格式 详情表格式 要求根据汇总表中的信息,到详情表中查找详细物料的具体个数 最终,对物料的个数进行汇总,结果如下图: ExcelVba代码如下(有一些注释代码供参考) Sub Start() S ...
- 使用excel 数据透视表画图
① 打开Excel,选中需要制表的数据,点击“插入”->“数据透视表” ② 出现下列对话框,点击“确定” ③ 再新的“sheet”表内对“数 ...
- Excel 批量快速合并相同的单元格:数据透视表、宏代码、分类汇总
Excel 批量快速合并相同的单元格 在制作Excel表格的时候,为了使得自己制作的报表更加简洁明了,方便查阅,经常需要合并很多相同的单元格,如果有几千几万条记录需要合并的话,真的会让人发疯.怎样 ...
随机推荐
- MySQL从删库到跑路_高级(七)——事务和锁
作者:天山老妖S 链接:http://blog.51cto.com/9291927 一.事务简介 1.事务简介 事务(Transaction)是指作为单个逻辑工作单元执行的一系列操作. 2.事物的特效 ...
- ios 透过上层视图点击相应下方视图的点击事件
- (UIView*)hitTest:(CGPoint)point withEvent:(UIEvent *)event{ UIView *hitView = [super hitTest:point ...
- VNC的安装和常用命令
主要参考文章:http://www.cnblogs.com/coderzh/archive/2008/07/16/1243990.html http:/ ...
- 如何禁用MySql总是定时弹出一个MySQLInstallerConsole.exe的窗口
如何禁用MySql总是定时弹出一个MySQLInstallerConsole.exe的窗口 禁用mysql总是弹出一个安装框的定时任务这一条安装命令,Installing MySQL 5.6.21 u ...
- mysql下的将多个字段名的值复制到另一个字段名中(批量更新数据)字符串拼接cancat实战例子
mysql下的将多个字段名的值复制到另一个字段名中(批量更新数据)mysql字符串拼接cancat实战例子: mysql update set 多个字段相加,如果是数字相加可以直接用+号(注:hund ...
- 2D 2 3D 开源项目
http://www.cvlibs.net/projects.php http://www.cvlibs.net/software/libelas/
- Python3 获取网络图片并且保存到本地
Python3 获取网络图片并且保存到本地 import requests from bs4 import BeautifulSoup from urllib import request impor ...
- c/c++的typedef/using类型别名
久而久之,发现c/c++的typedef给类型自定义别名的语法糖就保证设计的一致性而言,确实是个相当不错的特性,跟oracle pl/sql的rowtype或type一样,可惜java.mysql均不 ...
- 20145304 Exp7 网络欺诈技术防范
20145304 Exp7 网络欺诈技术防范 实验后回答问题 1.通常在什么场景下容易受到DNS spoof攻击 在公共网络下,如一些购物场所.咖啡馆.快餐店等提供的网络下:当自己常使用的无线网被有恶 ...
- 20145204《网络对抗》逆向及bof基础实践
20145204<网络对抗>逆向及bof基础实践 实践目的说明 实践的对象是一个名为pwn1的linux可执行文件. 该程序正常执行流程是:main调用foo函数,foo函数会简单回显任何 ...