|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
要从透视表上筛选多个项目,项目要求的内容和3个单元格内的值一样;E2,E3,E4这3个单元格有可能只有一个单元格有值, 有可能三个都有;需要单个的单项,多个多选。这是上一个问题问的写的代码,但是报错仍然实现不了。请高手帮助解答一下。
Private Sub CommandButton1_Click()
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim filterValues As Variant
Dim i As Integer
'获取当前活动透视表
Set pt = ActiveSheet.PivotTables("数据透视表1")
'获取产品字段
Set pf = pt.PivotFields("[区域].[产品].[产品]")
'指定筛选值filterValues = Array("E2", "E3", "E4")
'清除筛选pf.ClearAllFilters'筛选指定值
For i = LBound(filterValues) To UBound(filterValues)
Set pi = pf.PivotItems(filterValues(i))
pi.Visible = True
Next i
'隐藏未选中的值
For Each pi In pf.PivotItemsIf Not IsError(Application.Match(pi.Value, filterValues, 0)) Thenpi.Visible = True
Else
pi.Visible = False
End If
Next pi
End Sub
|
|