Scott090

¦^´_ 1# jysun1

¸Õ¸Õ¬Ý¬O§_²Å¦X»Ý¨D¡G

'µe¼Æ¾Ú¹Ï¨úÁͶսu­pºâ¦¡
'======================
Sub test()
      Dim sh As Worksheet
      Set sh = ActiveSheet
      
    '§R°£¤v¦³¤§¹Ï®×¡B¹Ïªí
    '=============================
      For Each ChartObject In sh.Shapes
            ChartObject.Delete
      Next
      
      With sh.ChartObjects.Add(100, 100, 200, 200).Chart
            With .SeriesCollection.NewSeries
                  .Values = sh.Range("C4:C7").Value
                  .ChartType = xlLineMarkers
           
                  With .Trendlines.Add
                        .Type = xlPolynomial
                        .Order = 2
                        .DisplayEquation = True
                        sh.Cells(1, 1) = .DataLabel.Text
                  End With
             End With
            
      End With
      
End Sub

Scott090

¦^´_ 1# jysun1

'¼W¥[®É¶¡±±¨î
    Sub test()
      Dim sh As Worksheet
       Dim tt!
           .
           .
                .DisplayEquation = True
               '°±¹y¤@ÂI®É¶¡
               '==============
               tt = Timer:  Do: DoEvents: Loop While Timer - tt < 0.05
               '==================================
               sh.Cells(1, 1) = .DataLabel.Text
        .
        .
    End Sub

Scott090

¦^´_ 4# jysun1


   

¤U¸ü (40.01 KB)

2018-7-9 04:32

wb.rar (16.31 KB)

¤U¸ü¦¸¼Æ: 2

2018-7-9 04:34

Scott090

¦^´_ 4# jysun1


    ¤W­±¬O§Ú³oÃä F5 °õ¦æªºµ²ªG¡C
¦A¤£¦æ¡A½Ð§â¤U­±ªº 0.05 §ï¬° 2 ¸Õ¸Õ¬Ý

  '°±¹y¤@ÂI®É¶¡
  '==============
  tt = Timer:  Do: DoEvents: Loop While Timer - tt < 0.05

Scott090

¦^´_ 8# jysun1


    Application.wait  ¦n¹³¬O°±µÛµ¥«Ý¡B°£¤F­p®É¥~¡A¬Æ»ò¨Æ³£¨S°µ¡C¤£¬Æ²z¸Ñ¡C
    Do: DoEvents ; ............Loop¡A¬O¦³ÄÀ¥X±±¨îÅvªº´`Àô¡C
   
    ¥H¤Uªº½X¤ñ¸û¤£¨üµ{¦¡°õ¦æªºÀô¹Òªº¼vÅT¡G
    Do: sh.Cells(1, 1) = .DataLabel.Text: DoEvents: Loop Until sh.Cells(1, 1) <> ""

½Ð¸Õ¸Õ¬Ý