无法将VBA切片器选定的属性值设置为False

我一直在使用Excel和VBA，并且试图找出如何从切片器中取消选择各个字段并仅选择少量字段。我尝试读取切片器Cache，然后遍历切片器中的各种项目。我能够读取切片机内物品的值，但我无法取消选择它们。它不断抛出错误代码为1004的“应用程序定义或对象定义的错误”。无法将VBA切片器选定的属性值设置为False

我在分享我遇到困难的代码段。

Sub SelectFiscalWeeks() 

Dim slcCache As SlicerCache 
Dim slcItem As SlicerItem 

FalseVar = False 
Application.StatusBar = "Filtering out last 13 Week's Data" 

Set slcCache = ThisWorkbook.SlicerCaches("Slicer_Date.Fiscal_Week") 

slcCache.ClearManualFilter 

For Index = 1 To slcCache.SlicerCacheLevels.Count 
    Worksheets("A").Cells(Index + 1, "N").Value = Index 

    j = 0 
    For Each slcItem In slcCache.SlicerCacheLevels(Index).SlicerItems 
     Worksheets("A").Cells(j + 1, "P").Value = slcItem.Name 
     j = j + 1 
     slcItem.Selected = FalseVar 
    Next 
Next 

'Set slcCache.VisibleSlicerItems = Array("[DT].[FW].&[201701]") 

Set slcCache = Nothing 
Application.StatusBar = False 

End Sub

在上面的代码，我能够通过使用slcItem.Name阅读切片项目名称，但我无法既可以执行下面的语句：

slcItem.Selected = FalseVar 
Set slcCache.VisibleSlicerItems = Array("[DT].[FW].&[201701]")

执行这些语句抛出了错误“应用程序定义或对象定义的错误”与错误代码1004.

我一直在尝试调试超过一个小时，但无法找出原因。这可能是一些基本的东西，但是你能帮我确定我的代码可能有什么问题吗？

来源

2016-12-01 DK5

是的，我一直在调试几个小时，你有同样的问题。最后我发现我应该使用VisibleSlicerItems而不是设置.selected为true/false。

尝试slcCache.VisibleSlicerItems = Array（“[DT]。[FW]。& [201701]”）without Set。

这里是我的代码作为例子。希望可以帮助你。

Option Explicit 

Sub Test() 
Dim sc As SlicerCache 
Dim si As SlicerItem 
Dim list As Variant 


Set sc = ActiveWorkbook.SlicerCaches("Slicer_product_name") 

    For Each si In sc.SlicerCacheLevels(1).SlicerItems 
     If InStr(si.Value, "Boxers") > 0 Then 
      'this if loop creates an Array for VisibleSlicerItems 
      If IsEmpty(list) Then 
       list = Array(si.Name) 
      Else 
       ReDim Preserve list(UBound(list) + 1) 
       list(UBound(list)) = si.Name 
      End If 
     End If 
    Next 

sc.VisibleSlicerItemsList = list 

End Sub

来源

2017-02-04 05:39:59 Phuhui

无法将VBA切片器选定的属性值设置为False

回答

相关问题