精华内容
下载资源
问答
  • 问题需求来自公号粉丝,有1000多条数据,如下图,需要按照客户名称拆分成单独的工作簿(workbook),代码别人已经写好了,但是一运行发现,需要运行时间太长了(足足有6分来钟)。Ta咨询我能否有方法可以提高效率...

    问题需求

    来自公号粉丝,有1000多条数据,如下图,需要按照客户名称拆分成单独的工作簿(workbook),代码别人已经写好了,但是一运行发现,需要运行的时间太长了(足足有6分来钟)。Ta咨询我能否有方法可以提高效率?

    533efd1df98c4c93daa9c042753308c3.png

    解决办法

    大致看了下源代码,几十行,如下图,瞬间就感觉这个case有点大,一行行看、改代码可能会比较费时。

    b73bc9945aa3386a12a4beda845f2f4b.png

    当然,通过优化算法,肯定会有方法修改其中的代码,提升运算效率。但是这个过程会比较枯燥、费时。

    其实完全可以试试加入下面的这两条代码:

    Application.ScreenUpdating = False(程序开始)
    Application.ScreenUpdating = True(程序结束)
    

    这两条代码用处是不显示代码的运行过程,只显示最终的结果。说的简单一些,就是只看结果,具体过程计算机后台处理即可。

    两行代码分别是用在程序开始和结束的时候,看看结果:

    以上面这个为例,永恒君缩减为100行,未加入代码的运行时间为:14.8s

    23054f13e47a8130e14222478f71c31a.png

    加入之后为:9.8s

    0a8bee0ce7c30437023ae3afdfb02a07.png

    缩短了约30%多的时间。

    实际上,这两行代码在任何一个vba程序中都可以使用,尤其是数据量比较大的时候,效果会更加的明显。

    你可能还会想看这些往期精彩:

    一款实用的图片查重工具

    三个有趣实用的工具,你一定会想试试!

    五款在线图片处理工具,告别图片荒,图片难

    闹图慌?百度谷歌图都用烂大街了?尝试一下这些无版权高质量图片网站吧!

    如何查看图片是否PS过?

    如何神不知鬼不觉地把图片藏到学习资料里

    教你用word一键自动去除图片背景

    实用技巧:教你如何分页多张A4纸打印长图片?

    展开全文
  • 将永恒君的百宝箱设为星标精品文章第一时间读不知道有多少人会对VBA的这个功能感兴趣?有时候,数据量比较大的时候,VBA程序会运行的比较长一些。如果有一个进度条可以即时的看到处理进度就比较好了。对,就是设计一...
    1445dad9450cdb71601c701edb660417.gif永恒君的百宝箱设为星标 精品文章第一时间读

    不知道有多少人会对VBA的这个功能感兴趣?

    有时候,数据量比较大的时候,VBA程序会运行的比较长一些。如果有一个进度条可以即时的看到处理进度就比较好了。

    对,就是设计一个VBA的进度条。

    演示如下:

    e9187c02f635bc831d328bf0ec88ea18.gif

    设计的要点如下:

    1、设计表单2、启动表单 userform.show3、UserForm_Activate()事件

    感兴趣的可以来交流!

    相关阅读:

    两句代码快速提高VBA运行效率

    Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据

    Excel vba 实例(21) - 如何快速准确录入数据

    Excel vba 实例(20) - 一键填充每月员工拜访地区


    你可能还会想看这些往期精彩:

    一款实用的图片查重工具

    三个有趣实用的工具,你一定会想试试!

    五款在线图片处理工具,告别图片荒,图片难

    闹图慌?百度谷歌图都用烂大街了?尝试一下这些无版权高质量图片网站吧!

    如何查看图片是否PS过?

    如何神不知鬼不觉地把图片藏到学习资料里

    教你用word一键自动去除图片背景

    实用技巧:教你如何分页多张A4纸打印长图片?

    欢迎加入我的知识星球,为您提供更多服务和资源!

    706ccc5da32a53a5bf80373c284d7323.png

    微信公众号:永恒君的百宝箱个人博客:www.yhjbox.com

    展开全文
  • 我们知道在写好的某一段程序也许在运行的时候,会出现错误的提示,导致不能正常执行我们的功能。那么你可知道,这些错误的原因是什么吗?这个错误有可能是我们的语法错误,也有可能是运行错误,具体错误需要具体进行...

    我们知道在写好的某一段程序也许在运行的时候,会出现错误的提示,导致不能正常执行我们的功能。那么你可知道,这些错误的原因是什么吗?这个错误有可能是我们的语法错误,也有可能是运行错误,具体错误需要具体进行分析。

    在正常情况下,我们程序一旦出现错误,那么会停止这个代码的执行工作,同时会弹出一个对话框,给我们提示错误的类型。这个错误的信息提示,本是不应该出现在我们写好的程序中,所以我们需要去学习如何避免这个,我们一起来看看吧!

    处理错误的方法我们有以下2种方法:

    1. 忽略错误,继续执行代码,On Error Resume Next。
    7c26e6e100ea1f5cc7bbe04d995780f4.png

    2、使用GOTO语句进行跳转。

    c4fe14e1b9fbf481d6b46eeef6e9a166.png

    以上2个方法是暂时解决程序的运行问题,但是没有从根本上解决问题。我们举一个栗子,如下:

    当我们的程序出现如下的错误提示的时候,报错如下图所示:

    5b91853e479b21d7b4746bd71e8ccb2e.png

    我们如果想知道程序在执行的时候的错误是什么,我们可以这么来写一下。

    1da70ab1c1db48cc45a1f5914ae01495.png

    如上就可以提示我们程序的错误的类型,然后就可以根据提示的对话框就行排查错误的类型。其实错误并不可怕,可怕的是我们去改善和解决错误。

    以上就是我们今天和大家说的处理错误的简单,如果有不明白的或者不懂的可以在下方留言,我们会一一解答的。

    a0347b68452ce05337c762e4f0bba7fd.png

    我是Excel教案,关注我持续分享更多的Excel技巧

    展开全文
  • vba中计算程序运行时间

    千次阅读 2013-05-03 11:00:00
    Dim a As Date Dim b As Date a = Time ...MsgBox b '''''''''''''''''''''''''''''''''''输出程序运行所要花费的时间 转载于:https://www.cnblogs.com/zigewb/archive/2013/05/03/3056243.html

    Dim a As Date
    Dim b As Date
    a = Time
    Application.ScreenUpdating = False   '''''''''''''''''''''''锁屏
    Call data.dataCheck
    Call data.storeFormation
    Call data.datas
    Call data.states
    Application.ScreenUpdating = True
    b = Time - a
    MsgBox b                           '''''''''''''''''''''''''''''''''''输出程序运行所要花费的时间

    转载于:https://www.cnblogs.com/zigewb/archive/2013/05/03/3056243.html

    展开全文
  • 代码: waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3) Application.Wait waitTime 来自excelhome网友Zamyi
  • VBA自动运行

    2012-04-05 01:53:09
    有点像VC的自动运行,sub的名称写作Auto_Open就行了。 但是有如下限制: 在任何其他工作簿打开之前...Open时间VBA程序将覆盖Auto_Open宏中的操作。 如果一个工作簿是以Open方法打开,则Auto_Open宏将被忽略。...
  • VBA实现同一个功能可能有多种不同的方法,但我们程序员心中都有一个写出一个最有效率的代码的追求,下面我们将讲解一些提高代码运行速度的实用技巧,它们可以大大的提高VBA代码的运行效率,节省程序运行时间,从而...
  • HI,大家好,我是星光,今天咱们来继续学习VBA。...如何编写和运行VBA代码?什么是VBA先来看第一个问题,什么是VBA?你学了一段时间VBA,有一天有个异性朋友问……“小胖,你最近在学什么呀?”“VBA!”“VB...
  • 运行有问题的VBA程序

    2020-11-28 11:02:35
    解释帖子《VBA程序运行一段时间,不能使用的问题》的附件。大家可以下载下来,逐点运行看是哪里出现了问题,谢谢,感谢大家。
  • VBA]计算宏运行所用时间

    千次阅读 2013-04-15 22:35:04
    Sub 计算宏运行所用时间()    Dim tt As Single  tt = Timer  '宏名字  MsgBox "ok,用时" & Timer - tt & "秒!"   End Sub
  • 在代码的优化的上一篇中我讲到了关闭屏幕更新可以有效的节约程序的运行时间,那么是不不是必须要关闭屏幕更新以得到更好的运行效率呢?根据我的经验不是这样的。在有的时候我们还是需要看到屏幕的更新而获得一种动态...
  • 你学了一段时间VBA,有一天有个异性朋友问……“小胖,你最近在学什么呀?”“VBA!”“VBA是什么呀?”“VBA就是……反正很厉害,它可以减少很多重复性的工作,可以很轻松就让Excel简易化自动化智能化,你听我说,...
  • VBA 如何计算一段代码运行需要的时间? [code="java"]Private Sub Form_Load() Dim sngStart As Single sngStart = Timer '循环代码 Debug.Print "耗费时间: " & Timer - ...
  • HI,大家好,我是星光,今天咱们来继续学习VBA。...如何编写和运行VBA代码?什么是VBA先来看第一个问题,什么是VBA?你学了一段时间VBA,有一天有个异性朋友问……“小胖,你最近在学什么呀?”“VBA!”“VB...
  • 适当节制自我的各种欲望,谁都逃不过时间的历练,谁都是命运的行者,谁都是在人生的道路上一步一趋,把生活与工作打理好,不负年华。欲成大事者,必先修其身。欲修其身者,先正其心。小成靠智,大成靠德。身不修则德...
  • 适当节制自我的各种欲望,谁都逃不过时间的历练,谁都是命运的行者,谁都是在人生的道路上一步一趋,把生活与工作打理好,不负年华。欲成大事者,必先修其身。欲修其身者,先正其心。小成靠智,大成靠德。身不修则德...
  • 题记:春节期间,情况特殊,希望大家尽可能待在家里,静...今日内容是和大家分享VBA编程中常用的 “积木”过程代码,这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。今日分享的是NO.203-NO.203,内容是...
  • 题记:春节期间,情况特殊,希望大家尽可能待在家里,静...今日内容是和大家分享VBA编程中常用的 “积木”过程代码,这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。今日分享的是NO.202-NO.202,内容是...
  • 大家好,我们今日继续讲解VBA代码解决方案的第81讲内容:如何暂停代码的运行。到这讲VBA代码共讲了九九八十一讲了,这期间有很多的问题或许来不及给大家解答,还望大家能原谅,我写VBA代码主要是和大家分享我多年来...
  • 请教各位高手,这样的VBA代码该如何优化能大幅度提升速度呢?附件是VBA代码,望指点! Sub AP60First() Const CON_RECORD_COUNT As Long = 5000000 Dim filePath As String filePath = "C:\data set.txt...
  • 下面介绍定时执行vba程序过程: 1.Application.OnTime参数 Application.OnTime(EarliestTime,Procedure as String,[LatestTime],[Schedule]) EarliestTime调用程序的时间 Procedure调用程序的程序名,类型String ...
  • VBA定时刷新(运行程序)

    千次阅读 2019-09-30 10:31:06
    Sub 实时刷新() Call 时间 End Sub Sub 时间() Dim newtime newtime = Now + TimeValue("00:10:00") 模块1.test Application.OnTime newtime, "时间" End Sub
  • 我在EXCEL中VBA连接oracle串...datasource=****"我电脑操作都正常,但为发给某些用户时,一直报错“运行出现3706错误”接着就进行了非常长时间的查找,baidu了一下,有很多朋友都遇到这个问题,有人说这样修改可以...
  • 大家好,《VBA代码解决方案》中,我贯彻了一种搭积木的编程思路,147讲就相当于147块积木,你有了这些积木,把每块放在...不是每个程序写完后都能马上会正常运行的,有的调试过程很快,有的会时间长些,有的甚至会...
  • 问题:今天发现VBA突然运行很慢很慢。 尝试:保存为不带宏的文件===》无效 修改代码提升效率===》低效率 关掉所有xlsm文件重启===> 无效 解决:C盘虚拟内存转移,by金山毒霸 效果:2000条的填充循环秒到飞起 .....
  • 在代码的优化的上一篇中我讲到了关闭屏幕更新可以有效的节约程序的运行时间,那么是不不是必须要关闭屏幕更新以得到更好的运行效率呢?根据我的经验不是这样的。在有的时候我们还是需要看到屏幕的更新而获得一种动态...
  • 如果你公司的邮件系统是Microsoft Exchange Server + Outlook,能在Outlook中执行VBA邮件规则,自动化处理邮件,可以节省大把的时间。自Outlook 2016开始,运作VBA邮件规则需要费一番周折了,跟博主来看看如何做吧。
  • 在长时间运算中使用友好提示_Excel VBA应用.rar,如果某段VBA代码需要较长的执行时间,为了不让使用者在不明就里的状态下等待程序运行,甚至认为Excel死机,VBA开发人员应该使用友好的提示,用户告知使用者当前的状况...
  • 学习Excel技术,关注微信公众号:excelperfect当运行中的代码长时间没有响应,或者代码陷入死循环时,可以按Ctrl+Break键中断代码的执行(注:有些笔记本电脑的键盘上没有Break键,可以按Esc键)。此时,VBA会弹出如下...
  • 一旦它们生成,我需要将它们复制到excel文件的不同表中,然后运行一些VBA宏来生成报告 . 由于这必须每天多次完成(没有预先定义/固定的时间表),我想自动化它 .以下是我尝试的内容:我编写了一个VBScript,它接收CSV...

空空如也

空空如也

1 2 3 4 5 ... 13
收藏数 249
精华内容 99
关键字:

vba运行时间