Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2948|回复: 7

[已解决]VBA 数据按时钟自动复制

[复制链接]
发表于 2014-10-18 09:05 | 显示全部楼层 |阅读模式
大神,大家好!!
小弟有一事相求,如下图,请大神看看能否帮忙解决:
Capture.JPG
Book1.rar (7.34 KB, 下载次数: 9)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-10-18 10:12 | 显示全部楼层
  1. Private Sub Workbook_Open()
  2. Call aa
  3. End Sub
  4. Sub aa()
  5. Application.OnTime TimeValue("10:30:00"), "fuzhi1"
  6. End Sub
  7. Sub bb()
  8. Application.OnTime TimeValue("10:30:15"), "fuzhi2"
  9. End Sub
  10. Sub cc()
  11. Application.OnTime TimeValue("10:30:30"), "fuzhi3"
  12. End Sub
  13. Sub fuzhi1()
  14. [g3:k14].Insert Shift:=xlToRight
  15. [b3:e14].Copy [g3]
  16. Call bb
  17. End Sub
  18. Sub fuzhi2()
  19. [g3:k14].Insert Shift:=xlToRight
  20. [b3:e14].Copy [g3]
  21. Call cc
  22. End Sub
  23. Sub fuzhi3()
  24. [g3:k14].Insert Shift:=xlToRight
  25. [b3:e14].Copy [g3]
  26. Call aa
  27. End Sub
复制代码
回复

使用道具 举报

发表于 2014-10-18 10:15 | 显示全部楼层    本楼为最佳答案   
打开工作簿,代码在10:30分每隔15秒运行一次,测试结束后
楼主把时间修改为自己设定的时间

Book1.zip

10.03 KB, 下载次数: 21

回复

使用道具 举报

发表于 2014-10-18 11:33 | 显示全部楼层
咱也来思考下…………
回复

使用道具 举报

 楼主| 发表于 2014-10-18 11:38 | 显示全部楼层
dsmch 发表于 2014-10-18 10:15
打开工作簿,代码在10:30分每隔15秒运行一次,测试结束后
楼主把时间修改为自己设定的时间

谢谢大神,但是当Excel最小化的时候程序不会运行,能否做到Excel最小化时也能运行,谢谢!!!

点评

经测试,最小化也可运行  发表于 2014-10-18 13:39
回复

使用道具 举报

 楼主| 发表于 2014-10-18 11:46 | 显示全部楼层
Banieliang 发表于 2014-10-18 11:38
谢谢大神,但是当Excel最小化的时候程序不会运行,能否做到Excel最小化时也能运行,谢谢!!!

而且只是Open workbook第一次会运行以后就不会运行了!!!求助!!

点评

代码会在指定时间运行,只有等待第二天相同时间了  发表于 2014-10-18 13:40
回复

使用道具 举报

 楼主| 发表于 2014-10-18 18:32 | 显示全部楼层
Banieliang 发表于 2014-10-18 11:46
而且只是Open workbook第一次会运行以后就不会运行了!!!求助!!

谢谢解析!!!
回复

使用道具 举报

 楼主| 发表于 2014-10-30 20:06 | 显示全部楼层
dsmch 发表于 2014-10-18 10:15
打开工作簿,代码在10:30分每隔15秒运行一次,测试结束后
楼主把时间修改为自己设定的时间

发现连续运行时,同一时间点运行多次(6次),怎么办啊?

点评

一头雾水  发表于 2014-10-30 20:43
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 23:47 , Processed in 0.511289 second(s), 16 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表