Excel VBA教程:GoalSeek方法

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

expression.GoalSeek(Goal, ChangingCell)

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

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

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

Excel VBA教程:GoalSeek方法·示例

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


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

上页:Excel VBA教程:GetSaveAsFilename方法 下页:Excel VBA教程:Goto方法

Excel VBA教程:GoalSeek方法

Excel VBA教程:Goto方法 Excel VBA教程:Group方法
Excel VBA教程:Group方法(ShapeRange对象) Excel VBA教程:Heartbeat方法
Excel VBA教程:Help方法 Excel VBA教程:HighlightChangesOptions方法
Excel VBA教程:Import方法 Excel VBA教程:InchesToPoints方法
Excel VBA教程:IncrementBrightness方法 Excel VBA教程:IncrementContrast方法
Excel VBA教程:IncrementLeft方法 Excel VBA教程:IncrementOffsetX方法
Excel VBA教程:IncrementOffsetY方法 Excel VBA教程:IncrementRotation方法
Excel VBA教程:IncrementRotationX方法 Excel VBA教程:IncrementRotationY方法
Excel VBA教程:IncrementTop方法 Excel VBA教程:InputBox方法
Excel VBA教程:Insert方法 Excel VBA教程:InsertIndent方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号