как проверить сегодня и снять предыдущий день в сводной таблице

Question

Мне нужно проверить текущую дату и снять последнюю доступную дату в сводной таблице с помощью VBA (исключая субботу и воскресенье).

Я - Nooob в VBA, поэтому я попытался записать макрос и внес некоторые измененияСводные таблицы могут отличаться и передавать некоторые переменные, которые имеют эти даты, для Проверки и отмены проверки.

Sheets("A Chart").PivotTables("PivotTable8").PivotCache.Refresh
ActiveWorkbook.RefreshAll

With ActiveSheet.PivotTables("PivotTable8").PivotFields("Added Date")
  .PivotItems("$inbound_previousday$").Visible = False
  .PivotItems("$today$").Visible = True
   Sheets("B Chart").PivotTables("PivotTable8").PivotCache.Refresh
   ActiveWorkbook.RefreshAll

   With ActiveSheet.PivotTables("PivotTable8").PivotFields("Added Date")
     .PivotItems("$outbound_Previousday").Visible = False
     .PivotItems("$today$").Visible = True
   End With

End With

Есть ли какой-либо возможный способ проверить сегодняшнюю дату и снять первую наиболее доступную дату в раскрывающемся списке.

Answer 1

Поскольку ваши значения постоянны, это самое простое. Date здесь возвращается сегодня.

With Sheets("A Chart").PivotTables("PivotTable8").PivotFields("Added Date")
    .PivotItems(Date - 27).Visible = False
    .PivotItems(Date).Visible = True
End With

Answer 2

Попробуйте это:

    Sub FilterDays()

    Dim NumDaysSelected As Long
    Dim StartDate, EndDate As Date
    Dim pt As PivotTable

    NumDaysSelected = 27 'Change this number to select the amount of days selected
    StartDate = Date - NumDaysSelected
    EndDate = Date

    Set pt = ActiveSheet.PivotTables("PivotTable8")
        pt.PivotFields("Added Date").ClearAllFilters 'This line is needed to clear existing filter before applying new one
        pt.PivotFields("Added Date").PivotFilters.Add Type:=xlDateBetween, _
            Value1:=StartDate, Value2:=EndDate

    End Sub