按模板生成新的表

陌影——

求助！！！根据表的数据（数据会不断更新）按照模板生成新的表。谢谢

fanyoulin

简单帮你搞了下，你的模板我有点看不懂，稍微修改写了下，如果不对你再改回来。数据填充都有说明，要是填的不对你就改下单元格坐标。

你原来的代码我大致浏览下，似乎也是差不多的，但我的风格不太一样，我不喜欢那么复杂的对象定义，基本上你看不到我有参数定义，所以我就把你原来的代码都删了。

ykcbf1100

先做个记号

陌影——

如果我添加的单位名称与有重复的，但是金额不一样，是否也能按模板生成新的表

陌影——

fanyoulin 发表于 2023-3-21 16:58
简单帮你搞了下，你的模板我有点看不懂，稍微修改写了下，如果不对你再改回来。数据填充都有说明，要是填的 ...

如果我添加的单位名称与有重复的，但是金额不一样，是否也能按模板生成新的表

fanyoulin

陌影—— 发表于 2023-3-22 20:37
如果我添加的单位名称与有重复的，但是金额不一样，是否也能按模板生成新的表

那会出错，因为工作表名称不能有重名，可以稍微变更下名称，比如苹果、苹果1、苹果第一次欠款...就是这个意思吧

陌影——

fanyoulin 发表于 2023-3-21 16:58
简单帮你搞了下，你的模板我有点看不懂，稍微修改写了下，如果不对你再改回来。数据填充都有说明，要是填的 ...

能不能在原始数据删除某条信息后已生成的模板不能删掉，比如我在原始数据删除了苹果，但是按照苹果的名称生成的模板不删除

陌影——

fanyoulin 发表于 2023-3-22 21:09
那会出错，因为工作表名称不能有重名，可以稍微变更下名称，比如苹果、苹果1、苹果第一次欠款...就是这个 ...

好的，那我明白意思了那我的按单位命名的表格前可以帮加上日期吗，还有就是删除原数据后已生成的表格能否不删除，能再帮完善一下这个代码吗，非常感谢

fanyoulin

陌影—— 发表于 2023-3-23 01:41
好的，那我明白意思了那我的按单位命名的表格前可以帮加上日期吗，还有就是删除原数据后已生成的表格能否 ...

如果你是想一直保持之前已经生成的子表，你可以把最前面那段删除子表的代码删掉即可。不过我认为这不是一个好方法，如果你是希望保留历史档案，可以把他们先复制到一个新的文件中单独保存。
但你要明白，名称绝对是不能重复的，所以你在名称上一定要有规则。你提到的加上日期是一个思路，但这个也不行，因为工作表名称不能包含有"/"这类特殊字符，所以加上日期是不行的，但可以加上类似20230323这种文字。下面这行是命名工作表的：
Worksheets(Worksheets.Count).Name = x1
你可以改成：
Worksheets(Worksheets.Count).Name = Cells(i, 1) & x1     '加上序号
或者
Worksheets(Worksheets.Count).Name = Year(Date) & Month(Date) & Day(Date) & x1 '加上20230323
你可以按照自己的喜好来适当添加文字；
如果在某种情况下总是出错，你可以把上面这行删掉，那么系统会自动给新增的子表命名，系统名称是按编号来的，sheet1、sheet2、sheet3...虽然不完美但可以帮你度过难关，然后你再手动把名字改成你想要的样子。

陌影——

fanyoulin 发表于 2023-3-23 08:41
如果你是想一直保持之前已经生成的子表，你可以把最前面那段删除子表的代码删掉即可。不过我认为这不是一 ...

非常感谢你的帮助