Tag: 求解器

在Excel中使用For和Next循环存储求解器结果: 我想用重复求解器51次，并将解算器的每次计算结果存储在Excel中的一个单独的单元格中。下面是我的VBA脚本。但是，我遇到了脚本的问题。存储结果只显示第51个，最后一个计算结果。这是一个简单的脚本，但我可以找出我做错了什么地方。感谢您的帮助！ Private Sub Button1_Click() Dim j As Integer For j = 1 To 51 Range("m4") = j solversolve UserFinish:=True solversolve(UserFinish:=True) = Range("Q" & j + 3) Next j End Sub

如何获得不同的细胞群，每个细胞群加起来一定数量: 我有一个Excel文件，其中有一列包含代表文件大小的数字，每个数字都是一个浮点数，最大小数位数为2（例如：23.04）。总细胞计数为（277个细胞）。我想自动将合计的细胞分组加上（ 1000 ）或尽可能接近该数量（1000）。所有单元格的总和为（5739.49），所以应该有（4）单元格组合，每个单元格合计为（1000），最后一个单元格（第5组）不计算合计多less。现在：我知道，这可以解决使用“解决”在Excel中的每个组但我不知道我应该使用什么约束和哪种解决方法（即，单纯形，GRG非线性或进化）的方法，因为我不是熟悉它先谢谢你

Excel解算器 – 防止相同的命名结果: 这可能听起来有点奇怪，也许我只是在这个问题上通过树错过了森林，但有没有办法强制Excel求解器只返回结果的一个实例？作为一个简单的例子，假设我们对各种物体（颜色，动物和形状）的可爱性有一些结果。我们希望求解器从这个列表中返回三个最喜欢的对象。红色（400）狗（120）圆（100）红色（400）猫（90）方形（75）蓝色（90）马（60）三angular形（70）绿色（80）蛇（30）矩形（40）黄色40）兔子（20）五angular大楼（15）这个例子中的问题当然是简化的。基本上，我的问题出现在我想要的每种types之一，即红色，狗，和圈，但我一直得到红色，红色（再次），狗，因为总量更高。我想定义一种方法来阻止Solver返回两个相同的值。我似乎无法弄清楚，Google似乎也没有产生任何可行的答案。

input一个使用vba在单元格中单击显示的公式，然后在求解器中使用它: 通常当我在excel上input一个公式时，它会显示当我单击单元格时，但是当我使用vba时，即使单击时也只显示值。我需要显示公式，所以我可以用它作为求解器的目标单元格。解算器如果只是一个值，将不起作用。就像我使用的例子 Set srange1 = Range("B2:B" & n + 1) Sheets("Portfolio").Cells(2, 3 + n).Value = Application.Sum(srange1) 单元格只包含一个值，所以我不能使用求解器，因为它需要一个公式。

Solver VBA ActiveCell“卡住”: 我正在尝试使用macros来调用Solver。目标是select一个目标单元格（ActiveCell），它将是“ByChange：”单元格。 SetCell是下一列的单元格，它应该是0.当我想通过select下一个单元格来运行macros来改变活动单元格时，它应该评估它。然而，在第一次运行之后，原来的活动单元目标似乎被保存在内存中。有没有办法清除activecell的内存，以便新select的Target cell注册为activecell？ Sub Solver() Dim Target As Double Dim zero As Double Target = ActiveCell.Value zero = Cells(ActiveCell.Row, ActiveCell.Column + 1).Value SolverOk SetCell:=zero, MaxMinVal:=3, ValueOf:=0, ByChange:=Target, Engine:=1, EngineDesc:="GRG Nonlinear" SolverSolve UserFinish:=True End Sub

使用VBA命令与“求解器对话框”配合使用: 目前我正在创build一个运行求解器的excel程序。我已经为求解器命令设置了最大时间限制。如果程序超出了时间限制，会出现一个求解器对话框，询问是继续还是停止。我想知道是否有办法编码到VBA自动select停止，而不是有一个用户点击选项。提前致谢！

在Coldfusion中运行Excel Solvermacros: 我试图在Coldfusion中运行excel求解器。然而，我遇到了类似的问题，页面挂起，如果永远加载，类似于此。有没有可能通过Coldfusion运行Excel解决scheme？如果没有，Coldfusion还有其他的select吗？提前致谢。

无法获得在VBA中工作的语句: 我的第一个问题是excel VBA是否会承认有两个约束的if语句，即 IF Range(somecell).value > 0 AND Range(anothercell).value < 100 Then: execute code here 因为当我知道在我运行的脚本中满足这两个约束条件时，我得到的问题是让if语句中包含的代码被触发。也许这是我的逻辑问题。我已经包含了代码，请看看你是否可以指出我的逻辑或VBA中的任何错误。背景信息（我也包括在代码中）：有两个杠杆更改单元格F71（D40和D41）。要求是F71大于0，并且必须小于F71的当前值（保存在可变currentValueAdd中）。所以我循环遍历所有可能的组合，试图find满足上述条件的最佳组合。有时候我打开excel并且工作正常，有时候根本不工作。结果是非常不稳定的。 Private Sub OptimizeFI_Click() Dim waiveLoop As Integer Dim comissionLoop As Integer Dim finalWaive As Integer Dim finalCommission As Integer Dim currentValueAdd As Double Dim F71 As Range, D41 As Range currentValueAdd = […]