请大神帮忙修改旧表的VBA适用于新表，谢谢！

guochangjj · 发表于 2023-4-20 10:25

本帖最后由 guochangjj 于 2023-4-20 10:30 编辑

新工作簿与旧工作簿的主要区别就是修改了列项目（减少列了）。

新工作簿各个表的表格结构都是完全一样的，第一至二行是表头、第三行开始是数据（旧工作簿：第一至三行是表头，第四行开始是数据）。……新工作簿中各个分表名称与“文件盒分类”（C列）是相对应的。
新工作簿，在总表中选择C列“文件盒分类”后（已作数据有效性处理）：1、根据该分类自动编号在D列“编号”里（5位数，组成方式：两位数分类号+三位数同类顺序号），2、同时按照旧工作簿的触发方式从总表进行复制到对应的分表。

文件登记簿（旧版）.rar (20.84 KB, 下载次数: 5)

文件登记簿（新版）.rar (24.99 KB, 下载次数: 4)

3190496160 · 发表于 2023-4-20 11:03

只看了总表的代码

文件登记簿（新版）.rar (44.91 KB, 下载次数: 11)

guochangjj · 发表于 2023-4-20 11:36

3190496160 发表于 2023-4-20 11:03
只看了总表的代码

首先非常感谢！
但这只能编号，不能把总表的A至G列复制到相对应的分表（分表名称与总表的“文件盒分类”是对应的），麻烦大神再帮忙增加一下代码！非常感谢！

3190496160 · 发表于 2023-4-20 14:24

文件登记簿（新版）.rar (42.27 KB, 下载次数: 13)

3190496160 · 发表于 2023-4-20 14:25

注册了十多年的老会员了，简单的搬运一下代码都不会，得不断的学习，不能只是简单的拿来，

guochangjj · 发表于 2023-4-20 15:51

本帖最后由 guochangjj 于 2023-4-20 15:59 编辑

大神您批评很非常好，我也虚心接受，心里也非常惭愧！
我也曾用心去学过，但自己真不是理科的料，而且身边也没高手指导，实在没学到。
另：请您看看代码，为啥总表的第3行（即例子里的编号05001）无法自动复制到分表，后面的行是可以的，谢谢！

guochangjj · 发表于 2023-4-20 18:26

本帖最后由 guochangjj 于 2023-4-20 21:07 编辑

（上一条信息因用手机编辑，好像出错了，重新发）
大神您批评很非常好，我也虚心接受，心里也非常惭愧！
我也曾用心去学过，但自己真不是理科的料，而且身边也没高手指导，实在没学到。
另：请您看看代码，为啥总表的第3行（即例子里的编号05001）无法自动复制到分表，后面的行是可以的，谢谢！

guochangjj · 发表于 2023-4-20 21:07

我自己试改了一下，好像把代码中第10行的“A3:K”改为“A2:K”就行了。

3190496160 · 发表于 2023-4-27 12:12

guochangjj 发表于 2023-4-20 18:26
（上一条信息因用手机编辑，好像出错了，重新发）
大神您批评很非常好，我也虚心接受，心里也非常惭愧！
...

学vba好像跟文理科没有多大关系，我是学汉语言文学专业的，当初是工作需要逼迫自己学习了

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

[求助] 请大神帮忙修改旧表的VBA适用于新表，谢谢！

评分