我知道有几个主题,但在我的情况下,它是行不通的。我有一个宏来迭代一系列行,优化每个产品的价格。我不希望我的宏显示每一行的对话框。
Sub MultipleSolver()
Dim i As Integer
ActiveWorkbook.ActiveSheet.Activate
For i = 5 To 20
SolverReset
SolverOk SetCell:="$K$" & i, MaxMinVal:=1, ByChange:="$B$" & i, Engine:=1
SolverAdd CellRef:="$B$" &a