数据透视表字段格式批量设置

菜鸟一枚

Sub Macro1()
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:2001年")
        .NumberFormat = "#,##0.00"
    End With
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:2002年")
        .NumberFormat = "#,##0.00"
    End With
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:2003年")
        .NumberFormat = "#,##0.00"
    End With
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:2004年")
        .NumberFormat = "#,##0.00"
    End With
.........................................................................
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:2010年")
        .NumberFormat = "#,##0.00"
    End With
End Sub

这段能够有什么语法精简吗？比如把“2001年”到“2010年”字段做个集合，再赋予同样的操作

[ 本帖最后由 菜鸟一枚 于 2010-10-25 18:57 编辑 ]

bibisin

试一试

1. 
   
2. Sub Macro1()
   
3.     dim a as integer
   
4.     For a=1 to 10
   
5.     With ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:" & 2000+a & "年")
   
6.         .NumberFormat = "#,##0.00"
   
7.     End With
   
8.     Next
   
9. End Sub
   

复制代码

菜鸟一枚

谢谢关注，怪我举的例子不合适，我主要还是想知道字段名是无规律的话该怎么精简？

ericjon

建议等数据透视表完成后再写个Macro设置范围格式。

alzeng

Arr = Array("2001","2004","2007","2009","2010")
For k = 0 To 4
    ActiveSheet.PivotTables("数据透视表1").PivotFields("求和项:" & Arr(k) & "年").NumberFormat = "#,##0.00"
Next

菜鸟一枚

ok了，果然还是用Array数组，多谢一念兄，也谢谢关注的各位

bluexuemei

学习一念兄的代码。