Excel VBA教程:AddSet方法

向 CubeFields集合中添加一个新的 CubeField对象。CubeField对象与在多维数据集的联机分析处理 (OLAP) 提供程序上定义的集合相对应。

expression.Addset(Name, Caption)

expression   必需。该表达式返回“应用于”列表中的对象之一。

Name   String 类型,必需。在 SETS方案行集合中的有效名称。

Caption   String 类型,必需。一个字符串,该字符串代表将在数据透视表视图中显示的字段。

说明

如果在参数 Name 中给定名称的集合不存在,AddSet方法将返回一个运行错误。

Excel VBA教程:AddSet方法·示例

本示例中,Microsoft Excel 向 CubeField 对象添加标题为“My Set”的集合。本示例假定 OLAP 数据透视表位于活动工作表上,并假定存在一个标题为“Product”的字段。


Sub UseAddSet()
    Dim pvtOne As PivotTable
    Dim strAdd As String
    Dim strFormula As String
    Dim cbfOne As CubeField
    Set pvtOne = Sheet1.PivotTables(1)
    strAdd = "[MySet]"
    strFormula = "'{[Product].[All Products].[Food].children}'"
    ' Establish connection with data source if necessary.
    If Not pvtOne.PivotCache.IsConnected Then pvtOne.PivotCache.MakeConnection
    ' Add a calculated member titled "[MySet]"
    pvtOne.CalculatedMembers.Add Name:=strAdd, _
        Formula:=strFormula, Type:=xlCalculatedSet
    ' Add a set to the CubeField object.
    Set cbfOne = pvtOne.CubeFields.AddSet(Name:="[MySet]", _
        Caption:="My Set")
End Sub

上页:Excel VBA教程:AddReplacement方法 下页:Excel VBA教程:AddShape方法

Excel VBA教程:AddSet方法

Excel VBA教程:AddShape方法 Excel VBA教程:AddTextbox方法
Excel VBA教程:AddTextEffect方法 Excel VBA教程:AddToFavorites方法
Excel VBA教程:AdvancedFilter方法 Excel VBA教程:Align方法
Excel VBA教程:Apply方法 Excel VBA教程:ApplyCustomType方法
Excel VBA教程:ApplyDataLabels方法 Excel VBA教程:ApplyNames方法
Excel VBA教程:ApplyOutlineStyles方法 Excel VBA教程:AreaGroups方法
Excel VBA教程:Arrange方法 Excel VBA教程:AutoComplete方法
Excel VBA教程:AutoFill方法 Excel VBA教程:AutoFilter方法
Excel VBA教程:AutoFit方法 Excel VBA教程:AutoFormat方法
Excel VBA教程:AutomaticLength方法 Excel VBA教程:AutoOutline方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号