[收集互助]在office7中,在求解中我翻开了宏,在vb中代码下,老是语法错误

3个月前 (11-27 09:05)阅读2回复0
wly
wly
  • 管理员
  • 注册排名8
  • 经验值130900
  • 级别管理员
  • 主题26180
  • 回复0
楼主

若某公司有 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
回帖

[收集互助]在office7中,在求解中我翻开了宏,在vb中代码下,老是语法错误 期待您的回复!

取消