셀을 반복하고 VBA에서 범위를 구축합니다.
문제
셀을 반복하고 그래프 범위를 구축하려고 합니다.내 주요 문제는 'i'를 범위에 통합하는 방법을 알 수 없다는 것입니다.예:
Dim name As String
Dim newChart as Chart
Dim i as Integer
Set newChart = Charts.add
For i = 1 To 20
accName = Range("C" & i).Value 'I understand why this works.
With newChart
.ChartType = xlColumnClustered
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = accName
.SeriesCollection(1).Values = wb.Worksheets("Summary-Account").Range("E&i:G&i, I&i:K&i, M&i:O&i, Q&i:S&i") 'How can I get this to work?
.SeriesCollection(1).XValues = wb.Worksheets("Summary-Account").Range("E3:G3, I3:K3, M3:O3, Q3:S3")
End With
i = i + 1
Loop
해결책
당신은 할 것입니다 :
.SeriesCollection(1).Values = wb.Worksheets("Summary-Account").Range("E" & i & ":G" & i & ", I" & i & ":K" & i & ", M" & i & ":O" & i & ", Q" & i & ":S" & i)
.
가장 깨끗한 라인이 아니라 패턴을 제공해야합니다."루프"대신 "다음 I"가 필요하고 i= i + 1이 아닌 다른 문제가 있습니다. 그러나 컴퓨터에서 이것은 나에게 여러 시리즈가있는 그래프를주었습니다.
다른 팁
당신 지 수동으로 증가
i
.
기능for loop
이미 당신을 위해 그것을 않습니다.
그래서 제거 그i = i + 1
.지금,당신
Range
작업해야 합당""뭔가 다음과 같다:Range("E" & i & ":G" & i
).내가 확실히 이해하지 않을 하려는 당신이 무엇을 달성으로 노력하고 데이터 6 다른 열..보 범위 에 대한 추가 정보를 제공합니다.
시도
.SeriesCollection(1).Values = Range("E1").Resize(20,1).Value
.
시리즈 컬렉션에서 사용할 배열에 모든 값을 복사합니다
사용 Next i
대신에 Loop
;그리고 그걸 없애버려 i = i+1
.또한, "E" & i & ":G" & i
대신에 "E&i:G&i"
한 단계 더 나아가 vba에서
Dim i as double
For i = 1 to 100 Step 10 '<= Step 10 means when updating i, i = i + 10, and default value would be 1
Loop '<=breaks here, compile error is expected.
이는 구문에서도 유효하지 않습니다. 키워드는 Loop
다른 키워드와 연결되어 있습니다. Do
, 그리고 For
와 연관되어 있다 Next
제휴하지 않습니다 StackOverflow