Это код, который я написал для построения графика, на котором должно отображаться 1 имя для каждой коллекции. существует около 10 ~ 15 групп коллекций, поэтому имена для каждого элемента в таблице становятся беспорядочными. Я написал этот код, но диаграмма не обновляется должным образом.
Мой Excel выглядит следующим образом на листе параметров впускного порта, и график строится между v1 и v2 a - это имя переменной, а case - это случай переменной. я хотел, чтобы все точки были сгруппированы рядом с одним местом и иметь одну "a" или "b" в качестве заголовка для всей группы в зависимости от группы
name case V1 V2
a 1 10 11
a 2 12 11
a 3 12 12
a 4 12 11
a 5 12 12
b 1 15 12
b 2 10 10
b 3 15 11
b 4 12 15
b 5 19 12
C 1 01 02
C 2 02 01
C 3 02 11
....
For j = 2 To i
a = 4 + (j - 1) * 6
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(j).Name = "=INTAKE_PORT_PARAMETER!C" & a
ActiveChart.SeriesCollection(j).XValues = "=INTAKE_PORT_PARAMETER!Z" & a & ":Z" & a + 5
ActiveChart.SeriesCollection(j).Values = "=INTAKE_PORT_PARAMETER!AA" & a & ":AA" & a + 5
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(j).ApplyDataLabels
ActiveChart.SeriesCollection(j).DataLabels.Item(1).Select
Selection.ShowSeriesName = True
Selection.ShowValue = False
Selection.Format.TextFrame2.TextRange.Font.Size = 8
ActiveChart.SeriesCollection(j).DataLabels.Select
Selection.ShowValue = False
Next j
когда я запускаю его вручную, Код работает нормально (нажав F8). выходные точки на графике выглядят так, как я хотел.
| ..(a)
| .. **(b)
|
| ## (C)
|____________________
Но когда я запускаю его, используя F5 вместо пошагового, я получаю 1 значение для каждой коллекции, и имя коллекции не отображается. Может кто-нибудь помочь.
| ..(10)
| .. **(15)
|
| ## (01)
|____________________
Извинения. Я не смог опубликовать фотографии сгенерированного графика ... моя компания рассматривает эти конфиденциальные данные.
Спасибо ...