每执行一次宏，代码自动填数到表2？请教各位老师

caipiaofans · 发表于 2018-9-16 20:51

本帖最后由 caipiaofans 于 2018-9-17 09:02 编辑

是这样的，

例子表格：
表1 的I1-I5，
QQ截图20180916204347.png

这5个单元格的数据会每5分钟变化一次数据，
（
这数据的变化。
能不能把代码加到这个5分钟刷新一次数据的宏的后面？只要能实现每执行一次就自动累计到表2里
第一次运行可以先清空表2要填写数据的地方，然后再，每执行一次宏就累计数据到表2里
）
我想要这样的代码：
每执行一次宏，代码就自动把I1-I5的
数据填写到表2的c列-g列里，自动在下一行追加数据
QQ截图20180916204412.png

要实现这样的功能vba代码要如何写呢
？
请教各位老师

附件下载：自动填数据.rar (4.03 KB, 下载次数: 6)

2018-9-16 20:51 上传
点击文件名下载附件

skyzxh · 发表于 2018-9-16 21:41

每5分钟变化一次是怎么触发的？

caipiaofans · 发表于 2018-9-16 21:55

skyzxh 发表于 2018-9-16 21:41
每5分钟变化一次是怎么触发的？

老师好，是用另外一个宏

Application.OnTime 触发

caipiaofans · 发表于 2018-9-17 08:40

各位老师早上好

caipiaofans · 发表于 2018-9-17 18:13

晚上好各位老师

lsc900707 · 发表于 2018-9-17 21:33

Sub gj23w98()
arr = [i1].CurrentRegion
With Sheet2
r = .Cells(.Rows.Count, 3).End(3).Row + 1
.Cells(r, 3).Resize(UBound(arr, 2), UBound(arr)) = Application.Transpose(arr)
End With
End Sub

复制代码

caipiaofans · 发表于 2018-9-17 21:44

lsc900707 发表于 2018-9-17 21:33

非常感谢 lsc900707老师。。。

刚初步测试了代码非常不错。
我再测试测试

caipiaofans · 发表于 2018-9-17 22:51

lsc900707 发表于 2018-9-17 21:33

lsc900707老师
您好
想再次麻烦您改进一下代码

刚才在测试时，发现有一处两个单元格的数据也要记录到表2里了。

如图。。。
QQ截图20180917223735.png

刚才老师的代码是，每执行一次宏，自动把表1的I1-I5的值写入到表2的C-G列里，
现在多了表1的C1-D1的值，这两个单元格的值也是变化的。
要求填写在C-D列。。。
如图，之前的代码是从C2-G2开始累计。。。。
现在要求是：表1的C1-D1，从C1-D1开始累计，即：第一次执行宏直接填写到表2的C1-D1，然后才是C2-D2
表1的I1-I5的值，是从 E2-I2开始累计。即：第一次执行宏直接填写到表2的 E2-I2，然后才是 E3-I3

麻烦lsc900707老师您了。。

new自动填数据.rar (8.8 KB, 下载次数: 0)

caipiaofans · 发表于 2018-9-19 08:05

早上好各位老师

caipiaofans · 发表于 2018-9-20 21:58

晚上好各位老师

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

[求助] 每执行一次宏，代码自动填数到表2？请教各位老师

评分