함수에서 배열을 반환하거나 함수 (셀이 아님)를 사용하여 선 그래프를 그립니다.

Question

안녕하세요.

필자가 작성한 함수의 일부 데이터를 플롯하고 싶습니다. 내 함수는 배열과 여러 셀을 호출합니다. 그런 다음 몇 가지 계산을 수행합니다. x 축을 따라 날짜를 그리고 y 축을 따라 데이터를 표시하고 싶습니다. 둘 다 'As Double'이 될 것입니다.

SetSourceData 출처에 대한 정보를 찾을 수 없습니다 : 셀 범위가 아닌 함수 내에서 계산이 수행되었습니다.

선형 차트에 두 개의 배열을 입력하고 싶습니다.

이 문제를 해결하려면 Excel에 두 개의 열 배열을 반환 할 수 있다고 생각했지만 이상적이지는 않지만 작동한다면 행복합니다. 날짜를 돌려 주려는 나의 시도입니다 (년 단위). 내 스프레드 시트에서 셀 A1 : A1001을 강조 표시하고 "Arr()"을 입력하고 Shift + Ctrl + Enter를 누릅니다. A1 : A1001 셀을 1946 년 (첫 해) 반복해서 채 웁니다.

다시 여러분 모두에게 감사드립니다. 이것은 당신의 직접적인 질문에 대한 답변이 아니라 범위 이외의 데이터를 차트 당신의 욕망에)

Function Arr() As Variant 
    Dim q() As Double 
    ReDim q(1 To 1001) 
    q(1) = 0 

    Dim dq As Double 
    dq = 0.001 
    For G = 2 To 1001 
     q(G) = q(G - 1) + dq 
    Next G 

    Dim DTE() As Variant 
    ReDim DTE(1 To 1, 1 To 1001) 

    For k = 1 To 1001 
     DTE(1, k) = (q(k) * 64) + 1946 
    Next k 

    Arr = DTE 

End Function 

Answer 1

오 : 내 손가락을 교차하겠습니다.

당신은

입증하려면 Chart.SeriesCollection(#).Values 속성에 배열을 할당 할 수

는이 코드를 Chart 1라고 활성 shet에 차트를 넣어 실행

Sub zx() 
    Dim ch As Chart 

    Set ch = ActiveSheet.ChartObjects("Chart 1").Chart 
    ch.SeriesCollection(1).Values = Array(1, 3, 5, 7, 11, 13, 17, 19) 
    ch.SeriesCollection(1).XValues = Array(5#, 6.3, 12.6, 28, 50) 

End Sub