VBA - 测试值是否为数据透视表的有效选择

Question

对于Sheet1上的数据透视表（pt1），我使用VBA使用下面的代码更改过滤器字段（filterfield）的值。假设字段的值可以是A，B或C

Sheets("Sheet1").PivotTables("pt1").PivotFields("filterfield").CurrentPage = "A"

有时，为了这个问题的目的，让我们说随机，A，B或C将不是filterfield的有效选择。当VBA尝试更改字段时，它会引发运行时错误。我想避免这种情况。

在运行上面的代码之前，如何检查我的值是否对filterfield有效？我想避免使用On Error和VBA没有try / catch功能..

Answer 1

您可以遍历PivotItems并针对您的测试检查Name。

Sub CheckIfPivotFieldContainsItem()

    Dim pt As PivotTable
    Set pt = Sheet1.PivotTables(1)

    Dim test_val As Variant
    test_val = "59"

    Dim pivot_item As PivotItem
    For Each pivot_item In pt.PivotFields("C").PivotItems
        If pivot_item.Name = test_val Then
            Debug.Print "MATCHES"
        End If
    Next pi

End Sub

相关数据表明匹配应该存在，实际上它会返回MATCHES。

Answer 2

如果你想拥有一个辅助函数并且在没有循环值的情况下执行此操作，你可以使用visual basic OnErrorResumeNext技巧。

Private Function hasPivotItem(pField As PivotField, value As String) As Boolean
    On Error Resume Next
    hasPivotItem = Not IsNull(pField.PivotItems(value))
    On Error GoTo 0
End Function

' somewhere in your vba program
Debug.Print hasPivotItem(ptTable.PivotFields("Level"), "1")
Debug.Print hasPivotItem(ptTable.PivotFields("Level"), "-123")