图1位置信息的推理效果图查询

那我们是怎么做到的？

在这里，EK谈论他的想法。

1。检查位置信息主要涉及：“产品名称（QAD），“商店位置”，“库存数量”和其他方面。

2。在这里，我们使用“产品名称”来标记它。

3。逻辑关系：产品- 陈述数量=[产品输入数量] – [产品输出数量]，乘积关注数量- 库存数量=[product-Inventory数量- 库存数量] – [product-Interventory数量- 库存数量- 库存数量]

4。阐明逻辑关系。逐步实现功能。

接下来，我们将检查库存位置信息

1。让我们首先将演示数据添加到[库存记录]和[输出记录]。如图2和图3所示。

图2库存输入的演示数据

图3出站帐户的演示数据

3。在[库存跟踪表]中，e2的公式为：e2=sumif（库存营业额！$ a: $ a，$ a6，库存营业额！$ e: $ e）-sumif（of-the-theepartment！$ a: $ a: $ a6 $ a6 $ a6 $ a6 $ a，$ a6 $ a，$ a，$ a，$ a6，the the-depepart the the-departs the the-departs the the the the-dephertsobless the-depervert！填写到最后一行。操作如下：

图4公式效应图

4。打开VBE窗口，这是两种方法。第一种类型是快捷键[ALT]+ [F11]。第二种类型是在[开发工具]选项卡中单击[查看代码]。

5。在模块1中创建两个过程：

过程1代码如下：

子生成库位置信息（）

dim arrrk，arrck，arrgz，arrg，arrfz（），hrq，hcq，hgz

表（“库存跟踪表”）。范围（\’F6:m\’hgz）=\’\’\’清除库存跟踪表的库存区域

\’将数据库流中的数据分配到数组

arrrk=sheets（\’库存记录\’）。范围（\’a2:g\’hrq）

arrck=Sheets（\’Out of of库存帐户\’）。范围（\’A2:G\’HCQ）

arrgz=sheets（\’库存跟踪表\’）。范围（\’f6:m\’hgz）

arrg=sheets（\’库存跟踪表\’）。范围（\’a6:m\’hgz）

设置d=createObject（\’scripting.dictionary\’）\’创建字典

\’将仓库位置和库存数量分配给ARRFZ阵列

对于i=1到ubound（arrrk）

如果不是d。

n=n + 1

d（arrrk（i，1）\’ – \’arrrk（i，7））=n

Redim Preserve Arrfz（1至3，1吨）

arrfz（1，n）=arrrk（i，1）

arrfz（2，n）=arrrk（i，7）

arrfz（3，n）=arrrk（i，5）

别的

m=d（arrrk（i，1）\’ – \’arrrk（i，7））

arrfz（3，m）=arrfz（3，m） + arrrk（i，5）

下一个

对于j=1到ubound（arrck）

如果不是d。

msgbox的卡卡生成错误！错误消息：\’vbnewline\’qad:\’arrck（j，1）vbnewline\’线号：\’j + 1 vbnewline\’库\’：\’arrck（j，7）

出口子

别的

m=d（arrck（j，1）\’ – \’arrck（j，7））

arrfz（3，m）=arrfz（3，m）-arrck（j，5）

下一个

j=1 to to ubound（arrfz（），2）

如果arrfz（3，j）0，则

对于i=1到ubound（arrg）

如果arrfz（1，j）=arrg（i，1），则

如果arrg（i，6）=\’\’，然后

arrg（i，6）=arrfz（2，j）

arrgz（i，1）=arrfz（2，j）

arrgz（i，2）=arrfz（3，j）

elseif arrg（i，8）=\’\’然后

arrg（i，8）=arrfz（2，j）

arrgz（i，3）=arrfz（2，j）

arrgz（i，4）=arrfz（3，j）

elseif arrg（i，10）=\’\’然后

arrg（i，10）=arrfz（2，j）

arrgz（i，5）=arrfz（2，j）

arrgz（i，6）=arrfz（3，j）

elseif arrg（i，11）=\’\’然后

arrg（i，11）=arrfz（2，j）

arrgz（i，7）=arrfz（2，j）

arrgz（i，8）=arrfz（3，j）

别的

MSGBOX\’超出仓库位置范围！请合理安排位置\’

下一个

下一个

表（“库存跟踪表”）。范围（\’f6\’）。rasize（ubound（arrgz），ubound（arrgz，2））=arrgz

\’发布数组内存

擦除arrrk

擦除arrck

擦除arrg

擦除arrfz

msgbox“数据生成已完成”

过程2代码如下

子清除库位置信息（）

表（“库存跟踪表”）。范围（\’f6:m\’hgz）=\’\’\’

上述代码已经进行了测试，可以完成库存的生成。

图5过程信息代码

6。在[库存跟踪表]中添加两个按钮，其中名称为“生成库位置信息”和“清除库位置信息”。按钮将宏指定为过程1-生成库位置信息和过程2-清除库位置信息。

操作步骤如下：

图6插入控制

在这里，我们已经完成了仓库位置和库存信息的一代和清除功能。

让我们看一下效果。