Excel VBA, сортировка дат по списку - PullRequest
Новая
       3

Excel VBA, сортировка дат по списку

0 голосов
/ 17 февраля 2020

Я пытаюсь отсортировать список заказов на продажу (в сводной таблице) и отфильтровать, чтобы найти записи, запланированные к отправке в праздничный день (список из ~ 12 дат).

Учитывая это сводная таблица - Dynami c, но списка дат нет, есть ли способ применить эти фильтры с помощью макроса VBA, поэтому мне не нужно делать это вручную?

Я пытался использовать Макро-рекордер, но он просто устанавливает все существующие даты на

фактический список вышел намного, намного, больше 

With ActiveSheet.PivotTables("SalesOrders").PivotFields("Due Date")
    .PivotItems("2/28/2019").Visible = False
    .PivotItems("5/22/2019").Visible = False
    .PivotItems("7/17/2019").Visible = False
    .PivotItems("7/18/2019").Visible = False
    .PivotItems("8/7/2019").Visible = False
    .PivotItems("8/16/2019").Visible = False
    .PivotItems("8/19/2019").Visible = False
    .PivotItems("8/22/2019").Visible = False
    .PivotItems("8/28/2019").Visible = False
    .PivotItems("8/29/2019").Visible = False
    .PivotItems("8/30/2019").Visible = False

End With
With ActiveSheet.PivotTables("SalesOrders").PivotFields("Due Date")
     .PivotItems("5/25/2020").Visible = True
     .PivotItems("7/3/2020").Visible = True
     .PivotItems("7/6/2020").Visible = True
End With

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

1 Ответ

0 голосов
/ 18 февраля 2020

Если вы можете добавить новый столбец к вашим данным, вам не нужно будет использовать VBA, вы можете включить это в свою сводную таблицу. Добавьте новый лист, который содержит только даты праздников в одном столбце и True во втором столбце. Затем добавьте новый столбец к вашим данным Заказа на продажу и в этом столбце используйте функцию Vlookup, чтобы увидеть, найдена ли дата в ваших Заказах на продажу в списке выходных. Вы можете добавить этот новый столбец в сводную таблицу в качестве фильтра. Снимок экрана ниже показывает пример. Vlookup Example

...