Método CalculatedMembers.Add (Excel)

Agrega un campo calculado o un elemento calculado a una tabla dinámica. Devuelve un objeto CalculatedMember .

Sintaxis

expresión. Agregar (Nombre, Fórmula, SolveOrder, Tipo, Dinámico, DisplayFolder, HierarchizeDistinct)

expresión Variable que representa un objeto CalculatedMembers .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Name	Obligatorio	String	Nombre del miembro calculado.
Formula	Obligatorio	String	Fórmula del miembro calculado.
SolveOrder	Opcional	Variant	Orden de resolución del miembro calculado.
Tipo	Opcional	Variant	Tipo de miembro calculado.
Dynamic	Opcional	Boolean	Especifica si el miembro calculado se vuelve a calcular con cada actualización.
DisplayFolder	Opcional	String	Nombre de la carpeta para mostrar del miembro calculado.
HierarchizeDistinct	Opcional	Boolean	Especifica si se ordenan y quitan duplicados al mostrar la jerarquía del miembro calculado en un informe de tabla dinámica basado en un cubo OLAP.

Valor devuelto

Objeto CalculatedMember que representa el nuevo campo calculado o elemento calculado.

Observaciones

El argumento Formula debe contener una instrucción de sintaxis de expresión multidimensional MDX (Multidimensional Expression) válida. El argumento Name debe ser aceptable para el proveedor de procesamiento analítico en línea (OLAP) y el argumento Type debe definirse.

Si establece el argumento Type de este método en xlCalculatedSet, debe llamar al método AddSet del objeto CubeFields para que el nuevo conjunto de campos sea visible en la tabla dinámica.

Ejemplo

En el siguiente ejemplo se agrega un conjunto a una tabla dinámica.

Nota:

La conexión con el cubo y la tabla dinámica existente es necesaria para que se ejecute el ejemplo.

Sub UseAddSet() 
 
 Dim pvtOne As PivotTable 
 Dim strAdd As String 
 Dim strFormula As String 
 Dim cbfOne As CubeField 
 
 Set pvtOne = ActiveSheet.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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.