求助:VBA学习

wenke1101 · 发表于 2017-7-17 23:02

各位大侠:以下有一份统计表,求助各位大侠指教,帮忙制作VBA.基本要求:

1.将"登记表"的相关内容,在点击"输入系统"控件后,直接在"汇总表"中汇总.
2.编号在点击"输入系统"控件后,直接递增.
3.完全同样的内容,只能1次点击"输入系统".
4."汇总表"中序号直接向下递增.
谢谢!

dailunchuan · 发表于 2017-7-18 01:30

不知道是不是你想要的效果详见附件

wenke1101 · 发表于 2017-7-18 13:15

您好!
首先,非常感谢您的及时回复.
测试效果来看,有以下几个问题:
1.不能按"输入系统"控件汇总到"汇总表"和保存文档,只有在"宏"执行test的时候才可以.
2.汇总表中的序号不能向下自动递增.
3."登记表"中的编号能否改为按"输入系统"控件后自动递增,不需要与前面的第几份关联.
拜托.
以上.

wenke1101 · 发表于 2017-7-19 20:08

有没有大神帮忙修改一下!?

xjg811 · 发表于 2017-7-19 21:46

1.编号递增多少，你没说。
2.如果是小数递增，可在B5=“=IF(A5="","",B4+10^-5) ”向下填充。
3.用VBA，应在5 行代码之内。

wenke1101 · 发表于 2017-7-20 12:23

只要B列有数据就一直向下递增序号.

wenke1101 · 发表于 2017-7-20 16:27

本帖最后由 wenke1101 于 2017-7-20 16:30 编辑

For s = 1 To UBound(arr1, 1)
Sheet2.Cells(s + 3, 1) = s
以上代码只能在第1次导入数据时能自A4单元格开始自动编号,第2次导入数据就不能于编号了.希望:
B4有数据时,A列自动有编号就是1,
B5有数据时,A列自动有编号就是2,
依次类推.
请帮忙修改.

wenke1101 · 发表于 2017-7-20 17:25

xjg811 发表于 2017-7-19 21:46
1.编号递增多少，你没说。
2.如果是小数递增，可在B5=“=IF(A5="","",B4+10^-5) ”向下填充。
3.用VBA， ...

For s = 1 To UBound(arr1, 1)
Sheet2.Cells(s + 3, 1) = s
以上代码只能在第1次导入数据时能自A4单元格开始自动编号,第2次导入数据就不能于编号了.希望:
B4有数据时,A列自动有编号就是1,
B5有数据时,A列自动有编号就是2,
依次类推.
请帮忙修改.

xjg811 · 发表于 2017-7-20 22:03

本帖最后由 xjg811 于 2017-7-21 00:18 编辑

wenke1101 发表于 2017-7-20 12:23
只要B列有数据就一直向下递增序号.

我在5楼已经问你了：

你没有说清楚递增多少：例如
1. 1，2，3 是递增1
2. 1. 1.1 ，1.2 是递增0.1
等等……

‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘
1。编号递增0.01
2. 程序未涉及修改，审阅、查错等事项。
3.其它符合你要求。

wenke1101 · 发表于 2017-7-20 23:12

本帖最后由 wenke1101 于 2017-7-20 23:15 编辑

xjg811 发表于 2017-7-20 22:03
我在5楼已经问你了：

你没有说清楚递增多少：例如

1.A列自A4开始,序号递增:1,2,3,4,5,6…向下每行递增1.
2.增加M列公式自动复制功能.
F列自F4开始是日期,M4单元格公式=text(F4,"YYYY-MM),通过VBA实现M4的公式向下复制.本表在工作薄sheet2中.
谢谢!

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