返回列表 上一主題 發帖

怎麼快速的算出反函數值

ML089

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
1# 跳轉到 »
發表於 2016-2-3 17:57 | 顯示全部帖子
本帖最後由 ML089 於 2016-2-3 17:58 編輯

回復 1# m06o2

G6 =(C6*C7)+9.36*LOG10(G5)-0.2+(LOG10((C9-C10)/(2.7))/(0.4+(1094/(G5^5.19))))+2.32*LOG10(C14)-8.07

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

TOP

ML089

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2016-2-3 21:46 | 顯示全部帖子
回復 4# m06o2

使用VBA

Sub 目標搜尋()
    Range("G6").GoalSeek Goal:=17.61664, ChangingCell:=Range("G5")
End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 2016-2-4 08:59 | 顯示全部帖子
本帖最後由 ML089 於 2016-2-4 10:32 編輯

回復 6# m06o2

可以使用欄位
Sub 目標搜尋()
    For i = 1 To 10
        Range("G6").GoalSeek Goal:=Range("I6").Offset(, i), ChangingCell:=Range("G5")
        Range("I7").Offset(, i) = Range("G5")
    Next
End Sub

怎麼快速的算出反函數值.rar (14.62 KB)

Range("I7").Offset(, i) = Range("G5") 是近似值會有很多小數，可以用ROUND函數取整數或小數幾位
修改如下
Range("I7").Offset(, i) = Round(Range("G5"), 0)
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題