急！请教——如果数据透视表字段下拉框没有想要的数据比如“11”，则选择“空白”

lynn.lin · 发表于 2005-10-18 16:28

请教有没有宏能够实现下面的功能？

举个例子，如果数据透视表字段下拉框没有想要的数据比如“11”，则选择“空白”

请问这个动作应该怎么实现？

急！~~~

[em06][em06][em06]

lynn.lin · 发表于 2005-10-18 20:22

怎么没人啊..

自己顶一下!~~~

各位大哥大姐给个回复也好啊

具体的问题,在附件中!!!!!!~~~~~

[此贴子已经被作者于2005-10-18 21:33:50编辑过]

lynn.lin · 发表于 2005-10-18 21:35

k8kRliu4.rar (12.6 KB, 下载次数: 18)

云消雾散 · 发表于 2005-10-18 21:47

1MR94lxk.rar (17.57 KB, 下载次数: 24)

lynn.lin · 发表于 2005-10-18 21:56

谢谢,更新的问题应该可以解决了.

但是录了那个宏之后,如果遇上第三个数据表有19这个值的情况下就会发生错误.!

应该怎么解决呢?

云消雾散 · 发表于 2005-10-18 22:11

sheet3.range("d14")=MATCH(19,PD!J2:J57,0)

d15=ISERROR(D14)

将这一句ActiveSheet.PivotTables("数据透视表4").PivotFields("寸别").CurrentPage = "（空白）"

改成

if sheet3.range("d15")="true "then ActiveSheet.PivotTables("数据透视表4").PivotFields("寸别").CurrentPage = "（空白）"

else ActiveSheet.PivotTables("数据透视表4").PivotFields("寸别").CurrentPage = "19"

endif

试一下了

[此贴子已经被作者于2005-10-18 22:16:55编辑过]

lynn.lin · 发表于 2005-10-19 07:40

恩,可以了!

但还想请解释一下下面两个句子:

ActiveSheet.PivotTables("数据透视表1").PivotSelect "用途[全部]", xlDataAndLabel

sheet3.range("d15")="true "

是什么意思?第一个实现什么操作,第二个的d15指的是什么?

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

录一个宏