2016-06-09 1 views
0
Sub Macro1()  
Macro1 Macro  
    Dim k_Month As Range 
    Dim PrevYear As Range 
    Dim CurrYear As Range 
    Dim RelFC As Range 
    Dim PropFC As Range 

Set PropFC = Workbooks("ETKR_Sales_Tracking_MBR.xlsx").Worksheets("Year To Date").Range("C849:N849") 
Set RelFC = Workbooks("ETKR_Sales_Tracking_MBR.xlsx").Worksheets("Year To Date").Range("C1061:N1061") 

Set k_Month = Workbooks("Gap_Analysis.xlsx").Worksheets("SA2 KR").Range("U4:AF4") 
Set PrevYear = Workbooks("Gap_Analysis.xlsx").Worksheets("SA2 KR").Range("AO6:AZ6") 
Set CurrYear = Workbooks("Gap_Analysis.xlsx").Worksheets("SA2 KR").Range("U6:AF6") 

ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select 

With ActiveChart.SeriesCollection.NewSeries 
    .Name = "Proposed Forecast" 
    .Values = PropFC 
    .XValues = k_Month 
End With 

With ActiveChart.SeriesCollection.NewSeries 
    .Name = "Released Forecast" 
    .Values = RelFC 
    .XValues = k_Month 
End With 

With ActiveChart.SeriesCollection.NewSeries 
    .Name = "Current Year" 
    .Values = CurrYear 
    .XValues = k_Month 
End With 

With ActiveChart.SeriesCollection.NewSeries 
    .Name = "Previous Year" 
    .Values = PrevYear 
    .XValues = k_Month 
End With  

    ActiveChart.SetSourceData Source:=Workbooks("Gap_Analysis.xlsx").Sheets(_ 
     "SA2 KR").Range("AO6:AZ6,U6:AF6,U4:AF4") 

End Sub 

두 개의 다른 Excel 파일에서 여러 범위를 사용하여 하나의 전체 그래프를 만들려고합니다. 예측 범위, 제안 예측, 현재 연도 및 이전 연도의 4 가지 범위가 있습니다.두 개의 다른 통합 문서에서 여러 범위를 선택하여 Excel 2013에서 전체 그래프 만들기 VBA

그래프를 모두 결합하여 실행하면 다른 Excel 파일에 있지만 제안 된 예측과 릴리스 된 예측 만 표시되므로 그래프에 현재 연도 및 이전 연도 데이터가 표시되지 않습니다.

이제 year.file의 데이터를 forecast.file로 가져 와서이 문제를 해결할 수 있습니다. 그러나 그것은 나를 위해 너무 많은 시간이 걸리기 때문에 그것을하고 싶지 않습니다. 나에게 대신 직접, 당신은 당신의 주요 파일의 중앙 워크 시트에서 해당 링크를 생성하는 코드를 조정할 외부 범위를 참조로,이 도전 VBA 범위 문제

+0

그건 그렇고, 이미지 파일은 완전하고 들여 쓰기가 명확합니다. –

답변

0

어떤 경우를 해결하기 위해 가이드를 제공하세요? 이렇게하면 그래프는 주 파일의 범위 만 참조하며 그래프를 볼 때 참조 할 모든 소스 번호가 사용자 앞에 표시됩니다.

강조 : 데이터를 가져 오지 않고 VBA 코드를 사용하여 링크 만하면됩니다.

관련 문제