PKKO

　暱稱: PKKO

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-11-26 10:49 | 只看該作者

[發問] GoalSeek 要如何使用?

各位大大好,小弟不才

VBA案F1無法說明此功能

google之後大部分都是英文結果,看不太懂真正意思

想請教:例如
Range("a1").GoalSeek Goal:=0, ChangingCell:=Range("b1")

這句程式碼,是甚麼意思呢?

要如何使用呢~?

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2016-4-3 19:07 | 只看該作者

回復 5# PKKO

GoalSeek 有辦法使用變數取代儲存格嗎?
因為用儲存格還得先用公式,直接用變數比較方便

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2015-11-26 14:38 | 只看該作者

想請問兩位大大,有可能不要參照到儲存格

直接將它參照到變數，或是陣列嗎?
EX

當然我的錯誤,無法執行)
x=a+1
x.GoalSeek Goal:=2, ChangingCell:=a

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2015-11-26 14:33 | 只看該作者

感謝兩位大大的回覆，非常清楚明瞭!!
好酷的程式碼~

PKKO

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2015-11-26 11:32 | 只看該作者

回復 1# PKKO
請參考：
Automatic Goal Seek

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-11-26 11:26 | 只看該作者

回復 1# PKKO
Excel 開發人員參考資料
Range.GoalSeek 方法
為得出特定結果而進行單變數求解。如果此結果是由某公式傳回的量，本方法將求出該公式中未知數的值，當用該值代換公式中的未知數時，該公式將得出所需的結果。如果該結果搜尋成功則傳回 True。
語法

運算式.GoalSeek(Goal, ChangingCell)

運算式代表 Range 物件的變數。

參數

名稱必要/選用資料類型描述
Goal 必要 Variant 要傳至此儲存格的值。
ChangingCell 必要 Range 會指定要達到目標值所需變更的儲存格。

傳回値
Boolean

範例

本範例假設工作表 Sheet1 中有一個名為 "Polynomial" 的儲存格，該儲存格的公式為 =(X^3)+(3*X^2)+6，另外還有名為 "X" 的空白儲存格。本範例將求出當儲存格 Polynomial 的值等於 15 時，儲存格 X 的值。

Visual Basic for Applications
Worksheets("Sheet1").Range("Polynomial").GoalSeek _
Goal:=15, _
ChangingCell:=Worksheets("Sheet1").Range("X")

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP