Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Add calculated items to a field using the Add method of the CalculatedItems collection
Sub AddCalculatedItem()
     With ActiveSheet.PivotTables(1).PivotFields("Product")
         .CalculatedItems.Add Name:="Melons", Formula:="=Mangoes*1.5"
     End With
     End Sub