SeriesCollection.Name到Range？ 高强

我试图从我的Excel表中获得一个正确的传说，我正在试图创build使用的图例

SeriesCollection(1).Name 

在VBA中的方法。 我正在做的是这样的

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

但是，这给我的types不匹配的错误。 任何想法是什么问题？ 或者我可以怎样做这个不同的方式呢？

Answer 1

你只是指一个单元格的范围？ 无论如何，你可以写：

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

Answer 2

如果引用一个数组（多个单元格范围），则必须遍历数组并将单个单元格值连接成单个stringvariables，然后使用该stringvariables来设置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