引用PivotItems

Question

我正在尝试引用PivotField中选择的项目。如果我使用以下代码，那么我会收到一个消息框，其中包含＆＃39;月＆＃39;：

MsgBox PT.PivotFields("Month").Value

我想要的是显示当前所选月份的消息框 - 因此，如果二月是在PivotField中选择的月份，那么二月＆＃39;将显示而不是“月份”。我想用PivotItems来做这件事，虽然我似乎只能使用下面的代码来定义它：

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

这会让我回想起二月份的静态结果。但是一旦选择了不同的月份，它就无法工作。

Answer 1

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

MsgBox Activecell.PivotItem.Value

如果activecell不在数据透视表中，则会出错。您可能更喜欢

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

避免错误。