如何实现快速 数据校验？

quqiyuan

然后求解

如果有时候差几分，再求解1次2次就可以了，其实也可以精度提高一点也行，不过不是太懂，就点多两次，变成0就可以了，我也试过几次。

zlap007

quqiyuan 发表于 2023-11-22 20:20
然后求解

如果有时候差几分，再求解1次2次就可以了，其实也可以精度提高一点也行，不过不是太懂，就点多 ...

我的意思是，输入18888元，按照你的方法是可以成功实现，但现在有40-50个班组需要这样计算，只是比较繁琐（指的是多次进行”规划求解“）。
那么有什么方法，让我只要输入”应发工资“（如18888元），就可以自动计算(我理解为 把”规划求解“功能直接以 公式模式 固定起来 )

zlap007

是否需要录制宏来解决这个问题？

quqiyuan

zlap007 发表于 2023-11-22 22:52
是否需要录制宏来解决这个问题？

录制宏是个好办法，下面做了下，供参考，我试了也可以，需要先在vba编辑器里把solver的引用选了


Sub 每个工作表规划求解()
Dim sh As Worksheet, wb As Workbook
Set wb = ThisWorkbook
For Each sh In wb.Sheets
    sh.Activate
    SolverOk SetCell:="$F$17", MaxMinVal:=3, ValueOf:=0, ByChange:="$C$7", Engine:= _
        1, EngineDesc:="GRG Nonlinear"
    SolverOptions MaxTime:=0, Iterations:=0, Precision:=0.0000001, Convergence:= _
        0.0000001, StepThru:=False, Scaling:=True, AssumeNonNeg:=True, Derivatives:=1
    SolverOptions PopulationSize:=100, RandomSeed:=0, MutationRate:=0.075, Multistart _
        :=False, RequireBounds:=True, MaxSubproblems:=0, MaxIntegerSols:=0, _
        IntTolerance:=1, SolveWithout:=False, MaxTimeNoImp:=30
    SolverOk SetCell:="$F$17", MaxMinVal:=3, ValueOf:=0, ByChange:="$C$7", Engine:= _
        1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$F$17", MaxMinVal:=3, ValueOf:=0, ByChange:="$C$7", Engine:= _
        1, EngineDesc:="GRG Nonlinear"
    SolverSolve
Next
End Sub