Как настроить автовыбор максимальной даты в фильтре? - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Как настроить автовыбор максимальной даты в фильтре? - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Как настроить автовыбор максимальной даты в фильтре? (Сводные таблицы/Pivot Table)

Как настроить автовыбор максимальной даты в фильтре?

Дата: Вторник, 28.02.2023, 16:48 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Здравствуйте!
На листе "Осн таблица" есть одна основная таблица и одна сводная таблица по ней. Сводная таблица показывает статистику при выборе в фильтре определенной даты. Сводная таблица автоматически обновляется каждую минуту.
Даты в таблице заполняются автоматически и соответствуют дате ввода информации в соседнюю ячейку "Номер заказа". Если в основной таблице появляется новая дата, после очередного ежеминутного обновления сводной таблицы она становится доступна в фильтре.
Вопрос: как настроить фильтр сводной таблицы так, чтобы новая (свежая) дата не только появлялась в списке доступных, но и автоматически выбиралась? И чтобы показывались уже соответствующие ей данные?

К сообщению приложен файл: 4130438.xlsm (177.4 Kb)

Сообщение отредактировал marusa122 - Вторник, 28.02.2023, 16:50

Ответить

Дата: Вторник, 28.02.2023, 22:32 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Посмотрите такой вариант

К сообщению приложен файл: 4130438_1.xlsm (180.6 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Вторник, 28.02.2023, 22:51 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Pelena, Неплохой вариант, но тот код, который был на этом листе и который вы удалили, мне тоже нужен - он автоматически вносил во второй столбец дату заполнения третьего столбца. Можно ли ваш код как-то добавить к тому, что был в исходном файле?

Ответить

Дата: Вторник, 28.02.2023, 23:06 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Добавьте. Это же разные события, поэтому не должны мешать друг другу

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Вторник, 28.02.2023, 23:22 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Pelena, поняла, большое спасибо!

Ответить

Дата: Среда, 01.03.2023, 00:02 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Pelena, еще вопрос. При попытке вставить код на лист с другой таблицей (структура аналогичная, сводная таблица такая же) выбивает ошибку "Run-time error 1004: Не удается найти элемент в кубе OLAP". При нажатии "Debug" в редакторе выделяется желтым цветом тот фрагмент, который я здесь выделила подчеркиваниями
[vba]

Код

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim oTbl As ListObject, maxdate As Date
    Set oTbl = ActiveSheet.ListObjects("Таблица1")
    maxdate = Application.Max(oTbl.ListColumns("Дата").Range)
    Application.EnableEvents = False
    Target.PivotFields("[Таблица1].[Дата].[Дата]").ClearAllFilters
    ______Target.PivotFields("[Таблица1].[Дата].[Дата]").CurrentPageName = "[Таблица1].[Дата].&[" & Format(maxdate, "YYYY-MM-DD") & "T00:00:00]"_____
    Application.EnableEvents = True
End Sub

[/vba]
Что с ним не так?
Если просто закрыть редактор, код перестает работать
Пробовала убрать T00:00:00 (насколько я поняла - это время, которое в ячейках не указывается, там только дата) - тогда эта строка выделяется красным шрифтом и код все равно не работает

Сообщение отредактировал marusa122 - Среда, 01.03.2023, 00:07

Ответить

Дата: Среда, 01.03.2023, 00:31 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Все, вопрос снят
1. Удалила все коды из файла Экселя, сохранила и закрыла программу
2. Скопировала все коды поочередно в Блокнот
3. Открыла Эксель и вставила коды из Блокнота по новой
После этого начало работать без сюрпризов

Ответить

Дата: Среда, 01.03.2023, 10:16 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Pelena, нет, все-таки есть вопрос. Не работают эти макросы вместе. Пробовала вставить каждый отдельно - по отдельности работают. А вместе работать не хотят. Теперь Эксель даже никаких ошибок не выдает - они просто перестают выполнять свои задачи
[vba]

Код

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim oTbl As ListObject, maxdate As Date
    Set oTbl = ActiveSheet.ListObjects("Таблица1")
    maxdate = Application.Max(oTbl.ListColumns("Дата").Range)
    Application.EnableEvents = False
    Target.PivotFields("[Таблица1].[Дата].[Дата]").ClearAllFilters
    Target.PivotFields("[Таблица1].[Дата].[Дата]").CurrentPageName = "[Таблица1].[Дата].&[" & Format(maxdate, "YYYY-MM-DD") & "T00:00:00]"
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
Worksheets("Осн. таблица").Activate
Set WorkRng = Intersect(Application.ActiveSheet.Range("C:C"), Target)
xOffsetColumn = -1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = VBA.Date
            Rng.Offset(0, xOffsetColumn).NumberFormat = "DD.MM.YYYY"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

[/vba]

Что с кодом не так? Ведь действительно разные процессы...

К сообщению приложен файл: 4130438_1_2.xlsm (178.8 Kb)

Сообщение отредактировал marusa122 - Среда, 01.03.2023, 10:19

Ответить

СообщениеPelena, нет, все-таки есть вопрос. Не работают эти макросы вместе. Пробовала вставить каждый отдельно - по отдельности работают. А вместе работать не хотят. Теперь Эксель даже никаких ошибок не выдает - они просто перестают выполнять свои задачи
[vba]

Код

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim oTbl As ListObject, maxdate As Date
    Set oTbl = ActiveSheet.ListObjects("Таблица1")
    maxdate = Application.Max(oTbl.ListColumns("Дата").Range)
    Application.EnableEvents = False
    Target.PivotFields("[Таблица1].[Дата].[Дата]").ClearAllFilters
    Target.PivotFields("[Таблица1].[Дата].[Дата]").CurrentPageName = "[Таблица1].[Дата].&[" & Format(maxdate, "YYYY-MM-DD") & "T00:00:00]"
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
Worksheets("Осн. таблица").Activate
Set WorkRng = Intersect(Application.ActiveSheet.Range("C:C"), Target)
xOffsetColumn = -1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = VBA.Date
            Rng.Offset(0, xOffsetColumn).NumberFormat = "DD.MM.YYYY"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

[/vba]

Что с кодом не так? Ведь действительно разные процессы...

Автор - marusa122
Дата добавления - 01.03.2023 в 10:16

Дата: Среда, 01.03.2023, 10:43 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Вы отключаете события и не включаете обратно. В коде закомментировала лишнюю строчку

К сообщению приложен файл: 1834910.xlsm (181.4 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Среда, 01.03.2023, 12:03 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Pelena, спасибо большое))
А что там надо изменить, чтобы все операции на этом листе делались в фоновом режиме? При очередном автоматическом обновлении сводной таблицы меня перебрасывает обратно на лист "Осн. таблица" (где она находится), хотя я этот момент могу работать на другом листе (на "Статистике", например). Из-за этого в коде и появились лишние строки - я пыталась сделать так, чтобы меня не переносило обратно на "Осн. таблицу". По ходу, не получилось, еще и код с новыми строками работать перестал

Сообщение отредактировал marusa122 - Среда, 01.03.2023, 12:03

Ответить

Дата: Среда, 01.03.2023, 14:20 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Вот эта строчка [vba]

Код

Worksheets("Осн. таблица").Activate

[/vba] активирует лист Осн. таблица
Надо отказаться от обращения Activesheet
В файле написала комментарии, где внесла изменения в обоих макросах

К сообщению приложен файл: 5045644.xlsm (182.0 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Среда, 01.03.2023, 16:19 | Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 17

Репутация: 0 ±

Замечаний: 20% ±

Pelena, спасибо большое :*
Вроде все работает, больше вопросов по этим макросам не имею))

Ответить

Как настроить автовыбор максимальной даты в фильтре? (Сводные таблицы/Pivot Table)

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!