数据透视表和日期

Question

我是一个新手，我是一个热心的学习者，一个犯很多错误的初学者。在我的数据透视表上，它收集了两年的日期，我热衷于只选择前两个最近的日期，而不是使用切片器。我试图让它有点动态，但我不断收到错误消息，

我试图在我的电子表格中包含来自日期和两个日期的单元格，或者选择前两个最近日期的代码。我真的希望代码能够正常工作并拉出我的头发，因为我几乎没有其他数据透视表。每次我将单元格引用放在两者之间时，我都会不断收到编码错误。

我希望枢轴项目像以前一样更具动态性，我将尝试在日期和日期上添加验证以使其更具动态性。

我希望枢轴项目是 x 第一个日期和 y 作为第二个日期，指的是工作表上的两个单元格，我可以在工作表上修改它们，另一个代码只选择前两个最近的日期。

Sub DateSlection ()

 With ActiveSheet
.PivotTables("PivotTable4").PivotFields("Date")
        .PivotItems("11/2/2016").Visible = True
        .PivotItems("10/26/2016").Visible = True
    End With
    End Sub

亲切的问候

阿里

Answer 1

对于动态过滤器，您可以这样做：

Sub DateSlection ()

Dim startDate As String
Dim endDate As String

With ActiveSheet
    'Set your date parameters in the required date format 
    '- looks like you need US 
    startDate = Format(.Range("A1").Value, "mm/dd/yyyy")
    endDate = Format(.Range("A2").Value, "mm/dd/yyyy")

    'clear the existing filter and add the new
    .PivotTables("PivotTable4").PivotFields("Date").ClearLabelFilters
    .PivotTables("PivotTable4").PivotFields("Date").PivotFilters.Add Type _
            :=xlDateBetween, Value1:=startDate, Value2:=endDate
End With

End Sub

我还了解到您想获取数据透视表中的前两个日期？如果是这样，您可以这样做：

ActiveSheet.PivotTables("PivotTable4").PivotFields("Date").PivotItems(1)
ActiveSheet.PivotTables("PivotTable4").PivotFields("Date").PivotItems(2)

要获取最后两个日期，您可以这样做：

With ActiveSheet.PivotTables("PivotTable4").PivotFields("Date")
    ptCount = .PivotItems.Count
    last = .PivotItems(ptCount)
    secondLast = .PivotItems(ptCount - 1)
End With