ªð¦^¦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¤ÏÀ³)


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 : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD