如何对数据透视表行字段排序？

心灵有约 · 发表于 2020-3-21 13:22

爱疯 · 发表于 2020-3-22 21:09

Private Sub Worksheet_Activate()
Dim A, i
A = Array("银行存款", "库存现金", "固定资产累计折旧", "固定资产", "财政拨款收入")
For i = 0 To UBound(A)
Me.PivotTables(1).PivotFields("1级科目").PivotItems(A(i)).Position = i + 1
Next
End Sub

2.rar (26.06 KB, 下载次数: 6)

心灵有约 · 发表于 2020-3-30 10:14

爱疯发表于 2020-3-22 21:09
Private Sub Worksheet_Activate()
Dim A, i
A = Array("银行存款", "库存现金", "固定资产累计 ...

我想用在个人宏工作簿中，怎么办呢？谢谢

爱疯 · 发表于 2020-3-30 10:33

2楼是希望的效果吗？
把代码放在加载宏文件里

'排序
Sub px()
Dim A, i
A = Array("银行存款", "库存现金", "固定资产累计折旧", "固定资产", "财政拨款收入")
For i = 0 To UBound(A)
activesheet.PivotTables(1).PivotFields("1级科目").PivotItems(A(i)).Position = i + 1
Next
End Sub

心灵有约 · 发表于 2020-4-3 22:58

爱疯发表于 2020-3-30 10:33
2楼是希望的效果吗？
把代码放在加载宏文件里

结果应该是这样，但我想排序项目不直接限定，而是指定透视表中的字段，比如科目代码字段，且默认科目代码升序。至于科目代码是什么，取决于透视表数据源。

爱疯 · 发表于 2020-4-4 09:42

心灵有约发表于 2020-4-3 22:58
结果应该是这样，但我想排序项目不直接限定，而是指定透视表中的字段，比如科目代码字段，且默认科目代码 ...

我理解不了
看看写好说明和准备好附件后，其他朋友能否理解你的问题了

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