Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / "наплодить" диаграммы автоматом / 11 сообщений из 11, страница 1 из 1
06.08.2009, 16:51:09
    #36130728
darshanix
darshanix
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
Есть сводная таблица. с фильтром по регионам и по продуктам. сможет ли эксель (2007) сам переключать фильтр и плодить диаграммы: Регион1 Продукт1, Регион1 Продукт2, Регион2 Продукт2 и тд.?
А если еще и вставлять их как слайды в презентацию будет.... тогда я спасу 3 дня работы ежемесячно )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2009, 21:13:21
    #36131261
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
darshanix,

может.
Начните с записи макроса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2009, 22:20:01
    #36131321
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
darshanixтогда я спасу 3 дня работы ежемесячно )Я вот удивляюмь на такие фразы! Не нормально это...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2009, 22:20:39
    #36131322
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
darshanix, пример давайте, что ли..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2009, 16:01:32
    #36137487
darshanix
darshanix
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
спасибо, что откликнулись: пример в приложении.
макрос пытался. но не знаю как ему сказать чтобы переключал фильтр сам, до последнего региона. к тому же не получается делать так чтобы в паверпоинт макросом вставлялось... сложная задачка наверное
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2009, 16:11:49
    #36137526
darshanix
darshanix
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
а вот и сам пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2009, 17:32:44
    #36137798
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
вот достаточно интересно про наполнение презентаций
Не готовое решение, но есть из чего повыбирать.
Посмотрел на дату в теме по ссылке - ноябрь 2007 года, во время летит, блин...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2009, 22:03:12
    #36138184
darshanix
darshanix
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
Deggasad, я смотрел этот пример. у меня на 2007 офисе не работает. основная проблема: сказать экселю переключать автофильтр (либо таблицы, либо сводной диаграммы) последовательно и "кидать" получившиеся диаграммы на отдельные листы. а потом уже может как то закинуть их в паверпоинт.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 15:48:13
    #36139776
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
darshanixDeggasad, я смотрел этот пример. у меня на 2007 офисе не работает. основная проблема: сказать экселю переключать автофильтр (либо таблицы, либо сводной диаграммы) последовательно и "кидать" получившиеся диаграммы на отдельные листы. а потом уже может как то закинуть их в паверпоинт.

Это вообще не Проблема по сравнению с теми, которые решены по указанной ссылке.

Например вот что дала запись макроса + небольшие корректировки.
В примере в столбце 1 сортируется, столбец 2 свободен.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Макрос1()

    Set rng1 = Range("A3:A13")
    Columns( 2 ).ClearContents
    rng1.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B3"), Unique:=True
    Set rng2 = Range(Range("B4"), Range("B3").End(xlDown))
    rng2.Sort Key1:=rng2( 1 ), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:= 1 , MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    rng1.AutoFilter
    For Each iCel In rng2
     rng1.AutoFilter Field:= 1 , Criteria1:=iCel.Value
     '/////////
    Next iCel
    rng1.AutoFilter Field:= 1 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 14:51:43
    #36144652
darshanix
darshanix
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
Deggasad, спасибо! но можно пример? у меня какой то бред получается когда запускаю... :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 15:26:03
    #36144806
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
"наплодить" диаграммы автоматом
darshanixDeggasad, спасибо! но можно пример? у меня какой то бред получается когда запускаю... :(

Если вы не можете разобраться в этом примере как вы собираетесь поднять всю задачку. начните по чуть чуть строчка за строчкой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / "наплодить" диаграммы автоматом / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 439ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2179171]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 173ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 197ms
total:  439ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]