引用数据透视项

Question

我正在尝试引用在PivotField中选择的项目。如果我使用下面的代码，然后我得到了字“月”一个消息框：

MsgBox PT.PivotFields("Month").Value 

我想是消息框，显示当前选择的月份 - 所以，如果二月是一个月选择在PivotField中，那么'2月'将显示而不是'月'。我认为这一点使用PivotItems做，但我似乎只能定义这个使用下面的代码：

MsgBox PT.PivotFields("Month").PivotItems("February").Value 

这将返回我“二月”的静态结果，但不会一次不同的工作一个月被选中。

Answer 1

如果要获取选定的PivotItem，请使用Range类的PivotItem属性。

MsgBox Activecell.PivotItem.Value 

如果活动单元不在数据透视表中，则会出现错误。你可能更喜欢

Dim pi As PivotItem 

On Error Resume Next 
    Set pi = ActiveCell.PivotItem 
On Error GoTo 0 

If Not pi Is Nothing Then 
    MsgBox pi.Value 
End If 

以避免错误。