엑셀 차트 - 다른 시트에 대한 모든 참조를 변경하는 방법?

Question

Excel에서 Sheet1의 많은 데이터를 참조하는 차트가 있습니다. 약 100 개의 데이터 시리즈.

차트를 정리하는 데 시간이 많이 걸렸으며 아직 갈 28 명이 있습니다. 각각의 데이터는 같은 위치에 있지만 다른 시트에 있습니다.

다른 모든 것을 변경하지 않고 Sheet1에서 Sheet2로 모든 참조를 변경하는 지능적인 방법은 무엇입니까?

Answer 1

수식을 수정하는 몇 가지 VBA 루틴을 포함하여 Excel 차트 시리즈 수식에 대한 자습서 (Change Series Formula – Improved Routines)를 작성했습니다. 게시 된 VBA 루틴을 직접 사용할 수 있으며 상용 Excel 추가 기능 소프트웨어에 포함되어 있습니다. 변경되는 차트 (들)을 결정 코드에서

Sub ChangeChartSeriesFormulas(cht As Chart, sOldString As String, sNewString As String) 

    Dim srs As Series, sOldFmla As String, sNewFmla As String 

    For Each srs In cht.SeriesCollection 

    sOldFmla = srs.Formula 
    sNewFmla = WorksheetFunction.Substitute(sOldFmla, sOldString, sNewString) 
    srs.Formula = sNewFmla 

    Next srs 

End Sub 

호출이와 발견에 대한 사용자 요청 : 가장 단순한 형태에서

은 차트에 일련의 수식을 변경하는 루틴은 다음과 같이 간다 그리고 문자열을 대체하십시오.

Dim chob As ChartObject 
For Each chob In ActiveSheet.ChartObjects 
    ChangeChartSeriesFormulas chob.Chart, "Sheet1", "Sheet2" 
Next 

:

ChangeChartSeriesFormulas ActiveChart, "Sheet1", "Sheet2" 

가 활성 시트의 모든 차트를 수행합니다

은 현재 차트를 수행합니다