[已解决]如何进行透视表值区域单元格格式设定？

心灵有约

透视表数值区域单元格格式设定.zip (10.67 KB, 下载次数: 19)

2012-12-5 15:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-5 22:45

1. Sub 宏1()
   
2.     Dim i
   
3.     With ActiveSheet.PivotTables("数据透视表1")
   
4.         .ShowTableStyleColumnHeaders = False
   
5.         .ShowTableStyleRowHeaders = False
   
6.         For Each i In .DataFields
   
7.             With i
   
8.                 .NumberFormat = "#,##0.00_ "
   
9.             End With
   
10.         Next
    
11.     End With
    
12. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 宏1()
   
2.     ‘ActiveSheet.PivotTables("数据透视表1").PivotSelect "", xlDataAndLabel, True
   
3.     ActiveSheet.PivotTables("数据透视表1").ShowTableStyleColumnHeaders = False
   
4.     ActiveSheet.PivotTables("数据透视表1").ShowTableStyleRowHeaders = False
   
5.     With ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:数量")
   
6.         .NumberFormat = "#,##0.00_ "
   
7.     End With
   
8.     With ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:金额")
   
9.         .NumberFormat = "#,##0.00_ "
   
10.     End With
    
11. End Sub
    

复制代码

直接录的。

hwc2ycy

1. Sub 宏1()
   
2.     'ActiveSheet.PivotTables("数据透视表1").PivotSelect "", xlDataAndLabel, True
   
3.     With ActiveSheet.PivotTables("数据透视表1")
   
4.         .ShowTableStyleColumnHeaders = False
   
5.         .ShowTableStyleRowHeaders = False
   
6.         
   
7.         With .PivotFields("求和项:数量")
   
8.             .NumberFormat = "#,##0.00_ "
   
9.         End With
   
10.         With .PivotFields("求和项:金额")
    
11.             .NumberFormat = "#,##0.00_ "
    
12.         End With
    
13.     End With
    
14. End Sub
    

复制代码

再优化下。

hwc2ycy

行字段的下拉箭头，要去掉的话，估计只能复制粘贴数据出来。

心灵有约

hwc2ycy 发表于 2012-12-5 16:51
再优化下。

是否涉及几个值字段就要分别设几个语句段呢？可否合并在一个语句段中

hwc2ycy

可以遍历数据字段。

hwc2ycy

1. Sub 宏1()
   
2.     Dim i
   
3.     With ActiveSheet.PivotTables("数据透视表1")
   
4.         .ShowTableStyleColumnHeaders = False
   
5.         .ShowTableStyleRowHeaders = False
   
6.         For Each i In .DataFields
   
7.             With i
   
8.                 .NumberFormat = "#,##0.00_ "
   
9.             End With
   
10.         Next
    
11.     End With
    
12. End Sub

复制代码

心灵有约

hwc2ycy 发表于 2012-12-5 22:45

当数据透视表为数据透视表2时呢？能否对当前活动透视表进行操作，不管是哪个透视表？