精华内容
下载资源
问答
  • vba Application.OnTime 定时器

    千次阅读 2013-02-02 09:33:00
    最近做了一个vba的小项目,用到了 Application.OnTime 定时器。Application.OnTime 常用于 vba excel 定时执行,页面刷新等方面,但关闭时excel时会遇到一些问题,比如不注销,定时器,excel 无法关闭。注销时报错等...

         最近做了一个vba的小项目,用到了 Application.OnTime 定时器。Application.OnTime 常用于 vba excel  定时执行,页面刷新等方面,但关闭时excel时会遇到一些问题,比如不注销,定时器,excel 无法关闭。注销时报错等问题。

       1.使用  

             

        
    RunWhen = Now + TimeValue("00:00:01")
       Application.OnTime RunWhen,
    "ThisWorkbook.MyMacro", , schedule:=True ' Application.OnTime 执行时间,"执行函数", 执行结束时间, 是否有效
    ' 使用和注销 执行时间必须用一个公共变量,让定时器注册 和注销保持一个时间,否则 将会报错,而无法关闭excel


        2.注销

            

    Application.OnTime RunWhen, "ThisWorkbook.MyMacro", , schedule:=False

     

    转载于:https://www.cnblogs.com/jiangqiang/archive/2013/02/02/2889770.html

    展开全文
  • 哈喽,大家好,上次我们利用了OnTime方法实现了数码管时钟的设计,感觉它还是蛮神奇的,不是吗?呵呵,当时我在视频里就说过,我准备利用这个方法继续推出有关倒计时的作品。鉴于对OnTime方法的痴迷,我设计了本期的...

    哈喽,大家好,上次我们利用了OnTime方法实现了数码管时钟的设计,感觉它还是蛮神奇的,不是吗?呵呵,当时我在视频里就说过,我准备利用这个方法继续推出有关倒计时的作品。鉴于对OnTime方法的痴迷,我设计了本期的倒计时作品,希望能够给予各位粉丝技术上的帮助,同时也是为了抛砖引玉哦,更感谢大家的厚爱哦!

    好了,不废话了,我们还是以干货的形式给大家分享吧!

    一、倒计时前端界面设计

    倒计时黑屏幕、两个表单按钮。如下图所示

    14fa61a78e59c83a0bf820fdc107b8bc.png

    图1 倒计时界面

    二、倒计时后台窗体界面

    插入6个组合框选择列表控件和2个命令按钮。如下图所示

    3ec83cb987a596b4ec0ee63b5b68f109.png

    图2 后端窗体界面

    三、倒计时功能代码实现

    1、模块1代码:

    Public TimeOn As Double '公有全局变量TimeOn为当前的瞬时时间,便于回传数据

    Public flag As Boolean '公有全局变量flag为是否卸载关闭窗体的标志,便于回传数据

    Public da_str, yr '公有全局变量da_str、yr分别为取得的日期串、取得的年号,便于回传数据

    Sub main()

    On Error Resume Next

    Application.OnTime TimeOn, "开始倒计时

    展开全文
  • 哈喽,大家好,上次我们利用了OnTime方法实现了数码管时钟的设计,感觉它还是蛮神奇的,不是吗?呵呵,当时我在视频里就说过,我准备利用这个方法继续推出有关倒计时的作品。为什么我们要设计倒计时器呢?倒计时器已...

    哈喽,大家好,上次我们利用了OnTime方法实现了数码管时钟的设计,感觉它还是蛮神奇的,不是吗?呵呵,当时我在视频里就说过,我准备利用这个方法继续推出有关倒计时的作品。

    为什么我们要设计倒计时器呢?倒计时器已成为人们日常生活中必不可少的物品,广泛用于个人家庭以及车站、码头、剧院、办公室等公共场所,给人们的生活、学习、工作、娱乐带来极大的方便。随着技术的发展,人们已不再满足于钟表原先简单的报时功能,希望出现一些新的功能,诸如日历的显示、闹钟的非接触式止闹、跑表功能、重要日期倒计时显示等,以带来更大的方便,而所有这些,又都是以数字化的倒计时器为基础的,而作为办公室Office办公工作人员,做的事情也很杂,很有可能领导会将单位某个活动、节日等事宜的时间提示让你用倒计时的方式通过电脑呈现在LED屏幕供单位上下都天天能够看到。但是,作为Office办公工作人员一般都不是很懂用单片机技术去设计,鉴于如此情况,是否我们就没法做到设计倒计时器呢?答案是否定的,我们同样可以利用Office高级应用技术在Office组件,比如在Excel、PowerPoint等里边实现设计倒计时器。因此,研究实用倒计时器及其扩展应用,有着非常现实的意义,具有很大的实用价值。

    鉴于对OnTime方法的痴迷,我们以模拟世界杯倒计时为题设计了本期的倒计时作品,希望能够给予各位粉丝技术上的帮助,同时也是为了抛砖引玉哦,更感谢大家的厚爱哦!

    好了,不废话了,我们还是以干货的形式给大家分享吧!

    一、倒计时前端界面设计

    倒计时黑屏幕、四个表单按钮。如下图所示

    0fbddf24dc274dbad3f2dab4e3ae40a6.png

    图1 倒计时界面

    二、倒计时后台窗体界面

    插入6个组合框选择列表控件和2个命令按钮。如下图所示

    924155750a435d7be50a6a966f064f63.png

    图2 后端窗体界面

    三、倒计时器功能代码实现及前端界面四个表单按钮控件运行宏指定

    (一)计时器功能代码实现

    1、模块1代码:

    Public TimeOn As Double '公有全局变量TimeOn为当前的瞬时时间,便于回传数据

    Public Uload_Form_Flag As Boolean '公有全局变量Uload_Form_Flag为是否卸载关闭窗体的标志,便于回传数据

    Public da_str, yr '公有全局变量da_str、yr分别为取得的日期串、取得的年号,便于回传数据

    Sub Main() '“倒计时器”开启的引导主程序

    Call 复位倒计时

    SelectDate_Time_Form.Show

    If Uload_Form_Flag = False Then '凡是经过窗体点击了确定后,都强制性将Uload_Form_Flag置为False造 _

    成假象窗体未关闭

    Call 开始倒计时

    Else

    da_str = "" '一旦取消了倒计时操作后,立即清空日期串变量da_str的值

    MsgBox "您取消了实施倒计时器工作的操作!

    展开全文
  • 哈喽,大家好,上次我们利用了OnTime方法实现了数码管时钟的设计,感觉它还是蛮神奇的,不是吗?呵呵,当时我在视频里就说过,我准备利用这个方法继续推出有关倒计时的作品。为什么我们要设计倒计时器呢?倒计时器已...

    哈喽,大家好,上次我们利用了OnTime方法实现了数码管时钟的设计,感觉它还是蛮神奇的,不是吗?呵呵,当时我在视频里就说过,我准备利用这个方法继续推出有关倒计时的作品。

    为什么我们要设计倒计时器呢?倒计时器已成为人们日常生活中必不可少的物品,广泛用于个人家庭以及车站、码头、剧院、办公室等公共场所,给人们的生活、学习、工作、娱乐带来极大的方便。随着技术的发展,人们已不再满足于钟表原先简单的报时功能,希望出现一些新的功能,诸如日历的显示、闹钟的非接触式止闹、跑表功能、重要日期倒计时显示等,以带来更大的方便,而所有这些,又都是以数字化的倒计时器为基础的,而作为办公室Office办公工作人员,做的事情也很杂,很有可能领导会将单位某个活动、节日等事宜的时间提示让你用倒计时的方式通过电脑呈现在LED屏幕供单位上下都天天能够看到。但是,作为Office办公工作人员一般都不是很懂用单片机技术去设计,鉴于如此情况,是否我们就没法做到设计倒计时器呢?答案是否定的,我们同样可以利用Office高级应用技术在Office组件,比如在Excel、PowerPoint等里边实现设计倒计时器。因此,研究实用倒计时器及其扩展应用,有着非常现实的意义,具有很大的实用价值。

    鉴于对OnTime方法的痴迷,我们以模拟世界杯倒计时为题设计了本期的倒计时作品,希望能够给予各位粉丝技术上的帮助,同时也是为了抛砖引玉哦,更感谢大家的厚爱哦!

    好了,不废话了,我们还是以干货的形式给大家分享吧!

    一、倒计时前端界面设计

    倒计时黑屏幕、四个表单按钮。如下图所示

    fe9bcd6f-7a13-eb11-8da9-e4434bdf6706.png

    图1 倒计时界面

    二、倒计时后台窗体界面

    插入6个组合框选择列表控件和2个命令按钮。如下图所示

    009ccd6f-7a13-eb11-8da9-e4434bdf6706.png

    图2 后端窗体界面

    三、倒计时器功能代码实现及前端界面四个表单按钮控件运行宏指定

    (一)计时器功能代码实现

    1、模块1代码:

    Public TimeOn As Double '公有全局变量TimeOn为当前的瞬时时间,便于回传数据

    Public Uload_Form_Flag As Boolean '公有全局变量Uload_Form_Flag为是否卸载关闭窗体的标志,便于回传数据

    Public da_str, yr '公有全局变量da_str、yr分别为取得的日期串、取得的年号,便于回传数据

    Sub Main() '“倒计时器”开启的引导主程序

    Call 复位倒计时

    SelectDate_Time_Form.Show

    If Uload_Form_Flag = False Then '凡是经过窗体点击了确定后,都强制性将Uload_Form_Flag置为False造 _

    成假象窗体未关闭

    Call 开始倒计时

    Else

    da_str = "" '一旦取消了倒计时操作后,立即清空日期串变量da_str的值

    MsgBox "您取消了实施倒计时器工作的操作!

    展开全文
  • - Running in 32-bit Excel 2010 on Windows 10 Intel i3-2100 CPU @ 3.10GHz 4GB RAM computer - Exisiting code used with permission from owner Bartlomiej Dzik (2007-2009) - Planned to refactor his ...
  • 1Application.OnTime 使用时的局限性 Application.OnTime 局限性1 不再一个模块内的 过程/函数 不能被找到 局限性2 一个神奇BUG,如果 过程/函数名字带数字,直接双引号会报找不到宏,需要里面再加一层单引号 如...
  • VBA-Game-Snake:我在大约一个小时内编写的一个简短的Snake游戏,展示了.OnKey和.OnTime方法。 对于Skema学生,这是课程后6
  • 网上看到一个 Sub clock0() Range("a1").Value = Time() testcount0 End Sub Sub testcount0() Application.OnTime Now() + TimeValue("00:00:01"), procedure:="clock0" End Sub
  • Can't Get OnTime to work

    2020-12-08 23:37:29
    m doing wrong with OnTime: <p>app=EXCEL$Application app$OnTime(Sys.time(),"RalphWasHere",Sys.time()+10,TRUE) #sub doesn't fire app$Run("RalphWasHere") #works fine and runs ...
  • 使用VBA,你能执行Excel应用程序的OnTime方法指令Excel在给定的时间去运行某过程。通过编写代码使程序自已调用OnTime方法,能使VBA代码定期自动执行。本篇文章描述处理这种情况的VBA过程。介绍OnTime方法要求指定...
  • <div><p>When trying to run the examples from the xlwings website, I consistently encounter the error message: <code>Run-time error '5': Invalid procedure call or argument, which breaks at the ...
  • <p>MY PROBLEM: every time Rubberduck invokes StateChanged (ResolvedDeclarations) it takes about 3 minutes (150-200 seconds) to finish, during which time the VBA Editor remains locked (entirely ...
  • VBA 定时器

    千次阅读 2012-03-01 09:40:19
    http://www.cnhup.com/index.php/archives/vba-scheduling-events-with-ontime-and-windows-timers/ VBA程序运行中,你可能需要自动执行某些代码或者定时执行某些计划任务,如自动保存,这就要使用定时器来完成...
  • 关于VBA Application.OnTime用法 application.ontime |举报 |字号 订阅 Application.OnTime可实现定时执行vba程序。在vb.net中可定时执行windows程序。 下面介绍定时执行vba程序过程: 1.Application.OnTime参数 ...
  • VBAVBA定时运行程序

    千次阅读 2014-05-25 17:40:00
    Sub 定时运行程序() MsgBox "单击确定按钮,5s后运行 Main 函数... Application.OnTime Now + TimeValue("00:00:05"), "Main" '定时5s End Sub Sub Main() MsgBox "此时正在运行 Main", vbOKOnly, "定时运行程序
  • <a href="https://github.com/rubberduck-vba/Rubberduck/files/88714/Rubberduck.run.first.time.error.txt">Rubberduck run first time error.txt</a></p> <p>Is this normal when there is no VBA code when this...
  • VBA基础教程 ...Next语句Exit语句With语句调试程序Debug调试IDE调试错误处理事件触发工作簿的事件窗体事件OnTime事件窗体按钮控件文本框控件excel里面的窗体使用 VBA简介 VBA即Visual Basic For Appilication
  • 28、On...GoSub、On...GoTo 语句 29、Open 语句 30、Rem 语句 31、Stop 语句 32、Time 语句 33、While...Wend 语句 (二)逻辑语句 1、If...Then...Else 语句 2、使用 Select Case 语句 3、使用 For...Next 语句 4、...
  • Excel VBA文件保存提醒.rar,Ontime事件指定一个过程在将来的特定时间运行,此处的特定时间既可以是具体指定的某个时间点,也可以是指定的一段时间之后,如本例“文件保存提醒”。
  • VBA定时执行某程序

    2019-09-24 03:26:51
    OnTime方法参阅应用于示例特性安排一个过程在将来的特定时间运行(既可以是具体指定的某个时间,也可以是指定的一段时间之后)。expression.OnTime(EarliestTime,Procedure,LatestTime,Schedule)expression必需。该...
  • Handle Error in VBA

    2011-09-13 20:02:20
    If you don't use an On Error statement, any run-time error of VBA that occurs is fatal; that is, an error message is displayed and execution
  • VBA经典入门教材锦集

    2012-04-26 16:04:19
    第十讲 工作表和工作薄事件 OnTime和OnKey事件 24 第十一讲 自定义函数 27 第十二讲 添加快捷菜单 30 第十三讲 添加菜单 32 第十四讲 窗体与控件和音乐播放器的制作 34 第十五讲 怎样才能不断的提高VBA水平 38 附录...
  • Setup changes VBA Settings

    2020-12-30 03:31:56
    <div><p>Hello, first off, many thanks for Rubberduck! I was waiting for something like this to come along for a long time now! <p>But there is a problem....rubberduck-vba/Rubberduck</p></div>
  • 32、Time 语句 33、While...Wend 语句 (二)逻辑语句 1、If...Then...Else 语句 2、使用 Select Case 语句 3、使用 For...Next 语句 4、For Each...Next 语句 5、 Do...Loop 语句 6、 With 语句 (三)过程 1、写 ...
  • was not found on the compile-time interface for type 'Workbook'. - (XLTest163a.xlsm) XLTest.Documenter, line 515 wbCheck.Queries ' Excel 2016</p><p>该提问来源于开源项目:rubberduck-...
  • Excel-VBA:定时器的用法

    千次阅读 2018-10-26 08:39:15
    VBA中没有定时器,但是可以使用 “Application.OnTime 时间,过程名”的方式来做一个定时器 Public TimerEnabled As Boolean Sub EnableTimer() '开始 TimerEnabled = True StartTimer End Sub Sub ...
  • was not found on the compile-time interface for type 'Control'. - (XLTest163a.xlsm) XLTest.BatchProcs, line 93 <p>ctl.Value = True <p>Similarly for Control>Accelerator, Label.Tag, ...
  • 小白:哎呀,我的电脑死机啦!!! 这时领到走过来问:你的数据准备好了吗?...实现该功能需了解2个知识点:①Application.OnTime方法 ②SaveCopyAs方法那么如何实现呢?下面就给大家一步步讲解...
  • vba 错误 自动化错误Much of our world today relies increasingly on automated solutions. The results often enrich our lives by enabling workers to spend less time on manual tasks and more time for ...

空空如也

空空如也

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

ontimevba