나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 곽병준 (keiske2)

추천:  2
파일:     조회:  1954
제목:   다중 범위를 변수로 선택하는 방법은? 엑셀 매크로 VBA
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007): 2010

안녕하세요

읽어주셔서 감사합니다

다름 아니라 x 축 범위가 변경되는 차트를 만들어야 하는데

column 이 붙어 있는 경우는 변수 사용이 자유롭더라구요

예를 들어 A열이 X 축 B 열이 Y 축일 경우

ActiveChart.SetSourceData Source:=Range("Sheet4!$A$1:$B$1,Sheet4!$A$3:$B$21")

이 부분을

Dim c As ChartObject
Set c = ActiveSheet.ChartObjects("chart4")

c.Chart.SetSourceData Source:=Range(Range(Cells(1, 1), Cells(1, 2)), _
Range(Cells(i + 1, 1), Cells(i + 16, 2)))

이렇게 변경해도 아무 문제가 없습니다 (정상동작됨)

그런데 A열이 X 축 C 열이 Y 축일 경우

Dim c As ChartObject
Set c = ActiveSheet.ChartObjects("chart1")

c.Chart.SetSourceData Source:=Range( _
"Sheet4!$A$1,Sheet4!$C$1,Sheet4!$A$4:$A$18,Sheet4!$C$4:$C$18")

이 부분을

c.Chart.SetSourceData Source:=Range(Range(Cells(1,1)), Range(Cells(1,3)), Range(Cells(4, 1), Cells(18, 1)), Range(Cells(4, 3), Cells(18, 3)))

이렇게 전환 하려니 오류가 뜹니다

위 소스 다음 Range 값이 오류가 나네요

해결방법좀 가르쳐주세요
 
[불량 게시물 신고]  
        
  

작성일 : 2020-08-20(15:26)
최종수정일 : 2020-08-20(15:26)