ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý¦p¦ó¥Îvb¨ú±oÁͶսuªº¤½¦¡(F8³v¨B°õ¦æ¬O¥i¥H,¦ý«öF5´N¨S¤ÏÀ³)

½Ð°Ý¦p¦ó¥Îvb¨ú±oÁͶսuªº¤½¦¡(F8³v¨B°õ¦æ¬O¥i¥H,¦ý«öF5´N¨S¤ÏÀ³)

Â^¨ú.JPG
2018-7-3 22:42

Range("C4:C7").Select
    ActiveSheet.Shapes.AddChart2(332, xlLineMarkers).Select
    ActiveChart.SetSourceData Source:=Range("¤u§@ªí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)

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD