GoalSeek 方法

       

为得出特定结果而进行单变量求解。如果此特定结果是由某公式返回的量,本方法将求出该公式中未知数的值,当用该值代换公式中的未知数时,该公式将得出所需的特定结果。如果单变量求解成功,则该值为 True

expression.GoalSeek(Goal, ChangingCell)

expression   必需。该表达式返回一个 Range 对象。必须为单个单元格。

Goal   Variant 类型,必需。希望在该单元格中得出的结果。

ChangingCell   Range 类型,必需。指定将放置结果的单元格。

示例

本示例假定 Sheet1 中包含单元格“Polynomial”,该单元格的公式为 =(X^3)+(3*X^2)+6,另有名为“X”的空单元格。本示例将求出 X 的一个解,使得单元格“Polynomial”的值为 15。

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