数据透视表笔记（以了保持流畅性，请勿回贴，如果喜欢送朵花就行了，谢谢）

fankairong

18、清除数据透视表字段下拉列表中的无用信息
2003版：将该字段拉出数据透视表；刷新数据透视表；重新将字段拉入透视表。
2007版：数据透视表选项；数据；保留从数据源删除的项目；每个字段保留的项数（设置为无）
自动：2002及以后版本适用
Sub DeleteMissingItems2002All()
'prevents unused items in non-OLAP PivotTables
'pivot table tutorial by contextures.com
Dim pt As PivotTable
Dim ws As Worksheet
Dim pc As PivotCache

'change the settings
For Each ws In ActiveWorkbook.Worksheets
  For Each pt In ws.PivotTables
    pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
  Next pt
Next ws

'refresh all the pivot caches
For Each pc In ActiveWorkbook.PivotCaches
  On Error Resume Next
  pc.Refresh
Next pc

End Sub

fankairong

19、SQL中Alias（别名的应用），在用SQL语句重构多个数据源，并用有条件时可发挥大作用。
select * from (select 货号,count(*) as js from [Sheet1$A3:C12] group by 货号)a,[Sheet1$A3:C12]b where a.js>1 and a.货号=b.货号
构建两个别名，a和b，并且a中货号＝b中货号
实例参考http://club.excelhome.net/viewth ... p;page=1#pid3007352

fankairong

20、判断一个单元格是否属于数据透视表
Excel 开发人员参考
Range.LocationInTable 属性
返回一个常量，该常量描述包含指定区域左上角部分的 PivotTable 部分。可为以下 XlLocationInTable 常量之一。Long 类型，只读。
语法

表达式.LocationInTable

表达式   一个代表 Range 对象的变量。

说明


XlLocationInTable 可为以下 XlLocationInTable 常量之一。
xlRowHeader
xlColumnHeader
xlPageHeader
xlDataHeader
xlRowItem
xlColumnItem
xlPageItem
xlDataItem
xlTableBody


示例


本示例显示一个消息框，用以描述数据透视表中活动单元格所在的位置。

Visual Basic for Applications
Worksheets("Sheet1").Activate
Select Case ActiveCell.LocationInTable
Case Is = xlRowHeader
    MsgBox "Active cell is part of a row header"
Case Is = xlColumnHeader
    MsgBox "Active cell is part of a column header"
Case Is = xlPageHeader
    MsgBox "Active cell is part of a page header"
Case Is = xlDataHeader
    MsgBox "Active cell is part of a data header"
Case Is = xlRowItem
    MsgBox "Active cell is part of a row item"
Case Is = xlColumnItem
    MsgBox "Active cell is part of a column item"
Case Is = xlPageItem
    MsgBox "Active cell is part of a page item"
Case Is = xlDataItem
    MsgBox "Active cell is part of a data item"
Case Is = xlTableBody
    MsgBox "Active cell is part of the table body"
End Select

Excel 开发人员参考
PivotCell 对象
代表数据透视表中的一个单元格。
说明


使用 Range 集合的 PivotCell 属性可返回一个 PivotCell 对象。

返回 PivotCell 对象后，可以使用 ColumnItems 或 RowItems 属性来确定 PivotItems 集合，对应于代表所选编号的列轴或行轴上的项目。下例使用 PivotCell 对象的 ColumnItems 属性来返回一个 PivotItemList 集合。


示例


返回了 PivotCell 对象后，可以使用 PivotCellType 属性来确定某个特定区域是什么单元格类型。下例确定数据透视表中的单元格 A5 是否是数据项目并通知用户。此示例假定活动工作表上存在数据透视表而且单元格 A5 包含在该数据透视表中。如果单元格 A5 不在数据透视表中，该示例会处理运行时错误。

Visual Basic for Applications
Sub CheckPivotCellType()

    On Error GoTo Not_In_PivotTable

    ' Determine if cell A5 is a data item in the PivotTable.
    If Application.Range("A5").PivotCell.PivotCellType = xlPivotCellValue Then
        MsgBox "The PivotCell at A5 is a data item."
    Else
        MsgBox "The PivotCell at A5 is not a data item."
    End If
    Exit Sub

Not_In_PivotTable:
    MsgBox "The chosen cell is not in a PivotTable."

End Sub

此示例确定单元格 B5 的数据项所在的列字段。然后判断列字段标题是否与“Inventory”相匹配，并通知用户。此示例假定数据透视表位于活动工作表上，并且工作表的 B 列包含数据透视表的列字段。

Visual Basic for Applications
Sub CheckColumnItems()

    ' Determine if there is a match between the item and column field.
    If Application.Range("B5").PivotCell.ColumnItems.Item(1) = "Inventory" Then
        MsgBox "Item in B5 is a member of the 'Inventory' column field."
    Else
        MsgBox "Item in B5 is not a member of the 'Inventory' column field."
    End If

End Sub

hxyz25

谢谢分享  
请问在一个多数据源的透视表里，其它都是求和项，添加一个平均项或者最大项句子怎么写？

O(∩_∩)O谢谢盼复

亡者天下

谢谢LZ分享
学习了！
不过有一个小小的建议，如果楼主要是把所有的笔记汇总在一个文件，上传一个附件，那就更好了！！！！！
哈哈哈哈

fankairong

原帖由 亡者天下 于 2009-11-10 21:38 发表
谢谢LZ分享
学习了！
不过有一个小小的建议，如果楼主要是把所有的笔记汇总在一个文件，上传一个附件，那就更好了！！！！！
哈哈哈哈

哈哈,提议不错,不过本人只是个小小菜鸟而己,这个贴子也是主要用于记载平时学习中的一些心得而己,以备日后查阅.

fankairong

使用数据透视中内建公式→计算字段进行汇总时，会有可能导致小数位虚增的情况。
所以对于计算字段时一般应添加round函数
如

fankairong

EXCEL中使用SQL对日期进行格式化（format）及多表联合
select [数据$].经销商,[数据$].类别,[数据$].借方,[数据$].贷方,format([数据$].日期,"yymm") as 年月, [经销商$].区域 from [数据$],[经销商$] where [数据$].经销商=[经销商$].经销商

fankairong

EXCEL 2007有预定义丰富的表格、数据透视表样式；但却不一定能满足我们的实际需求，因此往往需要对其进行再加工，但是系统预定义的样式便不允许直接进行修改，那应该如何对其进行再加工呢？
方法是：
选择其中一个比较接近我们需要的样式，然后右键→复制，系统将新建一个一样的样式在自定义中，然后便可在自定义中选择，便可以右键→修改。
为了达到最佳效果，往往在应用样式后应选择“数据透视表样式选项”中的镶边行与镶边列。

[ 本帖最后由 fankairong 于 2010-4-24 15:22 编辑 ]

pdamen

很好 ，留个记号，以后仔细参考与学习，已经使用了开关getpivotdata功能，谢谢

[ 本帖最后由 pdamen 于 2010-4-27 12:53 编辑 ]