隐藏/禁用选择多个项目CheckBox以进行透视过滤器 [英] Hide/Disable Select Multiple Items CheckBox for a pivot filter

问题描述

我需要在数据透视表过滤器中隐藏/禁用选择多项目复选框
如何通过VBA或MS办公室设置实现此目的？

---

感谢Dileep

解决方案

年'添加页字段，列字段，行场，计数字段等

ActiveSheet.PivotTables（QUOT; PivotTable1"）。透视字段（QUOT; PageField"）。方向= xlPageField' 报表过滤

ActiveSheet.PivotTables（QUOT; PivotTable1"）透视字段（QUOT; ColField"）。方向= xlColumnField"列标签

ActiveSheet.PivotTables（ " PivotTable1"）透视字段（QUOT。RowField"）方向= xlRowField"行标签

ActiveSheet.PivotTables（QUOT; PivotTable1"）AddDataField ActiveSheet.PivotTables（QUOT。PivotTable1" ）.PivotFields（" CountField"），" Count of CountField"，xlCount'值字段

'隐藏/禁用页面字段，列字段，行字段，计数字段等

ActiveSheet.PivotTables（" PivotTable1"）。PivotFields（" PageFi ELD"）方向= xlHidden。 '报告过滤器
ActiveSheet.PivotTables（QUOT; PivotTable1"）透视字段（QUOT。ColField"）方向= xlHidden。' 列标签
ActiveSheet.PivotTables（QUOT; PivotTable1" ）.PivotFields（QUOT; RowField"）方向= xlHidden '行标签
ActiveSheet.PivotTables（QUOT; PivotTable1"）透视字段（QUOT。CountField"）方向= xlHidden' 值字段

添加萨姆代替计数到外地
随着ActiveSheet.PivotTables（QUOT; PivotTable1"）透视字段。（QUOT; CountField"）
.Caption = QUOT; SumField"
.Function = xlSum
以

结束

隐藏值字段
ActiveSheet.PivotTables（" PivotTable1"）。PivotFields（" SumField"） .Orientation = xlHidden

注意：如果选中PivotTableFieldList中的所有框，默认情况下所有字段都会添加到行标签。
<登记/>
问候，
桑杰

I need to hide/Disable select Multiple Items check box in  Pivot Filters
How can i achieve this through VBA or through MS office settings?

---

Thanks Dileep

解决方案

Hi,


'Adding the page field, column field, row field, count field etc

ActiveSheet.PivotTables("PivotTable1").PivotFields("PageField").Orientation = xlPageField  'Report Filter

ActiveSheet.PivotTables("PivotTable1").PivotFields("ColField").Orientation = xlColumnField 'Column Label

ActiveSheet.PivotTables("PivotTable1").PivotFields("RowField").Orientation = xlRowField  'Row Labels

ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( "PivotTable1").PivotFields("CountField"), "Count of CountField", xlCount      ' Values field

'Hide/Disabling the page field, column field, row field, count field etc

ActiveSheet.PivotTables("PivotTable1").PivotFields("PageField").Orientation = xlHidden  'Report Filters
ActiveSheet.PivotTables("PivotTable1").PivotFields("ColField").Orientation = xlHidden    'Column Labels
ActiveSheet.PivotTables("PivotTable1").PivotFields("RowField").Orientation = xlHidden   'Row Labels
ActiveSheet.PivotTables("PivotTable1").PivotFields("CountField").Orientation = xlHidden ' Value Fields

Adding Sum instead of count to the field
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("CountField")
        .Caption = "SumField"
        .Function = xlSum
    End With

Hide the Values field
ActiveSheet.PivotTables("PivotTable1").PivotFields("SumField").Orientation = xlHidden

 

Note: If you check all the boxes in the PivotTableFieldList, by default all the fields are added to Row Labels.


Regards,
Sanjay

这篇关于隐藏/禁用选择多个项目CheckBox以进行透视过滤器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！