請問如何用vb取得趨勢線的公式(F8逐步執行是可以,但按F5就沒反應)
- 帖子
- 23
- 主題
- 8
- 精華
- 0
- 積分
- 30
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 64bit
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2017-8-13
- 最後登錄
- 2019-1-13
|
請問如何用vb取得趨勢線的公式(F8逐步執行是可以,但按F5就沒反應)
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)
|
|
|
|
|
|
|
|
發表於 2018-7-3 22:44
| 
