vba - SeriesCollection.Name 到 Range？Excel

Question

我正在尝试从我的 excel 表中获取正确的图例，并且我正在尝试使用

SeriesCollection(1).Name

VBA 中的方法。我在做什么看起来像这样

ActiveChart.SeriesCollection(1).Name = Range(" some range ").Text

然而，这给了我类型不匹配的错误。关于问题是什么的任何想法？或者我怎么能以不同的方式做到这一点？

Answer 1

你指的范围是不是只有一个单元格？在任何情况下，您都可以编写：

ActiveChart.SeriesCollection(1).Name = Range("RangeName").Cells(1, 1).Value

Answer 2

如果您要引用一个数组（多个单元格的范围），您必须遍历数组并将各个单元格值连接到一个字符串变量中，然后使用该字符串变量来设置ActiveChart.SeriesCollection(1).Name

Dim myString as String  'Declare a string variable to concatenate the range values
Dim rng as Range        'This is your range variable
Dim cell as Range       'this will be a cell range within rng

Set rng = Range(" some range ")
For each cell in rng
    myString = myString & cell.Value
Next

ActiveChart.SeriesCollection(1).Name = myString