jysun1

帖子: 23
主題: 8
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 64bit
閱讀權限: 10
性別: 男
註冊時間: 2017-8-13
最後登錄: 2019-1-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-7-7 21:22 | 只看該作者

高手求救請問如何用vb取得趨勢線的公式(F8逐步執行是可以,但按F5就沒反應)

wb.zip (17.31 KB)

樓主熱帖

Scott090

高中生 Rank: 3 Rank: 3

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 268
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

2^#

發表於 2018-7-8 07:01 | 只看該作者

回復 1# jysun1

試試看是否符合需求：

'畫數據圖取趨勢線計算式
'======================
Sub test()
   Dim sh As Worksheet
   Set sh = ActiveSheet

'刪除己有之圖案、圖表
'=============================
   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

Scott090

高中生 Rank: 3 Rank: 3

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 268
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2018-7-8 09:41 | 只看該作者

回復 1# jysun1

'增加時間控制
Sub test()
   Dim sh As Worksheet
   Dim tt!
         .
         .
            .DisplayEquation = True
            '停頓一點時間
            '==============
            tt = Timer:  Do: DoEvents: Loop While Timer - tt < 0.05
            '==================================
            sh.Cells(1, 1) = .DataLabel.Text
      .
      .
End Sub

TOP

jysun1

小學生 Rank: 1

帖子: 23
主題: 8
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 64bit
閱讀權限: 10
性別: 男
註冊時間: 2017-8-13
最後登錄: 2019-1-13

4^#

發表於 2018-7-8 22:24 | 只看該作者

回復 3# Scott090
感謝您的回覆F8逐步執行是可以,但按F5就沒cell(1,1)還是帶不出公式

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 268
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

5^#

發表於 2018-7-9 04:34 | 只看該作者

回復 4# jysun1

wb.rar (16.31 KB)

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 268
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

6^#

發表於 2018-7-9 04:55 | 只看該作者

回復 4# jysun1

上面是我這邊 F5 執行的結果。
再不行，請把下面的 0.05 改為 2 試試看

  '停頓一點時間
  '==============
  tt = Timer:  Do: DoEvents: Loop While Timer - tt < 0.05

TOP

jysun1

小學生 Rank: 1

帖子: 23
主題: 8
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 64bit
閱讀權限: 10
性別: 男
註冊時間: 2017-8-13
最後登錄: 2019-1-13

7^#

發表於 2018-7-9 22:50 | 只看該作者

回復 6# Scott090
太太感謝了，試到0.5就跑的出來了:lol

TOP

jysun1

小學生 Rank: 1

帖子: 23
主題: 8
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 64bit
閱讀權限: 10
性別: 男
註冊時間: 2017-8-13
最後登錄: 2019-1-13

8^#

發表於 2018-7-9 22:54 | 只看該作者

回復 7# jysun1
不好意思，請問一下為什麼用 Application.Wait Now + TimeValue("00:00:05") 不行呢?也是停頓一點時間!!

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 268
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

9^#

發表於 2018-7-10 06:00 | 只看該作者

回復 8# jysun1

Application.wait 好像是停著等待、除了計時外，甚麼事都沒做。不甚理解。
Do: DoEvents ; ............Loop，是有釋出控制權的循環。

以下的碼比較不受程式執行的環境的影響：
Do: sh.Cells(1, 1) = .DataLabel.Text: DoEvents: Loop Until sh.Cells(1, 1) <> ""

請試試看

TOP

jysun1