每個元素我已經得到了我想要把圖表中的數據的一個比較大的量。Excal宏觀循環在陣列
基本上,我是有多個部件(總共30上下的但在下面的例子中,我會限制碼至5層的組件),並且每個部件具有一列。 我已將列號分配給各個組件,聲明爲整數。 有時候我不希望組件有一個圖表因此,這就是有一個在數字的差距(例如在DIAT和HYDR之間是5列中的另一組成部分,但爲這一個不應該有一個圖)。
然後,我希望把我全部想要的圖形成一個陣列,並做了For ... Next循環這樣的圖形將自動對每一個單元陣列中創建(所以在每個組件的組件數組)。
很顯然,我做錯了什麼:-)。該代碼被卡住在第一時間我嘗試指推崇元件陣列中:ActiveChart.SeriesCollection(1)請將.Name =細胞(9,componentlist(1,i)的)
Dim diat, hydr, para, terb, theo As Integer
diat = 4 'column number of the component named diat
hydr = 6 'column number of the component named hydr
para = 7 'column number of the component named para
terb = 9 'column number of the component named terb
theo = 10 'column number of the component named theo
Dim componentlist As Variant
componentlist = Array(diat, hydr, para, terb, theo)
For i = 1 To UBound(componentlist)
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SeriesCollection.NewSeries.Select
ActiveChart.SeriesCollection(1).Name = Cells(9, componentlist(1, i))
ActiveChart.SeriesCollection(1).XValues = Worksheets(2).Range(Cells(10, 3), Cells(21, 3))
ActiveChart.SeriesCollection(1).Values = Worksheets(2).Range(Cells(10, componentlist(1, i)), Cells(21, componentlist(1, i)))
Next
我VBA的經驗是有限的,所以你們誰都知道如何解決這個問題? 在此先感謝!
謝謝!工作:) – blaaat