excel vba用选单控制数据透视表的筛选，出现问题~求大大瞅瞅

Question

本帖最后由 zlargesnake 于 2015-9-16 09:39 编辑新人一枚，初学VBA，试做了一个表，效果如下：

链接的透视图

代码是:Sub ddd()
Dim x As Variant, k$
x = Worksheets("置入表").Range("c1").Value
k = Worksheets("置入表").Range("a5").Offset(x - 1).Value
With Worksheets("透视2")
.PivotTables("透视2").PivotFields("代号").CurrentPage = k
End With With Worksheets("置入表")
Cells(2, "a") = k
End WithEnd Sub运行后出现问题,比如点选50008后筛出的却是50007，出现在多次点选之后，观察发现，透视表的筛选项顺序也乱了@ @

完全没有头绪_(:зゝ∠)_求各位大大瞅眼，怎么着手解决= =

Answer 1

如果你是为了学习vba那建议把附件挂上来大家看看。
如果是为了应用的话，还是直接做成数据透视表然后，插入切片器就可以了。本回答被网友采纳

Answer 2

最好能把文件传上来，方便分析

Answer 3

没看明白你要做什么 ， [email protected]