Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как диаграмму поделить на цветовые сегменты.
 
#1
11.02.2015 10:46:04
Добрый день, нужно получить вот такую диаграмму см.Пример,  делала ее путем перекрашивания точек ручками в определенный цвет, когда объем информации очень большой, то это занимает очень много времени. Может кто подскажет как это можно сделать быстро, мне бы условное форматирование сюда как-то применить, а как не знаю... Или еще есть мысль не точки закрашивать в определенный цвет, а фон поделить на четыре цветовых сегмента , пыталась наложить диаграмму с накоплением, но не получается у меня сделать четыре прямоугольника. Помогите советом, может есть какой-то макрос мне в помощь?
 
 
 
#2
11.02.2015 11:06:57
Мне кажется сделать реально, по крайней мере, я представляю себе, как будет выглядеть макрос.
Можно сделать вот так: предлагается поочередно ввести точки отсечения (горизонтальная и вертикальная линии), потом каждая точка сравнивается с линиями отсечения; в зависимости от положения относительной линий точка будет форматироваться определенным образом.
Если описание устраивает, могу написать макрос.
С уважением,
Федор/Все_просто
 
 
 
#3
11.02.2015 11:19:43
Можно попробовать, только я пока не поняла , как эти точки отсечения задать.
 
 
 
#4
11.02.2015 13:20:27
Вот как-то так. Выделяем второй лист и нажимаем на кнопку. Далее надо будет ввести два значения, чтобы можно было разделить построенную диаграмму на четверти. Каждая четверть будет иметь свой цвет, в который окрасится конкретная точка.
Изменено: Все_просто - 11.02.2015 13:22:06
С уважением,
Федор/Все_просто
 
 
 
#5
11.02.2015 14:10:04
Круто, спасибо большое, получилось, даже смогла цвета поменять на нужные мне.
 
 
 
#6
11.02.2015 14:51:06
Не долго радовалась, хотела добавить строчку и теперь выходит ошибка Объект не имеет заголовка ссылаясь на строчку .ChartTitle.Caption = rng(1, 1)
К своим таблицам применить тоже не получается, нужно что-то где-то прописать или поменять? ссылок на диапазон ячеек не нашла.
 
 
 
#7
11.02.2015 14:55:27
Вот ещё примерчик.
 
 
 
#8
11.02.2015 15:09:04
Поменяйте вот это:
Код
Set rng = [a1].CurrentRegion
На это:
Код
Set rng = Application.InputBox("Enter the range", Type:=8)
Для построения диаграммы надо будет ввести весь диапазон с учетом заголовков. Должно В этом диапазоне должно быть не больше 3 колонок. Первая колонка - Номенклатура, Вторая колонка - значения Икс, Третья колонка - значения Игрек.
С уважением,
Федор/Все_просто
 
 
 
#9
11.02.2015 15:45:24
Не могу понять, все поменяла, теперь на одних листах строит, а на некоторых нет, вроде все одинаковое, что не нравится не пойму.  Пример вложила, там где не строит.
 
 
 
#10
11.02.2015 16:44:57
А как проверить макрос, если в приложенной книге нет нужного (то есть, который я написал)?
С уважением,
Федор/Все_просто
 
 
 
#11
11.02.2015 17:26:44
Все_просто, все разобралась, спасибо большое.
 
 
 
#12
11.02.2015 17:33:46
magrifa, ваш вариант тоже интересен, я бы ему нашла применение, только как такое же сделать, я не поняла, график с помощью макроса строился или нет? и еще подписи к данным проставить можно?
 
 
 
#13
06.03.2015 07:51:21
Все_просто, помогите, пожалуйста, нужно чтоб на этом графике вместе с подписью номенклатуры , еще выходили значение осей, например Сосиски М (51;46).
И можно как-то сделать, что при изменении исходных данных, график перестраивался и цвет изменялся. У меня получается, что точки перемещаются, а цвет не меняется, хотя должен.
 
 
 
#14
06.03.2015 18:24:46
В приложении книга. Работает аналогично. Подправил только надписи.

ПС Код уже подзабылся, хотя и писал всего пару недель назад.  
С уважением,
Федор/Все_просто
 
 
 
#15
09.03.2015 13:33:50
Может кто подскажет, что нужно добавить в макрос, чтобы при изменении исходных данных, график перестраивался и цвет перезаполнялся.

Все_просто, спасибо, надписи такие как надо.
Изменено: Galand81 - 09.03.2015 13:35:43
 
 
 
Страницы: 1
Наверх