有没有办法让透视表里的数据一次性都修改为“占同列数据总和的百分比”？挨个改要改

ac8989 · 发表于 2008-9-8 12:06

RT，有这个功能吗？

jssy · 发表于 2008-9-8 12:13

完全可以，只是需要有附件才行啊！

chen7806 · 发表于 2008-9-8 12:13

不太明白。

ac8989 · 发表于 2008-9-8 12:47

xTWWMBpZ.rar (203.54 KB, 下载次数: 18)
附件在这里，我想求出订货占比，前4个是我自己改的，求一个一次性修改所有的办法，谢谢大家了。

BIN_YANG168 · 发表于 2008-9-8 13:07

这个需要借助VBA来完成。

jssy · 发表于 2008-9-8 20:43

用透视表函数：

v4iKaggo.rar (208.61 KB, 下载次数: 33)

一可赛二 · 发表于 2008-9-9 17:25

mark一记

zpy2 · 发表于 2008-9-9 18:15

VBA :

Sub ModifyPivotTable()

    Dim pivot1 As PivotTable
       Dim pvtField
    Set pivot1 = Worksheets("订货占比").PivotTables("数据透视表4")
    Range("F3").Select
    With pivot1
      For Each pvtField In .DataFields
        With pvtField
             .Calculation = xlPercentOfColumn
             .NumberFormat = "0.00%"
        End With
       Next pvtField

    End With


End Sub

Sub RevertPivotTable()

    Dim pivot1 As PivotTable
         Dim pvtField
    Set pivot1 = Worksheets("订货占比").PivotTables("数据透视表4")
    Range("F3").Select
    With pivot1
      For Each pvtField In .DataFields
        With pvtField
             .Calculation = xlNormal

        End With
       Next pvtField

    End With


End Sub

R9oFrYsW.rar (210.03 KB, 下载次数: 15)

[此贴子已经被作者于2008-9-9 18:37:40编辑过]

		自动登录	找回密码
密码			免费注册