• 从今天开始学习Python了,昨天晚上我创作了我的第一个python程序.我将记录我的学习之路,将我学习的内容分享在这里,

  • 其实我做网站没有其他特别的意思,就是爱好,也不想写什么东西进去,但就是想留下,不想让网站丢掉,这是什么鬼,从现在开始我就记录一些技术上的东西,方便自己用了来取

  • 由于许多工作原因,没有更多的时间监控网站文件上传这块,网站现在停止论坛功能,给网友和会员带来不便敬请谅解!

  • 网站域名备案成功!

  • 直到现在网站所有数据恢复正常!

  • 网站域名已经更换成现在的,原来的yxlz8.com将停止使用!

  • 网站备案中.....

  • 本站入住阿里云服务器,催动于阿里云oss云储存,打开本站任何一个页面可以感觉到打开的速度!

  • 微信终于可以扫码登陆了点击这里体验

  • 最近有小伙伴说付费音乐无法下载,希望弄一个免费下载付费音乐的工具,经过这段时间的辛苦终于个大家见面了,可以输入歌曲名称或者地址即可在线播放或者下载!直达飞机票

Excel 设置打开自动运行代码

EXCEL 海峰博客 2个月前 (08-24) 153次浏览 已收录 0个评论 扫描二维码

由于一些情况导致,当你打开excel表的时候就需要运行你在excel里面写的vba代码。那就需要自动运行的代码来,看代码

Sub auto()
    '这楼里是设置了1秒的时间跳转到shijian的这个代码过程上去,也就是 sub shijian
    Application.OnTime Now() + TimeValue("00:00:01"), "shijian"
End Sub

Public Sub shijian()
    '这里就是执行的代码,当上面时间一到就执行这里的代码.这里执行的是时间的跳转
'    Sheets("sheet1").Range("a1") = Format(Now, "yyyy-MM-dd HH:mm:ss")
    Material.sj.Caption = Material.hyyj & "," & "当前的时间是" & Format(Now, "HH:mm:ss")
'代码执行到这里也就结束了,这里的意思就是继续执行上面的Sub auto过程,然后我们需要在执行上面的代码,有上面在跳转到这里,无限循环,就达成了自动的代码,
    Call auto
End Sub

最后别忘记了在打开的时候让表执行的代码,此代码需要写在This workbook里面

Private Sub Workbook_Open()
      Call auto
End Sub

利用这个代码可以在表格执行电子表,实时更新的,还有比如说规定的时间内自动保存等等!我收藏,你使用!点个赞吧


海峰博客 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:Excel 设置打开自动运行代码
喜欢 (0)
[]
分享 (0)

您必须 登录 才能发表评论!