Excel VBA教程:EnableItemSelection属性

如果为 False,则在用户界面中禁止使用下拉字段的功能。默认值为 True。Boolean 类型,可读写。

expression.EnableItemSelection

expression   必需。该表达式返回一个PivotField对象。

说明

如果 OLAP 数据透视表字段不是分级结构中的最高级别,则将出现运行错误。

Excel VBA教程:EnableItemSelection属性·示例

本示例确定使用下拉字段的选定项目的设置,并且在必要时启用该功能。本示例假定数据透视表位于活动工作表上。


Sub UseEnableItemSelection()
    Dim pvtTable As PivotTable
    Dim pvtField As PivotField
    Set pvtTable = ActiveSheet.PivotTables(1)
    Set pvtField = pvtTable.RowFields(1)
    ' Determine setting for property and enable if necessary.
    If pvtField.EnableItemSelection = False Then
        pvtField.EnableItemSelection = True
        MsgBox "Item selection enabled for fields."
    Else
        MsgBox "Item selection is already enabled for fields."
    End If
End Sub

上页:Excel VBA教程:EnableFieldList属性 下页:Excel VBA教程:EnableMultiplePageItems属性

Excel VBA教程:EnableItemSelection属性

Excel VBA教程:EnableMultiplePageItems属性 Excel VBA教程:EnableOutlining属性
Excel VBA教程:EnablePivotTable属性 Excel VBA教程:EnableRefresh属性
Excel VBA教程:EnableResize属性 Excel VBA教程:EnableSelection属性
Excel VBA教程:EnableSound属性 Excel VBA教程:EnableWizard属性
Excel VBA教程:获取有关 Macintosh 关键字的帮助 Excel VBA教程:Encoding属性
Excel VBA教程:End属性 Excel VBA教程:EndArrowheadLength属性
Excel VBA教程:EndArrowheadStyle属性 Excel VBA教程:EndArrowheadWidth属性
Excel VBA教程:EndConnected属性 Excel VBA教程:EndConnectedShape属性
Excel VBA教程:EndConnectionSite属性 Excel VBA教程:EndStyle属性
Excel VBA教程:EntireColumn属性 Excel VBA教程:EntireRow属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号