VBA跨工作簿提取指定条件下指定日期最后一笔金额

ppzzww

大神，

VBA跨工作簿提取指定条件下指定日期最后一笔金额

背景：
需要按币种对银行交易明细中的余额按条件提取数据到余额核对表中，（根据“余额核对表”中A1中的账户及B列日期，提取“银行交易明细”中D列账户下，F列日期对应的M列余额到“余额核对表”的C列中，相同日期下取最后一笔余额）

注意事项：
1、“余额核对表”中的sheet为手工增加，数据提取到每个sheet中，包含不同币种；但“银行交易明细”一个工作簿就是一个币种（单个币种明细数据量很大，一年估计10万条以上），因此不同币种需要跨工作簿取数据，如果不方便处理，可一个币种做一个VBA，手工运行。
2、如果“余额核对表”中的日期在“银行交易明细”无明细发生，则取“银行交易明细”表中上次最近一次日期的最后一笔余额。
3、如果“余额核对表”中A1中的账户不在“银行交易明细”中，则无提取数据。


银行交易明细及余额核对表.zip (102.23 KB, 下载次数: 12)

2023-1-31 08:24 上传

点击文件名下载附件

ykcbf1100

余额核对表。

ppzzww

ykcbf1100 发表于 2023-1-31 10:10
余额核对表。

谢谢。
余额核对表中，黄色部分由于在明细中没有发生额，因此没有数据，能否对于没有发生额的，提取上一次最近日期的最后一笔做为余额？
如黄色表中21-23号都有没数据，但明细表中1号有余额，因此21-23号余额都是1号的余额。其他黄色空白处逻辑类似

ykcbf1100

ppzzww 发表于 2023-1-31 10:37
谢谢。
余额核对表中，黄色部分由于在明细中没有发生额，因此没有数据，能否对于没有发生额的，提取上一 ...

我看一下。

ykcbf1100

ppzzww 发表于 2023-1-31 10:37
谢谢。
余额核对表中，黄色部分由于在明细中没有发生额，因此没有数据，能否对于没有发生额的，提取上一 ...

你再试一下。

grf1973

在四楼的基础上简化了一下。

ppzzww

ykcbf1100 发表于 2023-1-31 11:00
你再试一下。

你好，

实际在测试时还发现以下问题，能否帮忙看看？谢谢。

问题：

1、比如图一明细中从26号开始才有明细发生时，正常情况下，25号及以前余额应该是0才对，但实际是25号及以前余额取26号第二笔余额（如图二）。

2、另外，当增加了一个币种，比如“欧元”时，代码运行也行带出了正确数据，那代码中b = [{"人民币","美元"}]是否要修改为b = [{"人民币","美元"，"欧元"}]？不修改有影响吗？

注意：25号及以前是没有明细发生额时出错，不是有发生额但余额为0时出错。我测试了，当25号及以前有明细发生且余额是0的时候，数据是正常的。

ppzzww

grf1973 发表于 2023-1-31 13:33
在四楼的基础上简化了一下。

你好，能帮忙看看7楼的问题吗？附件在5楼，谢谢

ykcbf1100

ppzzww 发表于 2023-2-13 13:28
你好，实际在测试时还发现以下问题，能否帮忙看看？谢谢。 问题：1、比如图一明细中从26号开始才有明细发 ...

明天看一下。

ykcbf1100

ppzzww 发表于 2023-2-13 13:28
你好，实际在测试时还发现以下问题，能否帮忙看看？谢谢。 问题：1、比如图一明细中从26号开始才有明细发 ...

今天按你反应的问题我查了一下代码，现在回复你。
1、对于你第1个问题：余额我取自于你的分表，你的数据就是那样的，这个问题得你自己解决。
2、对于你第2个问题：如果增加币种，原代码不能直接使用，要更改一下。上传附件已更新，现在你增加币种就没问题了。