VBA 中的 Excel 图表系列名称

Question

我正在为 Excel xy-Diagramm 编写 Makro 程序 该图表几乎是正确的，但我有重复的 DataSeriesNames； 我已经尝试浏览所有系列并比较名称。 没有错误，但它不起作用。

代码是这样的：

For a=1 to Count
  If ActiveChart.SeriesCollection(Count).Name = Range("A2").Value Then
    Name = true
  End If
  a = a + 1
Next

If Name = false Then
  ActiveChart.SeriesCollection.NewSeries
End If
ActiveChart.SeriesCollection(Count).Name = "='Tasks'!$D$" & i
ActiveChart.SeriesCollection(Count).XValues = "='Tasks'!$B$" & i
ActiveChart.SeriesCollection(Count).Values = "='Tasks'!$C$" & i

Mfg Robin

Answer 1

这里有一些问题。

首先，你总是看同一个系列！我认为您想在 If 语句中将 Count 替换为 a 。

If ActiveChart.SeriesCollection(a).Name

其次，一旦纠正了这个问题，即使您的 Name 变量在某个时候设置为 True，它也可能会在稍后重置为 False，因为For...Next 循环继续迭代系列集合的其余部分。为了防止这种情况，请添加一个 Exit For ，如下所示：

For a = 1 To Count
  If ActiveChart.SeriesCollection(a).Name = Range("A2").Value Then
    Name = True
    Exit For
  End If
  a = a + 1
Next

另外，我怀疑您没有将 Name 声明为布尔变量，因此默认情况下它是一个 Variant，因此它的值是一开始就不是False！您应该在过程顶部使用 Dim Name as Boolean 声明变量，然后如果您希望 Name 默认为 False，你确实应该明确地说：将 Name = False 放在循环之前。此外，Name 对于变量来说是一个糟糕的名称...Count 也是如此！我认为你的代码应该是这样的：

Option Explicit

Sub MySub()
    Dim a As Long
    Dim NameExists As Boolean
    Dim SeriesCount As Long

    SeriesCount = ActiveChart.SeriesCollection.Count

    NameExists = False
    For a = 1 To SeriesCount 
      If ActiveChart.SeriesCollection(a).Name = Range("A2").Value Then
          NameExists = True
          Exit For
      End If
      a = a + 1
    Next

    If NameExists = False Then
    ' Rest of your code goes here...

End Sub