Сводная таблица и даты

Я новичок, и я своего рода восторженный ученик, новичок, который совершает много ошибок. На моем сводном столе, который собирает даты на два года, я стараюсь выбирать только первые две самые последние даты, а не использовать слайсер. Я попытался сделать его немного динамичным, но я постоянно получаю сообщения об ошибках,

Я пытался иметь ячейки в моей электронной таблице, которая находится с даты и двух дней, или код, который выбирает первые две самые последние даты. Я действительно хочу, чтобы код работал и вытягивал мои волосы, поскольку у меня есть несколько других сводных таблиц. Каждый раз, когда я помещаю ссылку на ячейку между ними, где даты, я продолжаю получать ошибки кодирования.

Я хочу, чтобы элементы поворота были более динамичными, как раньше, я попытаюсь добавить валидацию в дате и дате, чтобы сделать ее более динамичной.

Я хочу, чтобы элементы поворота были 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 

с уважением

Али

Для динамического фильтра вы можете сделать что-то вроде этого:

 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 
  • Сводная таблица - снимите флажок ниже значения
  • Excel Macro, упорядочивающий PivotItems
  • Вопрос о сводной таблице Excel. Как получить промежуточные итоги для поля области строки?
  • Средние значения в столбце по классам
  • Заголовки столбцов Pivot Table, использующие меньше
  • Сводная группировка и подсчет сводной таблицы
  • Сохранять только данные после фильтра. Сводная таблица
  • Excel - сводная таблица - подсчет времени
  • PivotItem.Visible кажется всегда верным
  • Pivot с многоуровневыми фильтрами в excel
  • Сводная таблица, связанная с другой таблицей рабочих таблиц, которая связана с Access DB
  • Давайте будем гением компьютера.