数据透视表的内部字段能排序吗？

lrlxxqxa

1、如附件中的地址统计表，能根据每个地址的进线数多少从高到低排序吗？如果可以怎么设置？
2、设置好总表排序，在按照日期分页显示的时候分表能够自动排序吗？
3、我不想让人看到明细数据，如何在27个分表的表格选项里批量去掉勾选“显示明细数据”？
谢谢！

抹香鲸2009

1和2比较好解决。方法：鼠标放在在表头那一行的空白区域，选择筛选，然后在“进线”字段，按降序排序即可。在总表设置好后，各日期页分表自动按降序排列。以上方法在10版测试通过。

[ 本帖最后由 抹香鲸2009 于 2010-4-28 17:04 编辑 ]

lrlxxqxa

问题1和2已经解决，问题1如附件，问题2答案：可以
关于问题3有人知道吗？

lrlxxqxa

有一种老套的方法，将所有表组合后，在任意表设置去掉显示明细数据复选项。

先谢谢抹香鲸。请问，选中后怎样组合？

抹香鲸2009

不好意思，原来提供方法解决不了3的问题。对于非透视表可以这样做。如果透视表并成工作组则不能修改透视表格式。

并成工作组方法很简单：按住ctrl键，可以逐个选中工作表，这样所有被选中的表组成一个工作组。见图中红色圈出部分。要取消工作组，可以在任意一个工作表表名位置单击右键，选择取消即可。

[ 本帖最后由 抹香鲸2009 于 2010-4-28 17:12 编辑 ]

tigeress

这段代码可以解决:
    Sheet1.PivotTables("数据透视表26").HasAutoFormat = False
    Sheet1.PivotTables("数据透视表26").EnableDrilldown = False
    Sheet2.PivotTables("数据透视表25").HasAutoFormat = False
    Sheet2.PivotTables("数据透视表25").EnableDrilldown = False
...
但是我不知道在这个实例中该怎么用for循环

whsfhwm

Sub test()
    Dim Sht As Worksheet, i As Integer
    For Each Sht In Worksheets
      If Sht.Name <> "总报表" Then
        If Sht.PivotTables.Count Then
        Sht.PivotTables(1).HasAutoFormat = False
        Sht.PivotTables(1).EnableDrilldown = False
        End If
      End If
    Next
   
End Sub

lrlxxqxa

多谢楼上三位的不吝赐教！

lihj25

学习了.谢谢

yujian19761976

3楼的这个方法，好象一定要选在首列才行。