[求助]数据透视表字段设置求和

静静2008

求助：在数据透视表中想在把所有选中的字段一次设置为求和。如图所示。我每一次做这类表时只要字段超过三个以上就会默认为计数。请问怎么设置为默认求和？

[此贴子已经被作者于2008-8-28 11:20:04编辑过]

BIN_YANG168

当数据源中存在空白单元格或文本型数值时，创建完成后的数据透视表的数据项区域会默认显示相应字段的“计数项”，如果用户需要将数据项的汇总方式更改为“求和项”，通常需要单独地对每个字段进行设置，显得非常烦琐，此时可以借助其他方法来实现。

1.在数据源区域中第一行的空白单元格中输入数值0。

2.选中存在文本型数值的列，单击菜单“数据”→“分列”，单击“下一步”按钮，继续单击“下一步”按钮，“列数据格式”组合框中选中“常规”单选按钮，单击“完成”按钮。

3.创建数据透视表。

[此贴子已经被作者于2008-8-28 12:26:45编辑过]

BIN_YANG168

VBA方法：

Sub 新建透视表()

Dim ws As Worksheet

Dim ptcache As PivotCache

Dim pt As PivotTable

Dim prange As Range

Set ws = Sheet1

For Each pt In Sheet2.PivotTables

pt.TableRange2.Clear

Next pt

Set ptcache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ SourceData:= Sheet1.Range("a1").CurrentRegion.Address)

Set pt = ptcache.CreatePivotTable(tabledestination:=Sheet2.Range("a3"), _ tablename:="透视表1")

pt.ManualUpdate = True

pt.AddFields RowFields:="项目", ColumnFields:="Data"

For Each prange In ws.Range(ws.Cells(1, 2), ws.Cells(1, 256).End(xlToLeft))

With pt.PivotFields(prange.Value)

    .Orientation = xlDataField

    .Name = " " & prange

    .Function = xlSum

End With

Next prange

pt.ManualUpdate = False

pt.ManualUpdate = True

End Sub

杏花雨V翟

有没有更简单的办法啊

nkgsm

文本型数值改数值型数值有更简洁的方法，选择所有文本型数值区域，区域左上角会出现一个智能标记，下拉单里面选择“转换为数字”即可，非常简洁。

亦草人

首先我们要明白：因为数据源中存在空值或文本值，所以才会出现“计数项”。VBA固然好，但是对于不熟悉VBA的就感觉难了。不妨试试如下办法：
首先，将控制设置为“0”值：在数据源表中提前将所有格式都设置为“0”值，当表格做好后，如果觉得太多的“0”值影响美观，可以通过设置条件格式，将数值为“0”值的数字格式设置成白色，这样“0”值的单元格看起来是空白的。而做数据透视表时就不会被识别为“空置”，这样就默认为“求和项”了。
然后，如果数据源表中有文本格式的数据，将文本格式改成数字格式就可以了，这个比较简单，就不详述了。

taochun521

{:soso_e116:}学习一下！收了。

※ぺ_执着※

虽然不知道什么意思，貌似很强大

静静2008

亦草人 发表于 2009-12-28 11:11
首先我们要明白：因为数据源中存在空值或文本值，所以才会出现“计数项”。VBA固然好，但是对于不熟悉VBA的 ...

谢谢你详细的讲解！