모든 n 번째 행에 대해 Excel vba 그래프를 플롯 할 수 있습니까?

Question

그래서 8000+ 행을 가진 Excel 파일이 있고 B8000과 C2에서 C8000으로 B2를 기반으로 한 xlscatter 그래프를 플롯해야합니다. 하지만 그래프를 플롯하기 위해 취해진 값은 매 50 번째 셀을 사용해야하며, 비슷한 질문 인 How to Use Every nth Cell in a Chart in Excel Programmatically을 발견했습니다. 그러나 주어진 코드는 그래프를 그리지 않습니다. 단지 빈 그래프 일뿐입니다. 이것에 대한 해결책이 있습니까?

[...]

Dim xS As String 

Dim yS As String 

xS = "=" 

yS = "=" 

For i = 1 To 23000 step 50 

    If i > 1 Then 

     xS = xS & "," 

     yS = yS & "," 

    End If 

    xS = xS & "A!$A$" & CStr(i) 

    yS = yS & "A!$B$" & CStr(i) 

Next 

ActiveChart.FullSeriesCollection(1).XValues = xS 

ActiveChart.FullSeriesCollection(1).Values = yS 

[...] 시트에서 나오는 데이터가라고 나는 모든

Answer 1

첫 번째 시도

사람은?

xS = xS & "A!$A$" & CStr(i) 
yS = yS & "A!$B$" & CStr(i) 

에 : 당신의 코드에서 변화하는 요구하지 다음 경우

xS = xS & "Sheet1!$A$" & CStr(i) 'Where Sheet1 is your Sheet name. 
yS = yS & "Sheet1!$B$" & CStr(i) 

또한 당신이 다음 줄을 제거해야 확실 해요 :

xS = "=" 
yS = "="