0
Sub MinimumCost()
Range("TotalCost_D").ClearContents
Range("MinimumCost").Value = 100000000
Dim i As Integer
Range("PurchasedVans_M").Formula = "=Randbetween(0,2)"
For i = 1 To 10000
Calculate
If Range("TotalCost").Value < Range("MinimumCost").Value Then
Range("MinimumCost").Value = Range("TotalCost").Value
Range("TotalCost_D") = Range("MinimumCost")
Range("PurchasedVans").Value = Range("PurchasedVans_M").Value
End If
Next i
End Sub
该代码旨在计算优化成本,然后将面包车和成本的优化数量输入仪表板。复制粘贴随机数结果
问题是货车的数量与优化成本结果不匹配。这意味着我使用购买的结果数量来计算总成本,这与我之前获得的优化成本不相等。 是因为函数间的随机无法修复? 是否有更好的方法来产生随机数? 你能检查我的代码并告诉我问题的原因吗?
亲切的问候