[求助]如何对数据进行先进先出处理

lyy60 · 发表于 2004-6-7 22:04

现应工作需要对数据按先进先出办法进行处理，即如附件表中的，需要将收入的原始数据按支出金额大小情况进行拆分，比如第一笔收入为1.16日445007.24元，第一笔支出是5.11日支出416508.16元，由于第一笔收入比支出大，现在就需要对第一笔收入拆分为416508.16元（第一笔支出数）和28,499.08元（＝第一笔收入445007.24-第一笔支出416508.16），28,499.08元的收入就让第二笔支出（5.12日120203.77元）继续去抵（类似于先进先出），同时由于第一笔收入被拆分为二，所以相应也要把日期做一拆分。好像说起来也蛮累的，也不知道说明白了没有，哪位高手能扶小弟一把。

vjwmK339.rar (2.27 KB, 下载次数: 170)

[此贴子已经被作者于2004-6-7 22:05:21编辑过]

lyy60 · 发表于 2004-6-8 16:21

惨了，这么多高手暂时还没有好办法。是否我表述不清楚？

showworld · 发表于 2004-6-8 17:04

如果是实物，可考虑先进先出。资金干嘛这样？是不是货款与发票对应？那样对的话可够你受的。

shangyu · 发表于 2004-6-8 17:07

公式太难，用VBA吧，如果经常使用，可以做成加载宏

lyy60 · 发表于 2004-6-8 17:28

VBA不会编[em04]，函数还需要大家支持呢[em06]。那是否能告诉实物先进先出怎么处理，反正都是对数据进行处理。

shangyu · 发表于 2004-6-8 17:46

以下是引用lyy60在2004-6-8 17:28:00的发言： VBA不会编[em04]，函数还需要大家支持呢[em06]。那是否能告诉实物先进先出怎么处理，反正都是对数据进行处理。

VBA的，只适用当前表特定位置，如要通用需修改

PgFRqbbj.rar (9.84 KB, 下载次数: 453)

lyy60 · 发表于 2004-6-8 19:58

好好，我先学习一下子。[em17]谢谢7楼

lyy60 · 发表于 2004-6-9 20:50

大师们啊，如何将下述这句判断改为如果该单元格不是空或不是日期格式则结束（现在的判断是如果该单元格不是空或不是数字格式就结束吧）

If Cells(z, 4) = "" Or Not IsNumeric(Cells(z, 4)) Or _ Cells(s, 2) = "" Or Not IsNumeric(Cells(s, 2)) Then Exit Do

[此贴子已经被作者于2004-6-9 21:29:02编辑过]

chenjun · 发表于 2004-6-7 22:34

用公式不好做，大家再看看。

caisheg · 发表于 2009-8-1 10:34

近来在写一个库存管理的,学习一下

		自动登录	找回密码
密码			免费注册