我的代码有问题。我正在尝试激活一个代码,该代码在一个工作表中获取一个单元格并过滤另一个数据透视表中的数据,以防该值不存在,有一个 msgbox 显示存在错误。我的问题是,当值为 true 时,我希望它显示 msgbox“该值不存在于数据透视表中”。当“if”为假时,我需要过滤数据,但它不起作用。有代码:
Sub MM()
Sheets("sheets1").Select
Selection.Copy
Sheets("pivot").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.PivotTables("pivottable1").PivotFields("filter WBS").ClearAllFilters
ActiveSheet.PivotTables("pivottable1").PivotCache.Refresh
If Not IsError(ActiveSheet.PivotTables("pivottable1").PivotFields("filter WBS").CurrentPage = Range("c1").Value) Then
MsgBox ("the value dosen't exists in the pivot")
Sheets("sheets1").Select
Else
ActiveSheet.PivotTables("pivottable1").PivotFields("filter WBS").CurrentPage = Range("c1").Value
End If
End Sub
我会很高兴得到一些帮助!