请教，除了参数以外都选上，这个要如何写

mylongair

ActiveSheet.PivotTables("1、移网收入-地市-分客群").PivotFields("[产品].[产品ID].[产品ID]"). _
        VisibleItemsList = jk_cpid
这段代码是选择这个产品，现在我需要反过来，就是在这个产品ID，我想筛选除jk_cpid以外的其它所有产品，要如何弄哈，因为产品有上万个，而且时不时会更新。要如何写这代码，请教各位老师，谢谢！



完整代码：

Dim jk_months(3) As String
jk_months(1) = "[时间].[月].&[" & yday_m1 & "]"
jk_months(2) = "[时间].[月].&[" & yday_m2 & "]"
'jk_months(3) = "[时间].[月].&[" & yday_m3 & "]"


Dim jk_cpid(1) As String
jk_cpid(1) = "[产品].[产品ID].&[" & cpid & "]"

Dim yday As Integer
yday = CInt(yday_s)
'更新累计昨日数据透视表
Dim month_days(31) As String

'累计的报表
month_days(i) = "[时间].[日期].&[" & yday & "]"

'按天的报表
For i = 1 To yday
month_days(i) = "[时间].[日期].&[" & i & "]"
Next i


Sheets("1、收入").Select


       ActiveSheet.PivotTables("1、移网收入-地市-分客群").PivotFields("[产品].[产品ID].[产品ID]"). _
        VisibleItemsList = jk_cpid
       ActiveSheet.PivotTables("1、移网收入-地市-分客群").PivotFields("[时间].[日期].[日期]"). _
        VisibleItemsList = month_days
       ActiveSheet.PivotTables("1、移网收入-地市-分客群").PivotFields("[时间].[月].[月]"). _
        VisibleItemsList = jk_months

mylongair

自己顶下，请大神们指导

liulang0808

mylongair 发表于 2018-6-22 14:27
自己顶下，请大神们指导

建议楼主上传完整附件，并结合附件内容举例描述具体需求吧