У меня есть график, который выбирает информацию из сводной таблицы, которая у меня есть с ежедневными данными. Я пытаюсь создать кнопки ActiveX, чтобы они могли фильтровать данные в виде ROW LABEL, чтобы увидеть, как мои данные вели себя на прошлой неделе и в прошлом месяце.

Итак, что я имею до сих пор, и это не работает, это:

Private Sub weekbtn1_Click () Dim i As Integer

If weekbtn1 = True Then
i = 0
Do Until Datavalue(date) - i = 42005
With ActiveSheet.PivotTables("Pivotcompsprice").PivotFields("Date")
    .PivotItems DateValue(Date) - i.Visible = False
    i = i + 1
End With    
Loop

i = 0
Do Until i = 7
With ActiveSheet.PivotTables("Pivotcompsprice").PivotFields("Date")
    .PivotItems Datevalue(date) - i.Visible = True
End With
Loop
Else
End If

End Sub

Я поставил этот 42005, потому что это последняя дата, когда у меня есть данные, которые являются 01.01.2015 ... Я думал, что можно было отфильтровать все данные как "ложные", а затем сделать True, что я хочу, но это не работает!

Кто-нибудь может мне помочь?