excel - 重新标记图表系列集合

Question

我编写了代码来绘制一个图表，该图表应该为每个集合显示一个名称。

有 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 而不是逐步运行时，我为每个集合获得一个值，并且集合的名称不可见。

|   ..(10)
|  ..        **(15)
|
|      ## (01)
|____________________

我无法发布图表的图片。我的公司将这些视为机密数据。

标签： excelvbacharts

Answer 1

你的问题在几个方面都不清楚。

V1 和 V2 是您的 X 和 Y 值吗？如果是这样，使用几个公式很容易。单元格 E2 中填入 E2:G14 的公式为

=IF(E$1=$A2,$D2,NA())

选择 C1:C14，然后在选择 E1:G14 的同时按住 Ctrl，然后插入散点图。