April 2006
Beginner
1114 pages
98h 16m
English
Content preview from Programming Excel with VBA and .NET
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Name
calculatedfields.Add(Name, Formula, [UseStandardFormula])
Synopsis
Adds a calculated pivot field to the pivot table’s fields list and returns the PivotField object.
|
Argument |
Settings |
|---|---|
|
|
The name of the pivot field to create. |
|
|
The Excel formula for the calculation. |
|
|
True evaluates field names using U.S. English settings; False evaluates names using the user’s locale settings. Default is False. |
The Formula argument omits the equals sign (=) and can’t include cell references. The lack of cell references means you have to calculate relative values in code if you want to use them in a calculated field. The following code finds the minimum value of SalesRank and then uses that value to create a RelativeRank calculated field:
Sub NewCalcField( ) Dim pt As PivotTable, pfProduct As PivotField, _ pfCalc As PivotField, min As Single ' Uncomment this line to create pivot table. 'CreatePivotTable ' Get pivot table. Set pt = Worksheets("BookSales").PivotTables(1) ' Show detail for Product name field. Set pfProduct = pt.PivotFields("ProductName") pfProduct.Orientation = xlRowField pfProduct.LabelRange.ShowDetail = True ' Find the minimum sales rank. min = WorksheetFunction.min(pt.DataFields(1).DataRange) 'Debug.Print "Min rank: " & min ' Delete field if it exists, ignore error if it doesn't. On Error Resume Next pt.PivotFields("RelativeRank").Delete On Error GoTo 0 ' Create calculated pivot field. Set pfCalc = pt.CalculatedFields.Add("RelativeRank", _ ...Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Read now
Unlock full access
More than 5,000 organizations count on O’Reilly
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.Julian F.
I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.Addison B.
I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.Amir M.
I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.