返回列表 上一主題 發帖

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

森野

帖子
8 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
WIN10 
軟體版本
Office 2016 
閱讀權限
10 
註冊時間
2021-10-18 
最後登錄
2021-12-22 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-10-29 10:13 | 只看該作者

[發問] 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.如果要設定開始的時候文字出現在工作表上，按停止的時候文字就消失，要如何改程式碼，因為我帶入前輩的程式碼
，好像再一次執行，文字都會一直在工作表上，不會消失
收藏 分享

森野

帖子
8 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
WIN10 
軟體版本
Office 2016 
閱讀權限
10 
註冊時間
2021-10-18 
最後登錄
2021-12-22 
3#
發表於 2021-10-29 15:41 | 只看該作者
回復 2# ML089
感謝前輩回答  
受益良多

TOP

ML089

帖子
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

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題