麻辣家族討論版版's Archiver

森野 發表於 2021-10-29 10:13

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 發表於 2021-10-29 10:41

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117472&ptid=23451]1#[/url] [i]森野[/i] [/b]
有一些問題請教
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.如果要設定開始的時候文字出現在工作表上,按停止的時候文字就消失,要如何改程式碼,因為我帶入前輩的程式碼
,好像再一次執行,文字都會一直在工作表上,不會消失
回覆:這就比較難回答

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

森野 發表於 2021-10-29 15:41

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

頁: [1]

麻辣家族討論版版為 麻辣學園 網站成員  由 昱得資訊工作室 © Since 1993 所提供