在Office7的VBA环境中，使用宏求解时频繁遇到语法错误问题分析与解决方法

若某公司有 M 个生产地点 A 1 ,A 2 ,A 3 ,A 4 ， … ， A m , 有 n 个销售市场 B 1 ， B 2 ， B 3 ， B 4 ， … ， B n 错误代码0x000001。

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

　　现建立模型如下 :

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

　　约束条件 :

　　每个厂发出量 = 生产量 ;

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

　　每个厂发出量大于等于零错误代码0x000001。

　　假如有一个石油企业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 错误代码0x000001，给销地 B 2 发 5 ，不给销地 B 3 发；

　　炼油厂 A 2 不给销地 B 1 发货，给销地 B 2 发 15 ，给销地 B 3 发 10 错误代码0x000001。

　　总运价为 765 ；此时既满足要求且运价最低；为最优方案错误代码0x000001。

　　怎么样规划求解错误代码0x000001，在求解中我打开了宏，在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

　　运行的时候，总是语法错误 ，不知道错误代码0x000001。为什么，谢谢帮忙解答

　　谢谢