請問如何用vb取得趨勢線的公式(F8逐步執行是可以,但按F5就沒反應)

jysun1

下載 (28.31 KB)

2018-7-3 22:42

Range("C4:C7").Select
    ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
    ActiveChart.SetSourceData Source:=Range("工作表1!$C$4:$C$7")
    ActiveChart.FullSeriesCollection(1).Select
    ActiveChart.FullSeriesCollection(1).Trendlines.Add
    ActiveChart.FullSeriesCollection(1).Trendlines(1).Select
    With Selection
        .Type = xlPolynomial
        .Order = 2
    End With
    Selection.DisplayEquation = True
    Range("A1") = ActiveChart.FullSeriesCollection(1).Trendlines(1).DataLabel.Text
   wb.zip (17.31 KB)

下載次數: 3

2018-7-3 22:44