[网络互助]在office7中,在求解中我打开了宏,在vb中代码下,总是语法错误

5年前 (2020-01-31)阅读497回复0
房娜静
房娜静
  • 管理员
  • 发消息
  • 注册排名2897
  • 经验值55
  • 级别管理员
  • 主题11
  • 回复0
楼主
印刷厂直印加工●彩页1000张只需要69元●名片5元每盒-更多产品印刷报价➦联系电话:138-1621-1622(微信同号)

若某公司有 M 个生产地点 A 1 ,A 2 ,A 3 ,A 4 , … , A m , 有 n 个销售市场 B 1 , B 2 , B 3 , B 4 , … , B n 。

  A i 地的生产量为 a i ,B j 市场的销量为 b j 。由 A i 送向 B j 的货物记为 X ij , 运费记为 C ij , 在产量等于销量的情况下如何调配才能使运费最低 ?

  现建立模型如下 :

  当 Σa i =Σb j 时 ,最小运费 S=ΣΣC ij X ij

  约束条件 :

  每个厂发出量 = 生产量 ;

  每个销售地接受量等于 = 需求量 ;

  每个厂发出量大于等于零。

  假如有一个石油企业2个炼油厂生产情况如下 :

  炼油厂 A 1 A 2

  月产量 ( 万公升 ) 35 25

  这炼油厂有3个销地需求情况如下 :

  销地 B 1 B 2 B 3

  月需求 ( 万公升 ) 30 20 10

  第 i 个生产地运向销售地 j 的运费 C ij (千元)如下 :

  运费 B 1 B 2 B 3

  A 1 10 15 18

  A 2 12 16 15

  在 EXCEL 输入数据如下:

  其中单元格 B13 是总运费 =sumproduct(B7:D8,B10:D11);

  B12=SUM ( B10 : B11 )表示销地 B 1 接到的货物;

  C12=SUM ( C10 : C11 )表示销地 B 2 接到的货物;

  D12=SUM ( D10 : D11 )表示销地 B 3 接到的货物;

  E10=SUM ( B10 : D10 )表示产地 A 1 发出的货物;

  E11=SUM ( B11 : D11 )表示产地 A 2 发出的货物;

  经规划求解的结果如下表:

  求解的结果如下 :

  炼油厂 A 1 给销地 B 1 发 30 ,给销地 B 2 发 5 ,不给销地 B 3 发;

  炼油厂 A 2 不给销地 B 1 发货,给销地 B 2 发 15 ,给销地 B 3 发 10 。

  总运价为 765 ;此时既满足要求且运价最低;为最优方案。

  怎么样规划求解,在求解中我打开了宏,在vb中代码如下:

  Sub 求运费()

  其中单元格 B13 是总运费 =sumproduct(B7:D8,B10:D11);

  B12=SUM ( B10 : B11 )表示销地 B 1 接到的货物;

  C12=SUM ( C10 : C11 )表示销地 B 2 接到的货物;

  D12=SUM ( D10 : D11 )表示销地 B 3 接到的货物;

  E10=SUM ( B10 : D10 )表示产地 A 1 发出的货物;

  E11=SUM ( B11 : D11 )表示产地 A 2 发出的货物;

  End Sub

  运行的时候,总是语法错误 ,不知道。为什么,谢谢帮忙解答

  谢谢

0
0
收藏0
回帖

[网络互助]在office7中,在求解中我打开了宏,在vb中代码下,总是语法错误 期待您的回复!

取消
载入表情清单……
载入颜色清单……
插入网络图片

取消确定

图片上传中
编辑器信息
提示信息