Оптимизация кода по сдвигу диапазонов диаграмм

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Оптимизация кода по сдвигу диапазонов диаграмм (Макросы/Sub)

Sancho

Дата: Пятница, 30.09.2016, 09:33 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

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

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

2007, 2010, 2013

Всем привет!
В развитие темы http://www.excelworld.ru/forum/10-29463-1 решил поступить несколько иначе - не строить кучу диаграмм сразу, а перестраивать их диапазоны по требованию пользователя

[vba]

Код

ActiveSheet.ChartObjects("общая оценка").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).Values = Лист10.Range(Лист10.Cells(r1, c1), Лист10.Cells(r2, c2))
    ActiveChart.SeriesCollection(1).XValues = Лист10.Range(Лист10.Cells(r1, c1 - 352), Лист10.Cells(r2, c2 - 352))
    ActiveChart.SeriesCollection(2).Values = Лист10.Range(Лист10.Cells(r1, c1 - 1), Лист10.Cells(r2, c2 - 1))
    ActiveChart.SeriesCollection(2).XValues = Лист10.Range(Лист10.Cells(r1, c1 - 352), Лист10.Cells(r2, c2 - 352))
    ActiveChart.SeriesCollection(3).Values = Лист10.Range(Лист10.Cells(r1, c1 - 2), Лист10.Cells(r2, c2 - 2))
    ActiveChart.SeriesCollection(3).XValues = Лист10.Range(Лист10.Cells(r1, c1 - 352), Лист10.Cells(r2, c2 - 352))

[/vba]

Меня немного не устраивает набитый мною код, так как строки
[vba]

Код

    ActiveChart.SeriesCollection(1).XValues = Лист10.Range(Лист10.Cells(r1, c1 - 352), Лист10.Cells(r2, c2 - 352))
    ActiveChart.SeriesCollection(2).XValues = Лист10.Range(Лист10.Cells(r1, c1 - 352), Лист10.Cells(r2, c2 - 352))
    ActiveChart.SeriesCollection(3).XValues = Лист10.Range(Лист10.Cells(r1, c1 - 352), Лист10.Cells(r2, c2 - 352))

[/vba]
по сути своей одинаковые и тянут одни и те же подписи значений. Если прописывать одной строкой на один ряд, например SeriesCollection(1), на остальных рядах подписи пропадают. Хотя когда вручную строим диаграмму нам достаточно выбрать подписи для одного ряда и подписи распространяются на остальные.
Возможно ли индексы оператора SeriesCollection"(1) (2) (3)" заменить на что то обобщающее, что бы в коде оставить одну строку отвечающую за подписи?
ЗЫ: вчера только смог заняться решением своего нерешенного вопроса (типа это отмазка от вопросов почему так долго).

Код

[/vba]

Меня немного не устраивает набитый мною код, так как строки
[vba]

Код

Сообщение отредактировал Sancho - Пятница, 30.09.2016, 09:37

Ответить

СообщениеВсем привет!
В развитие темы http://www.excelworld.ru/forum/10-29463-1 решил поступить несколько иначе - не строить кучу диаграмм сразу, а перестраивать их диапазоны по требованию пользователя

[vba]

Код

[/vba]

Меня немного не устраивает набитый мною код, так как строки
[vba]

Код

Автор - Sancho
Дата добавления - 30.09.2016 в 09:33

buchlotnik

Дата: Пятница, 30.09.2016, 10:03 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

А может просто циклом пройти?
[vba]

Код

For i = 1 to 3
ActiveChart.SeriesCollection(i).Values = Лист10.Range(Лист10.Cells(r1, c1-i+1), Лист10.Cells(r2, c2-i+1))
ActiveChart.SeriesCollection(i).XValues = Лист10.Range(Лист10.Cells(r1, c1 - 352), Лист10.Cells(r2, c2 - 352))
next i

[/vba]