[發問] EXCEL VBA求一元二次方程式 (不用公式解)(3)

首先感謝Andy2483及ML089 熱些解答因為我的EXCEL VBA求一元二次方程式 (不用公式解)(2)被移去 EXCEL程式區小學生沒有辦法在那答覆兩位前輩
對於Andy2483前輩還有一些問題想請教
1.888跟999 是自己定義的位置嗎，是指隨機的位置都可以嗎
2.  P = Y0 * Y1
'↓運用二次函數在Y值=0前的負數與Y值=0後的正數乘積是負數
If P < 0 Then
這裡為什麼要假設兩個方程式相乘，並讓方程式兩個解相乘的P<0 ，運用二次函數在Y值=0前的負數與Y值=0後的正數乘積是負數，這個還是有點不太懂

對於ML089前輩，也有一些問題請教
1.是否可以不設定此項， Sheets.Add.Name = Format(Now(), "dd_hhmmss")，我打這項進去EXCEL VBA 會跳出一個新的工作表
2.Array是陣列，Resize(, 3)是什麼意思
3.為甚麼要While x <= x2  (X為什麼<=X2
4.  Cells(r, c1).Resize(, 3) = Array(x, x + s, f(x)) 'Debug 用，如果不設定此項，好像也可以運行，設定此項的目的是甚麼
5.如果要設定開始的時候文字出現在工作表上，按停止的時候文字就消失，要如何改程式碼，因為我帶入前輩的程式碼
，好像再一次執行，文字都會一直在工作表上，不會消失

樓主熱帖

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2021-10-29 10:41 | 只看該作者

回復 1# 森野
有一些問題請教
1.是否可以不設定此項， Sheets.Add.Name = Format(Now(), "dd_hhmmss")，我打這項進去EXCEL VBA 會跳出一個新的工作表
回覆：可不用此行，這是測試用，每次增加新工作表，以利和上次執行比較，我後面有一個刪除臨時工作表的程式可以使用

2.Array是陣列，Resize(, 3)是什麼意思
回覆：水平方向增加3格陣列空間

3.為甚麼要While x <= x2 (X為什麼<=X2
這是設定由 X1 一直跑到 X2，若你已經知道區間，可以設小一點

4. Cells(r, c1).Resize(, 3) = Array(x, x + s, f(x)) 'Debug 用，如果不設定此項，好像也可以運行，設定此項的目的是甚麼
此行就 DEBUG用，顯示出在工作表上，比較好DEBUG程式設定

5.如果要設定開始的時候文字出現在工作表上，按停止的時候文字就消失，要如何改程式碼，因為我帶入前輩的程式碼
，好像再一次執行，文字都會一直在工作表上，不會消失
回覆：這就比較難回答

我那程式很不穩定，要看方程式型態調整一些參數(分割大小、起始值，區間)，
這只是好玩試想看看電腦是否可以用一段一段分割方式完成解答。

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

森野

小學生 Rank: 1

帖子: 8
主題: 6
精華: 0
積分: 27
點名: 0
作業系統: WIN10
軟體版本: Office 2016
閱讀權限: 10
註冊時間: 2021-10-18
最後登錄: 2021-12-22

3^#

發表於 2021-10-29 15:41 | 只看該作者

回復 2# ML089
感謝前輩回答
受益良多

TOP