| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):2016
* 아래줄에 질문을 작성하세요 >>
우여곡절 끝에 일단 내용과 차트가 있는 복사, 붙여넣기 매크로 1개는 작성, 성공했습니다.
그런데 이것을 아래 열에도 반복해서 작업해야 하는데
초짜라서 그 작업을 할 수가 없네요.
도와주세요^^
차트가 포함된 1개 데이타는 총 34열로 구성되어 있구요
1개 테이타당 차트는 7개씩 있습니다
이 데이타를 아래로 내려가면서 복사, 붙여넣기를 해야하구요
일부 내용과 차트데이타를 바꾸어가면서 반복 작업을 해야합니다.
총작업은 49개를 하면 되구요
(데이타량이 너무많아 파일을 쪼개어
이런 파일을 30개정도 만들어야 합니다^^)
첫번째 데이타는 기본 작업이 있어서 수동으로 복사해서 붙여 넣어야 합니다.
아래에 제가 작성한 매크로 내용을 올립니다.
그리고 셀번호는 아래에 올린 내용이 시작번호인데
파일을 쪼개다 보니 새로 파일을 만들때마다 시작번호가 다르나
번호를 수정하여 작업할 예정입니다.
샘플자료는 여러 엑셀파일이 연결되어 있고 파일 크기가 너무커서
올릴 수가 없네요^^
<기본작성 매크로>
Sub 매크로3()
'
' 매크로3 매크로
'
' 바로 가기 키: Ctrl+q
'
Rows("34001:34034").Select
Selection.Copy
Rows("34035:34035").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Range("B34036").Select
Application.CutCopyMode = False
Selection.Copy
Range("B34039").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C34039").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.ChartObjects(12).Activate
ActiveChart.PlotArea.Select
Application.CutCopyMode = False
ActiveChart.SetSourceData Source:=Range("A34039:B34044")
ActiveSheet.ChartObjects(13).Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("H34039:J34044")
ActiveSheet.ChartObjects(14).Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SetSourceData Source:=Range("O34039:P34044")
ActiveSheet.ChartObjects(8).Activate
ActiveChart.SetSourceData Source:=Range("V34039:X34044")
ActiveWindow.LargeScroll ToRight:=1
ActiveSheet.ChartObjects(9).Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("AC34039:AE34044")
ActiveSheet.ChartObjects(11).Activate
ActiveChart.SetSourceData Source:=Range("AJ34039:AL34044")
ActiveSheet.ChartObjects(10).Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("AQ34039:AS34044")
End Sub
|
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
