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

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

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

wb.zip (17.31 KB)

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 3# Scott090
·PÁ±zªº¦^ÂÐF8³v¨B°õ¦æ¬O¥i¥H,¦ý«öF5´N¨Scell(1,1)ÁÙ¬O±a¤£¥X¤½¦¡

TOP

¦^´_ 4# jysun1


   
wb.rar (16.31 KB)

TOP

¦^´_ 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

TOP

¦^´_ 6# Scott090
¤Ó¤Ó·PÁ¤F¡A¸Õ¨ì0.5´N¶]ªº¥X¨Ó¤F:lol

TOP

¦^´_ 7# jysun1
¤£¦n·N«ä¡A½Ð°Ý¤@¤U ¬°¤°»ò¥Î Application.Wait Now + TimeValue("00:00:05") ¤£¦æ©O?¤]¬O°±¹y¤@ÂI®É¶¡!!

TOP

¦^´_ 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) <> ""

½Ð¸Õ¸Õ¬Ý

TOP

¦^´_ 9# Scott090
ÁÂÁÂ :)

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD