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

森野

首先感謝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

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

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

森野

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