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

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

Если вы не можете разобраться в этом примере как вы собираетесь поднять всю задачку. начните по чуть чуть строчка за строчкой.
...
Рейтинг: 0 / 0
14.08.2009, 15:26:03
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / "наплодить" диаграммы автоматом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=188&tid=2179171]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 50ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 201ms
total:  304ms
созд. / загр.: 304ms
x
x
Закрыть


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