矿料合成级配表格设计方法

原创VBA调用规划求解自动合成矿料级配试验检测技术人员都知道，已知五、六档甚至七档集料计算合成成符合技术规范 及级配关键点的控制要求，是非常消耗脑力和时间，特别是没有经验的检测人员 更困难。因此我们可利用计算机的信息处理能力，为我们分忧解难。Excel是办公中最常用的办公软件之一，其功能非常强大，能利用好相关功能，会有意想不到的效果。规划求解也称作“假设分析”，是一个非常好用的工具，经常用于查看更改某些 单元格中的变量对工作表中公式结果的影响，例如：1、根据已知结果倒推变量应赋予的初值：已知各档级配通过率及矿料的级配范 围，可以用单变量求解、循环引用，也可规划求解得出配合比例。2、根据已知参数和配比，寻找最佳组合方案：这种应用案例居多。最佳沥青用量的选定、沥青利用Excel2003提供的规划求解可以进行级配合成、 混合料拌和楼的标定等问题常规操作规划求解过程中，美中不足的是除了限制变量个数、求解时间有时候比 较长外，还有是如果变量不多、算法也不难，但有许多需要求解的值，而每一次 改变都要重复操作，弹出规划求解对话框、求解。以上常规操作无法避免的问题，在利用 VBA调用规划求解宏却可以很好的解决。 从而更好的提高工作效率。通过工程上最常用的配合比级配比例的选定 （例子为 沥青混合料配合比）进行说明代码如下：Sub ww() 取消密码保护ActiveSheet.Unprotect Password:=123Range(C4:C11).SelectSelection.ClearContents 全部重设SolverReset 规划求解参数设置 Solverok setcell= 设置目标单元格 :MaxMinVal 对应于是否要解决目标单元对最大值 (1) 、 最小值 (2), 或特定值 (3)ValueOf 指定要匹配目标单元值。 如果您设置 MaxMinVal 为 3, 必须 指定该参数。 如果将设置为 1 或 2, MaxMinVal 才能省略该参数。 ByChange 指定单元格或区域的单元格， 将更改 SolverAdd (CellRef,关系 , FormulaText)1 值是否小于或等于 =4 值是整数5 是二进制(值是零或一个)FormulaText 引用一个或多个单元格构成右边的 constraint Solverok setcell:=Range($D$12), maxminval:=3, ValueOf:=100, bychange:=Range(c4:c11)SolverAdd CellRef:=Range(d12), Relation:=2, FormulaText:=Range(q12)SolverAdd CellRef:=Range(d12), Relation:=3, FormulaText:=Range(d17)SolverAdd CellRef:=Range(d12), Relation:=1, FormulaText:=Range(d16)SolverAdd CellRef:=Range(e12), Relation:=3, FormulaText:=Range(e17)SolverAdd CellRef:=Range(e12), Relation:=1, FormulaText:=Range(e16)SolverAdd CellRef:=Range(f12), Relation:=3, FormulaText:=Range(f17)SolverAdd CellRef:=Range(f12), Relation:=1, FormulaText:=Range(f16)SolverAdd CellRef:=Range(g12), Relation:=3,FormulaText:=Range(g17)SolverAdd CellRef:=Range(g12), Relation:=1, FormulaText:=Range(g16)SolverAdd CellRef:=Range(h12), Relation:=3, FormulaText:=Range(h17)SolverAdd CellRef:=Range(h12), Relation:=1, FormulaText:=Range(h16)SolverAdd CellRef:=Range(i12), Relation:=3, FormulaText:=Range(i17)SolverAdd CellRef:=Range(i12), Relation:=1, FormulaText:=Range(i16)SolverAdd CellRef:=Range(j12), Relation:=3, FormulaText:=Range(j17)SolverAdd CellRef:=Range(j12), Relation:=1, FormulaText:=Range(j16)SolverAdd CellRef:=Range(k12), Relation:=3, FormulaText:=Range(k17)SolverAdd CellRef:=Range(k12), Relation:=1, FormulaText:=Range(k16)SolverAdd CellRef:=Range(l12), Relation:=3, FormulaText:=Range(l17)SolverAdd CellRef:=Range(l12), Relation:=1, FormulaText:=Range(l16)SolverAdd CellRef:=Range(m12), Relation:=3, FormulaText:=Range(m17)SolverAdd CellRef:=Range(m12), Relation:=1, FormulaText:=Range(m16)SolverAdd CellRef:=Range(n12), Relation:=3, FormulaText:=Range(n17)SolverAdd CellRef:=Range(n12), Relation:=1, FormulaText:=Range(n16)SolverAdd CellRef:=Range(o12), Relation:=3, FormulaText:=Range(o17)SolverAdd CellRef:=Range(o12), Relation:=1, FormulaText:=Range(o16)SolverAdd CellRef:=Range(p12), Relation:=3, FormulaText:=Range(p17)SolverAdd CellRef:=Range(p12), Relation:=1, FormulaText:=Range(p16)SolverSolve UserFinish:=TrueSolverFinish KeepFinal:=1密码保护ActiveSheet.Protect Conten ts:=True, Seen arios:=True,AllowFormattin gCells:=True,Password:=123End Sub：U黑性迫 was?觇曲迫曲g 塔吿叩IA a 緘囲躺n)of).S X,&丨 b丨i :匚！_丄_E 直丨i .j_Jt 19r ii -i19-31 50. 2S0IQO-OEk 159a. mo . I2Utai o(L Mili no qZB100.010110P lifli) | iw.04 TH 5141516级配口魂合感曲建愷痒2is n7I 0血DICO 0SOO o% BDiio.aLGO 0ICO.O100 QIGO 0JM Dioa.n100.0LOCi oV 54奮n I Qttoo ameioo a4 TS0 075s.mi .I G0 60冒Cl 61.5w *TM1如丄LDO tlI脚0IO0 0i鮒tICO 6I CO Cl*44I： 0DP9T 0LU ZM D酿016.0骼0釧D迪於1.0IjMI iUO.O邮.d15 095 &JW. 0战出合M.三飪屉障j：理p 阳目那i価03f| FMUM.0 丨 LM0100. o7.Tno4 力2 .如1.为0-2 服皑ml.w 首爲9.5-4尼昧枳)bloguSa. com ,co/ji舲蜩。3最后点击“合成级配线”一切 OK