自动生成表格

清风竹-

whmomo 发表于 2024-3-8 13:04
程序最后
Cells(1, 1).Resize(n, UBound(brr, 2)) = brr3
Cells(1, 1).Resize(n, UBound(brr3, 2)) = b ...

UBound(brr3, 2)是指数组brr3横向组数（多少），dim(声明)时，UBound(brr3, 2)比UBound(brr, 2)大1个，UBound(brr, 2)=UBound(crr, 2)+3,crr大小来自计划表。具体要看能不能满足需要。代码用这个UBound(brr3, 2)为好。

whmomo

清风竹- 发表于 2024-3-9 10:46
UBound(brr3, 2)是指数组brr3横向组数（多少），dim(声明)时，UBound(brr3, 2)比UBound(brr, 2)大1个，UB ...

感谢！！

whmomo

清风竹- 发表于 2024-3-7 21:05
请看附件。

每次生成3个表后，然后再点运行，再重新生成3个新的表，能不能不再新增直接履盖原来的文件呢？

清风竹-

whmomo 发表于 2024-3-11 19:34
每次生成3个表后，然后再点运行，再重新生成3个新的表，能不能不再新增直接履盖原来的文件呢？

。。。。。。。。。。。。

whmomo

清风竹- 发表于 2024-3-11 20:43
。。。。。。。。。。。。

有一个表一直是自己手工做的，有时间看能不能VBA实现，谢谢。

清风竹-

whmomo 发表于 2024-3-14 10:16
有一个表一直是自己手工做的，有时间看能不能VBA实现，谢谢。

看了看，取数规律没看明白。

whmomo

清风竹- 发表于 2024-3-14 14:28
看了看，取数规律没看明白。

就是一个成品的BOM，分层级的，理论是是第一层级的物料，第一层级中有虚拟件，虚拟件下面的BOM来代替这个虚拟件，也就是所谓的二层级，二层级中如果有虚拟件的话，就用这个虚拟件下面的第三层级来代替，依次类推的。

whmomo

清风竹- 发表于 2024-3-14 14:28
看了看，取数规律没看明白。

附件重新说明了一下，看能不能用VBA，谢谢。

清风竹-

whmomo 发表于 2024-3-14 14:45
附件重新说明了一下，看能不能用VBA，谢谢。

请测试一下。

whmomo

清风竹- 发表于 2024-3-11 20:43
。。。。。。。。。。。。

如果在SHEET1表中有标颜色的代码给予重点关注，生成汇总表时也自动把代码标注的颜色带过来吗？