数据透视表的问题

tpbunny · 发表于 2002-6-11 11:02

以下是我所录制的宏，目的是将一个工作表上的二个数据透视表所分析的资料范围加以改变，如果要将PivotFields("年度").CurrentPage = "2002"这句程序中的"2002"以[K1].Value来代替，将PivotFields("月份").CurrentPage = "5"的"5"以[K2].Value来代替，请问程序应如何写？ (注：K1,K2的内容是下拉式清单) Sub Refresh() ActiveSheet.PivotTables("数据透视表1").PivotFields("年度").CurrentPage = "2002" ‘将年度由”全部”改为2002年 ActiveSheet.PivotTables("数据透视表1").PivotFields("月份").CurrentPage = "5" ‘将月份由”全部”改为5月 ActiveSheet.PivotTables("数据透视表2").PivotFields("年度").CurrentPage = "2002" ActiveSheet.PivotTables("数据透视表2").PivotFields("月份").CurrentPage = "5" Range("B19").Select ActiveSheet.PivotTables("数据透视表1").RefreshTable Range("H19").Select ActiveSheet.PivotTables("数据透视表2").RefreshTable Range("B2:D2").Select End Sub 另外还有一个问题(见图)，我明明资料中只冇2002年的资料，分页选单中却显示2003的字样，录宏时(就是上面的宏)，点2003却录成2002，真是奇怪！有人知道原因吗？ [upload=jpg]uploadImages/20026111122839434.jpg[/upload]

tpbunny · 发表于 2002-6-11 22:26

有那位能帮忙吗？

tpbunny · 发表于 2002-6-12 08:43

我只求一句语法即可，拜托、拜托！

tpbunny · 发表于 2002-6-12 17:56

我只求一句语法即可，拜托、拜托！

tpbunny · 发表于 2002-6-13 00:07

等了一整天无音讯，急死我了！简化我的问题如下：如何将CurrentPage = "2002"中的"2002"以[K1].Value来代替，[K1]的内容是下拉式清单。我试过CurrentPage = [K1].Value，但无效！

鱼之乐 · 发表于 2002-6-13 17:54

试取K1所在单元格的值看看

tpbunny · 发表于 2002-6-13 23:44

是要这样取值吗？取值要做什么用呢？[upload=rar]uploadImages/20026132344812893.rar[/upload]

JXM · 发表于 2002-10-30 18:56

range("k1").value

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