返回列表 上一主題 發帖

請教一個白痴問題求多項式系數 運算

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2018-8-27 15:07 | 顯示全部帖子
回復 1# jysun1

請參考
  1.    
  2. Sub 計算(PT As Range)
  3.     Dim strMsg, a#, b#, c#
  4.     strMsg = Split(PT, " ")
  5.     a = Left(strMsg(2), Len(strMsg(2)) - 2)
  6.     b = Left(strMsg(4), Len(strMsg(4)) - 1)
  7.     If strMsg(3) = "-" Then b = -b
  8.     c = strMsg(6)
  9.     If strMsg(5) = "-" Then c = -c
  10.     'MsgBox a & Chr(10) & b & Chr(10) & c
  11.     PT.Offset(0, 1) = -b / (2 * a)
  12. End Sub
複製代碼
多項式.zip (15.07 KB)

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題