1

我正在使用 VBA 在 MS Excel 中生成图表。

这是我的代码的一个子程序>

Sub fundamentalChart()
Dim fundamental As Chart
Dim trData As Range
Dim Qc1 As Range
Dim i As Integer
Dim clmLetter As String

'*******************************
'just for testing
Dim clmNumber(10) As Integer
clmNumber(1) = 43
'{43,46,49,52,55,58,61,64,67,70}
WSName = "2030184"
QcCount = 10
'*******************************

Set trData = Worksheets(WSName).Range("$D$1:$D$431224, $G$1:$G$431224")
Set fundametnal = Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=trData
ActiveChart.Name = WSName & "Fundamental"

For i = 1 To QcCount

Set Qc1 = Worksheets(WSName).Range(Cells(1, clmNumber(i)), Cells(43124, clmNumber(i))) 
With ActiveChart.SeriesCollection.NewSeries
        .Name = "Qc" & i
        .Values = Qc1
        .XValues = Worksheets(WSName).Range("$D$1:$D$431224")
End With
Next i

End Sub

当我尝试添加新的系列集合时会出现问题。我对值 (QC1) 的范围定义有疑问。在我的代码中，clmNumber（上面明确说明）是一个（公共）数组，它达到不同的维度并包含不同的值（它指出包含系列值的列号）。

当列索引将获得不同的值（存储在 clmNumber 中）时，如何定义范围？

谢谢你。

五。

4

0 回答 0