[求助]怎样的语句能够让多个透视表的选项同时变化成某单元值?

geegoo · 发表于 2006-10-12 17:13

怎样的语句能够让多个透视表的选项同时变化成某单元值?

因为有多个透视表, 一个一个改太累了, 而且会漏掉. 怎样才能同时更改多个啊? 谢谢.

vZDlCphI.rar (6.94 KB, 下载次数: 18)

Long_III · 发表于 2006-10-12 17:57

Sub hjs()
Dim h As PivotTable

    For Each h In ActiveSheet.PivotTables
        h.PivotFields("Week").CurrentPage = CStr([b1])
    Next
End Sub
试试，不过感觉这样做的意义是什么呢？

geegoo · 发表于 2006-10-13 11:11

亚...太好了. 谢谢.

目的是: 每个礼拜的成绩都要出report, 但是里面有N个透视表. 一个一个改太慢, 而且容易漏掉. 谢谢.

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