Question

我有一个名为“Markup Range”的字段，它在OLAP多维数据集中设置为报表过滤器。我经常在多个表中过滤掉它的值“0.00”，因此考虑自动执行此任务。

但问题是，当我录制一个过滤掉0的宏时，为了了解如何处理任务，我得到了大量的“AddPageItem”语句。 “标记范围”中的每个项目一个。总计数千。为了这个特殊目的，我还没能找到“AddPageItem”的替代品。

我也试过“HiddenItemsList”。不起作用。以下是“AddPageItems”语句中的示例：

With ActiveSheet.PivotTables(1).PivotFields("[Markup Range]")
        .AddPageItem "[Markup Range].[All Markup Range].[.01]", True
        .AddPageItem "[Markup Range].[All Markup Range].[.02]"
        .AddPageItem "[Markup Range].[All Markup Range].[.03]"
        .AddPageItem "[Markup Range].[All Markup Range].[.04]"
        .AddPageItem "[Markup Range].[All Markup Range].[.05]"
        .AddPageItem "[Markup Range].[All Markup Range].[.06]"
        .AddPageItem "[Markup Range].[All Markup Range].[.07]"
        .AddPageItem "[Markup Range].[All Markup Range].[.08]"

这个名单一直持续到99.99。即使手头的任务是一个非常简单的任务，我似乎无法找到任何其他方法来做到这一点。

对此有任何帮助都将受到高度赞赏。

我坚持在VBA中的OLAP多维数据集中更改报表过滤器

0 个答案: