|
winfacks
Гость
|
 |
« : 12-09-2008 10:09 » |
|
При изменении фильтра одной надо изменять фильтр у других.
Метод - неверный - но мой:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As "СводнаяТаблица3")
Dim field As String
field = Activesheet.PivotTables("СводнаяТаблица3").PivotFields("Компания").CurrentPage
Activesheet.PivotTables("СводнаяТаблица4").PivotFields("Компания").ClearAllFilters
Activesheet.PivotTables("СводнаяТаблица4").PivotFields("Компания").CurrentPage = field
End Sub
Может кто скажет - в чем затык?
|
|
|
|
|
Записан
|
|
|
|
RXL
Технический
Администратор
 Offline
Пол: 
|
|
« Ответ #1 : 12-09-2008 15:15 » |
|
winfacks, результат вычисления сводной таблицы сохраняется в экселевском файле и, пока не обновишь его принудительно, будет показывать сохраненные данные.
|
|
|
|
|
Записан
|
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
|
|
|
|
winfacks
Гость
|
|
« Ответ #2 : 15-09-2008 07:20 » |
|
winfacks, результат вычисления сводной таблицы сохраняется в экселевском файле и, пока не обновишь его принудительно, будет показывать сохраненные данные.
А можно на моем примере исправить - как оно должно буть, а то слаб я в языках  |
|
|
|
|
Записан
|
|
|
|
RXL
Технический
Администратор
Offline
Пол:
|
|
« Ответ #3 : 15-09-2008 09:47 » |
|
winfacks, я тоже  Открой Excel, включи запись макроса, сделай что надо руками и отключи запись. Потом открой получившийся макрос на редактирование и изучи, что там делалось.
|
|
|
|
|
Записан
|
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
|
|
|
|
winfacks
Гость
|
|
« Ответ #4 : 15-09-2008 09:58 » |
|
winfacks, я тоже Открой Excel, включи запись макроса, сделай что надо руками и отключи запись. Потом открой получившийся макрос на редактирование и изучи, что там делалось. чем и занимался - только вот работать программа не хочет хоть тресни ...... проблема в том что когда идет обновление то сразу опять запускаеться макрос. надоть видать изменить процедуру так как она автоматом обрабатываеться при обновлении сводной. может надо каку то процедуру рассчитаную именно на обновление определенной сводной или на изменение именно фильтра ........ |
|
|
|
|
Записан
|
|
|
|
|
winfacks
Гость
|
|
« Ответ #5 : 15-09-2008 12:54 » |
|
Мда...... похоже спецов не густо на форуме ... скучно.
|
|
|
|
|
Записан
|
|
|
|
|
Sla
|
|
« Ответ #6 : 15-09-2008 13:05 »  |
|
скучно, когда не понятно что человек хочет. Вернее, когда ждет, чтоб за него кто-то решил его проблему.
Возможно, не сталкивались с этой проблемой.
Но ради совета, делать экспериментальную сводную таблицу - скучно.
|
|
|
|
|
Записан
|
Мы все учились понемногу... Чему-нибудь и как-нибудь.
|
|
|
|
winfacks
Гость
|
|
« Ответ #7 : 15-09-2008 13:21 » |
|
скучно, когда не понятно что человек хочет. Вернее, когда ждет, чтоб за него кто-то решил его проблему.
Возможно, не сталкивались с этой проблемой.
Но ради совета, делать экспериментальную сводную таблицу - скучно.
Скучно когда флуд забивает форум. сводная делаеться за пол минуты две сводные из одного источника. |
|
|
|
|
Записан
|
|
|
|
RXL
Технический
Администратор
Offline
Пол:
|
|
« Ответ #8 : 15-09-2008 13:37 » |
|
winfacks, я, к примеру, не понимаю, чего ты хочешь. Сперва думал, что у тебя одна таблица от другой зависит, а теперь вообще не понимаю.
|
|
|
|
|
Записан
|
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
|
|
|
|
winfacks
Гость
|
|
« Ответ #9 : 15-09-2008 13:40 » |
|
winfacks, я, к примеру, не понимаю, чего ты хочешь. Сперва думал, что у тебя одна таблица от другой зависит, а теперь вообще не понимаю.
Есть две таблицы из одного источника, в которых по разному поля расставлены но фильтр идет один - допустим Город. надо чтоб при изменении фильтра в одной таблице автоматически менялся фильтр в другой. Работает пример написаный выше если его сделать через отдельный макрос (проверено) Но как только я его запихиваю в процедуру реагирующую на обновление таблицы (например при изменении фильтра), перестает работает и выдает х-ву тучу итерраций. |
|
|
|
|
Записан
|
|
|
|
RXL
Технический
Администратор
Offline
Пол:
|
|
« Ответ #10 : 15-09-2008 18:57 » |
|
Выложи макрос.
Я с VBA не дружу, но может кто поймет там что-нибудь.
|
|
|
|
|
Записан
|
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
|
|
|
|
Sla
|
|
« Ответ #11 : 15-09-2008 19:38 » |
|
тут скорей не сам макрос нужен, а рабочая книга. (это я к тому что "скучно ради теста делать свою")
Возможно, что метод update не совсем верно испорльзуется
|
|
|
|
|
Записан
|
Мы все учились понемногу... Чему-нибудь и как-нибудь.
|
|
|
|
winfacks
Гость
|
|
« Ответ #12 : 16-09-2008 06:57 » |
|
тут скорей не сам макрос нужен, а рабочая книга. (это я к тому что "скучно ради теста делать свою")
Возможно, что метод update не совсем верно испорльзуется
Да я вот тоже думаю что кде то там и есть затык - вот только практики неть и определиться в чем именно- не могу. по етому и помосчи прошу у людей которые практически использовали такого плана методы - мож я не то вставляю в скобки.... |
|
|
|
|
Записан
|
|
|
|
|
Sla
|
|
« Ответ #13 : 16-09-2008 07:01 » |
|
ну так выложи свою рабочую книгу, (название файла - английскими буквами)
|
|
|
|
|
Записан
|
Мы все учились понемногу... Чему-нибудь и как-нибудь.
|
|
|
|
winfacks
Гость
|
|
« Ответ #14 : 16-09-2008 07:39 » |
|
Вот книжица - там на листе2 лежит 2 сводные и код.
[вложение удалено Администратором]
|
|
|
|
|
Записан
|
|
|
|
|
winfacks
Гость
|
|
« Ответ #15 : 16-09-2008 07:42 » |
|
СОРРИ |
|
|
|
Записан
|
|
|
|
|
winfacks
Гость
|
|
« Ответ #16 : 16-09-2008 15:10 » |
|
ну так выложи свою рабочую книгу, (название файла - английскими буквами)
ну что - сомтрел что то аль неть? |
|
|
|
|
Записан
|
|
|
|
|
winfacks
Гость
|
|
« Ответ #17 : 17-12-2008 14:01 » |
|
Тему прошу закрыть за ненадобность.
Трёп по непониманию думаю есть недостатком понимания вообще.
Если кому интересно - обошел комбобоксом , который изменяет фильтры в обоих сводных.
|
|
|
|
|
Записан
|
|
|
|
|
