VBA 透视表的问题

crf418111852 · 发表于 2017-5-10 11:26

本帖最后由 crf418111852 于 2017-5-10 16:26 编辑

这是一段我录制手动筛选值进货数量>5000的动作，像这样的代码要怎么精简？

ActiveSheet.PivotTables("数据透视表1").PivotFields("商品货号").ClearAllFilters
ActiveSheet.PivotTables("数据透视表1").PivotFields("商品货号").PivotFilters.Add2 Type _
:=xlValueIsGreaterThanOrEqualTo, DataField:=ActiveSheet.PivotTables("数据透视表1" _
).PivotFields("进货数量"), Value1:=5000

little-key · 发表于 2017-5-10 12:08

你最好上传一个附件

crf418111852 · 发表于 2017-5-10 16:27

little-key 发表于 2017-5-10 12:08
你最好上传一个附件

你好，我重新上传了，附件，能不能麻烦你教我下，

little-key · 发表于 2017-5-10 16:40

Sub 宏1()
ActiveSheet.PivotTables("数据透视表2").PivotFields("商品货号").PivotFilters.Add Type:= _
xlValueIsGreaterThanOrEqualTo, DataField:=ActiveSheet.PivotTables("数据透视表2"). _
PivotFields("求和项:进货数量"), Value1:=5000
End Sub

这样的呢

little-key · 发表于 2017-5-10 16:46

这样好像也可以，不过属于歪理的做法了

Sub 宏2()
Range("J2").AutoFilter Field:=2, Criteria1:=">=5000", Operator:=xlAnd
End Sub

crf418111852 · 发表于 2017-5-10 17:37

little-key 发表于 2017-5-10 16:46
这样好像也可以，不过属于歪理的做法了

Sub 宏2()

好的，学习下，哈哈

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

[求助] VBA 透视表的问题