数据透视表内如何使用自变量？（难题）

wukuan · 发表于 2007-5-22 09:11

    With ActiveSheet.PivotTables("数据透视表5").PivotFields("月份")
        .PivotItems("1月").Visible = False          1~12月份，如何用一个自定义的变量来表示？
    End With

现在将附件上穿，请高手帮忙

tQVWHWBB.rar (6.75 KB, 下载次数: 17)

[此贴子已经被作者于2007-5-22 22:07:04编辑过]

DJFN · 发表于 2007-5-22 09:18

a="1月"
.PivotItems(a)
行不

wukuan · 发表于 2007-5-22 09:29

这样好像不行，我是想定义一个变量，来控制1~12月

比如dim a as interge

.PivotItems("a月").Visible = False

DJFN · 发表于 2007-5-22 09:32

比如dim a as interge

.PivotItems(a & "月").Visible = False

wukuan · 发表于 2007-5-22 09:34

也不可以，唉，这种变量不知道如何设置

Long_III · 发表于 2007-5-22 21:10

建议上传你的附件说明，应该是可以用变量的

wukuan · 发表于 2007-5-22 22:08

已上传附件了，版主再看看

zzq0101 · 发表于 2007-5-23 08:40

Sub 月份()
i = 3
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("月份")
        .PivotItems(i & "月").Visible = False
    End With
End Sub

(i & "月"). & 左右要有空格

DJFN · 发表于 2007-5-23 08:41

经测，以下这种写法完全是正确的
a=5
.PivotItems(a & "月").Visible = False

wukuan · 发表于 2007-5-23 09:06

谢谢各位了，呵呵

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