[求助]数据透视表列字段的批量设置

TP512926

Sub SumDataFields()
Dim ptField As PivotField
For Each ptField In ActiveSheet.PivotTables(1).DataFields
            With ptField
            
                .Function = xlSum
            
                .Caption = .SourceName
          End With
    Next
End Sub
看代码

TP512926

Sub SumDataFields()


Application.ScreenUpdating = False

     Dim ptField As PivotField, xunw$


xunw = MsgBox("计算方式为求和吗？" & Chr(10) & "点击否，计算方式为计数！", vbInformation + vbApplicationModal + vbYesNo)
   
   
If xunw = vbYes Then
   
   For Each ptField In ActiveSheet.PivotTables(1).DataFields
            
            With ptField
            
                .Function = xlSum
            
                .Caption = "求和:" & .SourceName
                 End With
            Next
     Exit Sub
End If
   For Each ptField In ActiveSheet.PivotTables(1).DataFields
        With ptField
            .Function = xlCount
            .Caption = "计数:" & .SourceName
        End With
    Next
  Application.ScreenUpdating = True
End Sub

对求和和计数做选择，

wuduwuxin

TP512926 发表于 2013-2-6 10:25
Sub SumDataFields()

谢谢，受益良多！