Изменение названий серий в динамическом графе c excel - PullRequest
2 голосов
/ 04 февраля 2020

У меня есть динамический график c, который изменяет количество рядов, отображаемых в Excel, однако я хотел бы изменить способ имен серий в легенде на Имена, которые есть в других ячейках другой лист. У меня есть следующий код, но я не уверен, как go изменить буквы в строке серии Chart;

Dim i As Integer
Dim No_of_probes As Integer

Sheets("1. Paste Raw Data").Select
No_of_probes = Range("A2").Value

For i = 1 To No_of_probes

ActiveChart.FullSeriesCollection(i).Name = "='1. Paste Raw Data'!$C$4"

Next i

Я хочу, чтобы l oop проходило таким же образом, увеличиваясь таким же образом для каждого прохода For l oop, но я не уверен, как go об изменении буквы или ссылки на ячейку в конце? Я новичок в циклах for и Next, поэтому, пожалуйста, держите меня в покое, извините, если это глупый вопрос, мне трудно найти пример, подобный этому где-либо.

    'ActiveChart.FullSeriesCollection(1).Name = "='1. Paste Raw Data'!$C$4"
    'ActiveChart.FullSeriesCollection(2).Name = "='1. Paste Raw Data'!$D$4"
    'ActiveChart.FullSeriesCollection(3).Name = "='1. Paste Raw Data'!$E$4"
    'ActiveChart.FullSeriesCollection(4).Name = "='1. Paste Raw Data'!$F$4"
    'ActiveChart.FullSeriesCollection(5).Name = "='1. Paste Raw Data'!$G$4"
    'ActiveChart.FullSeriesCollection(6).Name = "='1. Paste Raw Data'!$H$4"
   ' ActiveChart.FullSeriesCollection(7).Name = "='1. Paste Raw Data'!$I$4"
    'ActiveChart.FullSeriesCollection(8).Name = "='1. Paste Raw Data'!$J$4"
    'ActiveChart.FullSeriesCollection(9).Name = "='1. Paste Raw Data'!$K$4"
    'ActiveChart.FullSeriesCollection(10).Name = "='1. Paste Raw Data'!$L$4"
    'ActiveChart.FullSeriesCollection(11).Name = "='1. Paste Raw Data'!$M$4"
    'ActiveChart.FullSeriesCollection(12).Name = "='1. Paste Raw Data'!$N$4"
    'ActiveChart.FullSeriesCollection(13).Name = "='1. Paste Raw Data'!$O$4"

Спасибо!

1 Ответ

0 голосов
/ 04 февраля 2020

Это может быть использовано:

Dim i As Integer
Dim No_of_probes As Integer

Sheets("1. Paste Raw Data").Select
No_of_probes = Range("A2").Value

For i = 1 To No_of_probes

    ActiveChart.FullSeriesCollection(i).Name = "='1. Paste Raw Data'!" & Range("C4").Offset(0, i - 1).Address

Next i
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...