Expression Property

Returns or sets a String that represents the expression used to calculate the specified calculated field or calculated total. The expression must be compatible with the Jet expression service. Read/write.

expression   Required. An expression that returns a one of the objects in the Applies To list.

Remarks

The Expression property will return a blank string if it is not used with a calculated field or calculated total.

Example

The following example displays the current expression used for a calculated field named "Variance" in PivotTable1. When you edit the expression and then click OK, the new expression is assigned to the Variance field.

Sub Change_Expression()

    Dim vwView
    Dim cfCalcField
    Dim strCurrentExpression
    Dim strNewExpression

    Set vwView = PivotTable1.ActiveView

    ' Set a varible to the calculated field.
    Set cfCalcField = _
        vwView.Fieldsets("Variance").Fields("Variance")

    ' Set a variable to the current expression used in the
    ' Variance field.
    strCurrentExpression = cfCalcField.Expression

    ' Display an input box that contains the current expression for the
    ' Variance field. Edit the expression and then click OK.
    strNewExpression = InputBox("Edit the expression used for the calculated" & _
        "field and then click OK.", , strCurrentExpression)

    ' Set the expression used to calculate the Variance field to the
    ' expression entered in the input box.
    cfCalcField.Expression  = strNewExpression

End Sub