Getting the value of the selected cell

D

Dan Ricker

VBScript Sample Code for OWC10 (Warning Air Code)

1) Get Value of selected "PivotMember" (Row/Column Member)

Set objPMs = PivotTable.Selection
Set objPM = objPMs(0)
Msgbox objPM.Name & vbCrLf & objPM.UniqueName

2) Get Value of Selected Aggregate

Set objPAggs = PivotTable.Selection
Set objPAgg = objPAggs(0).Aggregates
Msgbox objPAgg.Value

3) Get Value of Selected PivotDetailCell

Set objPDetailRange = PivotTable.Selection
Set objPDetailCell = objPDetailRange.TopLeft
Msgbox objPDetailCell.Value

***************************
There is also the PivotTable.ActiveObject property which
will help deal with multiple RowMember, ColumnMember,
Aggregates and DetailCell selections.

Thx
Dan
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Pivot Table cell values 1
Excel does not accept text format! 0
Newbie Help - IF Yes No Function 0
Word macro that can call cells out of Excel for a find and replace 0
How to display zero value in blank fields of Cross Tab query 0
Dealing with a Pivot Table (when I don't want to) 0
Crating User Form to Add Names 1
Macro to select and delete levels of a document 2

Top