Excel VBA 数据透视表布尔值

Question

下面的 VBA 代码应该建议用户输入报告的月份，然后相应地更新所有数据透视表。 我面临的问题是，如果用户输入的月份不是枢轴项目之一（即“mayo”i/o“may”），它将弄乱我的数据透视表。所以我想检查输入框中输入的字符串是否是正确的pivotItems之一。

我收到一条错误消息，指出“需要对象” 当我声明我的 bool 时，我没有发现有什么问题。

有什么想法吗？

Sub ChooseMonth55()

Dim MyMONTH As Variant
Dim MyRepMon  As String
Dim Pi As Boolean
    Set Pi = ActiveSheet.PivotTables("PivotTable4").PivotFields("Test Month").PivotItems
    Pi = False
InputBoxMyMONTH:    MyMONTH = Application.InputBox("Enter the MONTH in a full text format")

    MyRepMon = MyMONTH

    Sheets("All results excl not tested").Select

    If MyRepMon = Pi Then
        MyRepMon = True
    End If

    If MyRepMon = True Then

        ActiveSheet.PivotTables("PivotTable4").PivotFields("Test Month").CurrentPage = MyRepMon
        ActiveSheet.PivotTables("PivotTable5").PivotFields("Test Month").CurrentPage = MyRepMon
        ActiveSheet.PivotTables("PivotTable6").PivotFields("Test Month").CurrentPage = MyRepMon
        ActiveSheet.PivotTables("PivotTable7").PivotFields("Test Month").CurrentPage = MyRepMon
        ActiveSheet.PivotTables("PivotTable13").PivotFields("Test Month").CurrentPage = MyRepMon
        ActiveSheet.PivotTables("PivotTable8").PivotFields("Test Month").CurrentPage = MyRepMon

    Else: MsgBox "There is a typo, please enter again the Month"
         GoTo InputBoxMyMONTH
    End If

End Sub

谢谢

Answer 1

我建议您使用用户窗体和下拉框，或组合框来将用户的输入限制在您知道的工作月份。

• 创建工作表，您可以将其隐藏。插入您希望仅在其上列出的月份。

• 插入用户表单

• 为其命名，在其中插入一个 ComboBox 和一个标签。

• 将“属性”窗口中组合框的行源设置为列出有效月份条目的范围。

现在在 VBA 的资源管理器窗口中右键单击用户表单。 插入此代码：

Private Sub ComboBox1_Change()
    Call ChooseMonth(ComboBox1.Value)
End Sub

您现在可以进一步简化您的原始代码，因为它提取的是准确月份，没有错误，除非您在月份源表上输入错误。

您的代码：

Sub ChooseMonth(myMonth As String)

    Sheets("All results excl not tested").Select

    ActiveSheet.PivotTables("PivotTable4").PivotFields("Test Month").CurrentPage = myMonth
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Test Month").CurrentPage = myMonth
    ActiveSheet.PivotTables("PivotTable6").PivotFields("Test Month").CurrentPage = myMonth
    ActiveSheet.PivotTables("PivotTable7").PivotFields("Test Month").CurrentPage = myMonth
    ActiveSheet.PivotTables("PivotTable13").PivotFields("Test Month").CurrentPage = myMonth
    ActiveSheet.PivotTables("PivotTable8").PivotFields("Test Month").CurrentPage = myMonth

End Sub

Answer 2

试试这个功能。它确定数据透视项目是否位于数据透视表内的特定数据透视字段中。

Public Sub Test_IsItemInPivotField()
  Debug.Print IsItemInPivotField("May", "Test Month", ActiveSheet.PivotTables("PivotTable1"))
  Debug.Print IsItemInPivotField("Mayy", "Test Month", ActiveSheet.PivotTables("PivotTable1"))   
End Sub

Public Function IsItemInPivotField(itemName As String, fieldName As String, pvt As PivotTable)
  Dim pvtItem As PivotItem

  For Each pvtItem In pvt.PivotFields(fieldName).PivotItems
      If pvtItem.Name = itemName Then
          IsItemInPivotField = True
          Exit Function
      End If
  Next

  IsItemInPivotField = False
End Function