FullSeriesCollection (1)에서 개수에 변수를 사용하는 방법

X 및 Y 데이터 200 세트로 vba를 사용하여 Excel (2013)에서 xy 그래프를로드하려고합니다. 변수를 사용하여 "FullSeriesCollection (i)"의 끝에서 "개수"숫자를 변경하고 싶지만 작동하지 않을 것입니다. 그리고 시스템에서 자체 카운트 번호를 할당하는 것입니다. 수색은 "백작"이 읽기 전용이라고 나에게 알려줍니다. 이 문제를 해결할 방법이 있습니까?FullSeriesCollection (1)에서 개수에 변수를 사용하는 방법

감사

내가 이렇게 노력하고 있어요 :

Dim j as long 
for J = 1 to 200 
ActiveSheet.ChartObjects("Chart 4104").Activate 
    ActiveChart.SeriesCollection.NewSeries 
    ActiveChart.FullSeriesCollection(j).XValues = "='side A'!$g$j:$k$j" 
    ActiveChart.FullSeriesCollection(j).Values = "='side A'!$g$(j+1):$k$(j+1)"

등 등

출처

2016-12-08 Michael M

"주위에있는"방법은 'SeriesCollection'에서 멤버를 추가하거나 제거하는 것입니다. 너 뭐하려고? – Comintern

내가이 일을하려고하고있다 :. = 1 (200) ActiveSheet.ChartObjects ("차트 4104")로 J에 대한 희미한 j를 한 을 ActiveChart.SeriesCollection.NewSeries ActiveChart.FullSeriesCollection (J) .XValues = 활성화 " = 'side A'! $ g $ j : $ k $ j " ActiveChart.FullSeriesCollection (j) .Values ="= "side A '! $ g $ (j + 1) : $ k $ (j + 1) " 등. –

당신이 사용할 수 있도록 SeriesCollection.Add 방법은, 추가 된 시리즈에 대한 참조를 반환

를

Dim j as long, s 

for J = 1 to 200 

    Set s = ActiveSheet.ChartObjects("Chart 4104").Chart.SeriesCollection.Add() 

     s.XValues = "='side A'!$g$j:$k$j" 
     s.Values = "='side A'!$g$(j+1):$k$(j+1)"

출처

2016-12-09 06:33:57

FullSeriesCollection (1)에서 개수에 변수를 사용하는 방법

답변

관련 문제