提问人：Aleksandra 提问时间：3/28/2022 更新时间：3/28/2022 访问量：342
数据透视表 - 添加总计的百分比
Pivot Table- Add Percent of the Grand Total
问：
我想使用 vba 在我的数据透视表中添加一个计算出的参与百分比字段。所以我想要这样的东西：
| 项目 | 积分总和 | 百分之 |
|---|---|---|
| 第一 | 4 | 40% |
| 第二 | 3 | 10克 |
| 第三 | 3 | 10克 |
| 总 | 10 | 100 % |
我以为有一个内置的公式，并尝试了这样的东西：
With ptt
.CalculatedFields.Add name:="value", Formula:=xlPercentOf
.PivotFields("value").Orientation = xlDataField
.PivotFields("Sum of value").name = "Percent"
.PivotFields("Prercent").NumberFormat = "0.00%"
End With
但是我在每一行中都得到了相同的百分比值，所以这不是我想要的。我将非常乐意提供任何帮助！
答：
1赞
navafolk
3/28/2022
#1
尝试在使用透视创建 % 时录制宏：
它返回它的脚本，可以提示你一些事情：
ActiveSheet.PivotTables("PivotTable3").AddDataField ActiveSheet.PivotTables( _
"PivotTable3").PivotFields("Points"), "Sum of Points2", xlSum
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Sum of Points2")
.Caption = "Percent"
.Calculation = xlPercentOfTotal
.NumberFormat = "0.00%"
End With
评论
0赞
navafolk
3/28/2022
欢迎@Aleksandra，是的，重新编码宏对于编写应用程序构建函数的脚本（大多数情况下）来说是一项强大的功能。
评论