发红包请大神指点VBA代码，在线等！

hivictor

我已经写了部分代码，但遇到一个难题写不下去了，请路过的大神指点一二，红包答谢！
代码逻辑：

1、“科目余额表-跨账套”的第三列有不同账套名称，有多少个账套名称就复制多少个表；

2、复制的对象表为“基础表”；
3、“基础表”里有取数规则，根据一定的规则，把“科目余额表-跨账套”里每个账套对应的第6列减第7列的金额填到对应的已经复制的表里。
4、后续每个月只需要更新“科目余额表-跨账套”，运行账套后即可把当月的金额填到对应账套新增的“月”所在列对应的行里；
举个例子：
当依据“孟加拉7.6MW光伏项目部”复制了一个“基础表”时，“孟加拉7.6MW光伏项目部“工作表里：
第24行“正式员工薪酬及社保”=当“科目余额表-跨账套”工作表第一列科目编码取9位为“540102010”时，第6列-第7列，然后求和；
第27行“房租”=当“科目余额表-跨账套”工作表第一列科目编码取9位为54010212”时，第6列-第7列，然后求和；
PS:上面只是复制了一个表，后面需要复制很多个工作表，被复制的工作表都是“基础表”，然后按既定规则取数。
以后每个月就不需要复制工作表这个步骤，只需要把当月“科目余额表-跨账套”更新后，按上面的规则做差求和然后反写到对应的工作表对应的新增列里就可以了。

绿谷龙芽

看了半天，没看懂，基础表与科目余额表，没看到可以建立表关系的关键字段，你的科目编号基础表里没有。不知道你说的取数的依据字段是什么。

hivictor

绿谷龙芽 发表于 2019-9-13 19:18
看了半天，没看懂，基础表与科目余额表，没看到可以建立表关系的关键字段，你的科目编号基础表里没有。不知 ...

可以单独联系不？

绿谷龙芽

hivictor 发表于 2019-9-13 22:48
可以单独联系不？

我不一定会，描述清晰的很多老师会回答呀