数据透视表中的计数与求和如何判断

broadband

Dim hangshu As Integer
    hangshu = Application.WorksheetFunction.CountA(Sheets("汇总数据").Columns(1))
    'huangshu = Range("a65536").End(xlUp).Row   效果同上
    Range("A1").Select
   
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "汇总数据!R1C1:R" & hangshu & "C17").CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("数据透视表").SmallGrid = False
    With ActiveSheet.PivotTables("数据透视表").PivotFields("账号")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表").PivotFields("交易金额")
        .Orientation = xlDataField
        .Position = 1
    End With
    ActiveSheet.PivotTables("数据透视表").PivotFields("计数项:交易金额").Function = xlSum

由于汇总数据工作表的“交易金额”字段有可能为空值，则会自动按计数来统计，如果没有空值，则自动按求和统计，能否用if加以判断呢？应如何编写呢？谢谢。

broadband

急用啊!

broadband

请高手指点啊！！！

oceanfly

ActiveSheet.PivotTables("数据透视表").PivotFields("计数项:交易金额").Function = xlSum
这句话就是说是汇总还是计数。你可以根据条件把它修改为

ActiveSheet.PivotTables("数据透视表").PivotFields("求和项:交易金额").Function = xlcount

下面是我记录的宏，调试修改是通过的。

    ActiveSheet.PivotTables("数据透视表3").AddDataField ActiveSheet.PivotTables("数据透视表3" _
        ).PivotFields("金额"), "求和项:金额", xlSum
    ActiveSheet.PivotTables("数据透视表3").AddDataField ActiveSheet.PivotTables("数据透视表3" _
        ).PivotFields("金额"), "计数项:金额", xlCount

[此贴子已经被作者于2006-8-22 11:51:49编辑过]