使用Excel VBA Application.ontime函数和递归函数调用
Excel VBA是一种用于自动化Excel任务的编程语言。在Excel VBA中，可以使用Application.OnTime函数来安排在指定时间执行特定的VBA代码。递归函数是一种函数调用自身的技术。
Application.OnTime函数是Excel VBA中的一个强大工具，它允许我们在指定的时间点执行特定的VBA代码。通过使用该函数，我们可以创建定时任务，例如在每天的特定时间点自动执行某个VBA过程。该函数的语法如下：
Application.OnTime EarliestTime, Procedure, [LatestTime], [Schedule]
- EarliestTime：指定要执行VBA代码的最早时间。可以是具体的日期和时间，也可以是相对于当前时间的一段时间间隔。
- Procedure：指定要执行的VBA过程的名称。可以是一个宏、一个函数或一个子过程。
- LatestTime：可选参数，指定要执行VBA代码的最晚时间。如果在最晚时间之前没有打开Excel文件，则不会执行VBA代码。
- Schedule：可选参数，指定是否要将VBA代码安排为重复执行。可以是True或False。
递归函数是一种函数调用自身的技术。在Excel VBA中，我们可以使用递归函数来解决需要重复执行某个操作的问题。递归函数通常包含一个基本情况和一个递归情况。基本情况是递归函数停止调用自身的条件，而递归情况是递归函数调用自身的条件。
使用Excel VBA的Application.OnTime函数和递归函数调用可以实现一些有趣的功能，例如在指定的时间间隔内自动更新Excel数据、定时生成报告等。
腾讯云提供了一系列与Excel VBA相关的产品和服务，例如云服务器、云数据库、云函数等。您可以通过腾讯云官方网站了解更多关于这些产品的详细信息和使用方式。
腾讯云产品介绍链接：
- 云服务器：https://cloud.tencent.com/product/cvm
- 云数据库：https://cloud.tencent.com/product/cdb
- 云函数：https://cloud.tencent.com/product/scf
相关·内容
1回答
VBA:我如何真正阻止Application.onTime()？
vba、excel、timer、ontime
我已经读过一些关于如何停止VBA 过程的问题/线程(例如和)，但是我无法让它停止！
我每隔x秒就用它来提取一些数据。我知道，当我调用OnTime()方法时，我需要向它传递用于调度事件的相同时间值。
我还尝试引入多个命令(例如，试图导致错误)来停止执行，但仍然无法工作！程序一直在运行..。我的代码是这样的：
在工作表代码中，我有：
Public TimerActive As Boolean
Public tick As String
Public idx As Long
Public counter As Long
Public Sub UpdateOff_Click()
Timer
浏览 2提问于2013-11-15得票数 6
回答已采纳
3回答
自动关闭带有弹出消息的excel工作簿
vba、excel
我正在尝试创建一个宏，它可以在5分钟内自动关闭工作簿，并在4分30秒时弹出提醒消息。如果用户没有点击确定按钮，我希望消息框在10秒内自动关闭。我被困在消息框不能在10秒内关闭的点。我的大部分代码都是从互联网上复制过来的。下面是我的代码：
在工作簿页面中：
Private Sub workbook_open()
Call settimer
End Sub
Private Sub workbook_beforeclose(cancel As Boolean)
Call stoptimer
End Sub
Private Sub workbook_sheetcalculate(B
浏览 0提问于2016-05-18得票数 0
1回答
对象“应用程序”的“ONTIME”方法Application.Ontime取消失败
excel、vba、events、runtime-error、schedule
我是完全失去了，所以任何帮助都会非常感谢。
我试图取消在打开工作簿时触发并使用Application.Ontime方法重复执行的2个预定事件。
我知道要终止OnTime调度循环，您必须提供计划运行的确切时间，而拥有多个Application.OnTime任务需要多个变量。这就是为什么我设置了两个公共变量(选项下面的文档标题显式)：
Dim dTime as Date
Dim dTime2 as Date
调度程序使用这些变量，并且在代码每分钟运行时一切都正常工作。
dTime的值在TaskTracker函数中设置为：
dTime = Now() + TimeValue("00:01:0
浏览 1提问于2016-02-10得票数 0
回答已采纳
1回答
如何在不停止宏运行的情况下将工作簿保存在VBA中？
vba、excel
我的VBA代码在经过一段时间后使用application.ontime调用此方法，
Sub run()
Worksheets("Sheet1").Calculate
Cells(2, 5).Value = Cells(2, 5).Value + 1
ActiveWorkbook.Save
End Sub
但是，在ActiveWorkbook.Save行之后，宏就会停止运行。如何在保存工作簿后继续运行宏，或者在保存时调用宏？我正在使用excel 2013 btw
下面是我调用run的宏：
Sub every30seconds()
runTime = Now + T
浏览 31提问于2016-07-25得票数 0
回答已采纳
2回答
如何阻止Application.OnTime自身重叠？
excel、vba
我正在编写一个VBA代码，它会在该离开办公室时通知我。
它从工作簿工作表中获得时间提示，但值会随着我更新到达工作的时间、午餐的时间等而发生变化。
我创建了一个当一些单元格改变时触发的代码，问题是这些单元格在到达我应该离开的实际时间之前会多次改变。因此，我不是收到一个通知，而是收到多个通知。
基本上，相同的宏会多次运行。当我改变一个单元格时，它实际上应该停止这个宏，如果它正在运行，并重新启动我的宏。
我在谷歌上搜索过了，什么都没有用。
Sub NotifyMe()
'Declare Variables
Dim notificationStr, leaveStr As String
浏览 0提问于2017-01-08得票数 2
回答已采纳
3回答
无法获得暂停按钮以正确恢复时间- Excel
excel、vba、button、timer、pause
我正在Excel中编写秒表计时器，我正在尝试添加一个暂停按钮来停止计时器，在第二次单击时也会继续。我让它几乎工作，但当它恢复时，它不继续秒表在同一时间，而是包括所有经过的时间。我的工作方式是，当您单击“暂停”按钮时，它会将“暂停”的值添加到单元格中，并将应用程序设置为"False“。如果单击了按钮，并且单元格已经说“暂停”，它将清空单元格值，并调用StartTimer子并再次启动计时器。
问题的例子:如果我在1分和3秒按下按钮，等待3分钟并继续计时器，它将在4分和3秒开始计数。
目标示例:如果我在1分和3秒按下按钮，等待3分钟并恢复计时器，它应该在1分和4秒开始计数。。
下面是我一直在
浏览 4提问于2017-06-21得票数 0
1回答
excel vba Application.OnTime
vba、excel、timer
上周，我问了一个关于这个问题的问题，，我按要求发布了我的代码，但没有回答。总之，我有一些更具体的问题。
当重置计时器时，过程参数的目的是什么？用Schedule:=False回电话是没有道理的。例如，如果回调函数不再在作用域内，会发生什么？计时器还能正确复位吗？这就是为什么我看到的大多数例子(包括Chip -不幸的是，由于某些原因，我不允许包含链接)使用On Error Resume Next进行On Error Resume Next调用，很抱歉再次问了一遍，但为什么要这样做呢？
我的理解是，计时器是由EarliestTime参数注册的，这是唯一标识它的定时器的“序列号”。
程序参数是否也包
浏览 0提问于2013-11-20得票数 0
1回答
只在一个工作表上运行excel宏
vba、excel
你好，我刚开始编写VBA代码，需要帮助。只要我在活动表上，我的VBA代码和宏就能正常工作。
我的问题:当我打开一个新的excel工作簿时，当我从活动工作表切换到另一个工作表时，当我打开一个新的工作簿时，我的VBA代码和宏停止自动运行。
需要解决方案：只在所需的工作表上运行代码和宏，并防止它在其他工作表和工作簿上运行。
背景：I有一个excel文件，名为“净重”，有两张纸。第1页命名为：“权重”，第2页:命名为“基本数据”。表1用作用户输入表单。
在表1-单元格B1 :用户将输入产品代码，在单元格E1中，查找公式将使用表2中的数据放置产品代码的描述。
我已经设置了一个VBA代码和宏，它执行以下操
浏览 10提问于2017-02-07得票数 2
1回答
如何每天改变单元格值
excel、vba
我试图每天上午9点将工作表1 Col A上的单元格值从“是”更改为“否”，而不需要手动打开工作簿。例如，如果第1页Col A的单元格值为“是”，则需要在明天上午9点显示“否”。但是，我不能让它在特定的时间自动改变。有人能帮忙吗？请参阅下面的例子和我的代码。提前谢谢。
今天下午1点
A B
no 1
no 2
yes 3
no 4
yes 5
yes 6
yes 7
明天上午9时01分
A B
no 1
no 2
no 3
no 4
no 5
no 6
no 7
Option Explicit
Public rTime As Date
Sub time()
rTim
浏览 3提问于2016-02-18得票数 0
2回答
自动关闭带有警告弹出窗口的Excel工作簿
vba、excel、auto-close
我遇到了多个用户需要访问一个工作簿的情况(由于所有问题，我希望避免使用“共享工作簿”选项)。我已经确定，一个可能的解决方案是让工作簿在15分钟不活动后自动关闭。
我还希望在15分钟后弹出一条消息，提醒用户，除非他们单击“确定”按钮，否则工作簿将关闭。如果他们点击按钮，我希望计数器重新开始，理想情况下，如果他们没有点击任何东西，工作簿将在1分钟后自动关闭。
我在网上找到了一些我用过的代码。工作簿在指定时间后成功关闭，但我不知道如何弹出消息框。非常感谢您的帮助，谢谢！
我使用的代码如下：
在模块1中：
Dim DownTime As Date
Sub SetTimer()
DownTim
浏览 5提问于2017-01-09得票数 0
1回答
VBA运行时1004错误
vba、excel
我在VBA中遇到了运行时1004错误。我做了一个时间注册工具，用来测量特定动作所需的时间。奇怪的是，代码10次中有9次都能完美地工作。10次中只有1次生成此运行时错误。我看不出是什么导致了这个问题！我没有做任何不同的事情，但是它偶尔会产生这个错误……
我在谷歌上搜索了这个运行时错误，并结合Application.Ontime函数进行了搜索，但我认为它的定义方式应该是正确的？下面是代码，我在网上的其他地方找到的。有一个带有命令按钮的工作表(每个命令按钮对应一个特定的活动)，一旦按下，就会调用StartTimer过程(在单独的模块中)，再按一次，就会调用StopTimer过程(在单独的模块中)。错
浏览 3提问于2016-05-18得票数 1
3回答
如何在非活动状态下保存和关闭工作簿，除非用户窗体已打开？
vba、excel、userform
这是我第一次在这个网站上发帖，希望能得到一些帮助。我是mrexcel论坛的一员，在那里得到了很多很棒的人的帮助，但一直没有找到我的问题的答案。在工作中，我创建了一个工作簿，允许我们通过用户表单将数据输入到不同的工作表中。我试图让它尽可能的用户友好，试图尽可能多地消除“用户错误”。我试图避免的一个问题是，用户在轮班结束时忘记关闭工作表，并在其他用户打开文件时锁定所有人，因为工作簿是只读的。因此，我有一段代码，它将在40分钟不活动后保存并关闭工作簿。这导致的一个问题(这是一个非常小的问题，但我的一个员工向我提出了一个问题)是，每隔一段时间，巧合的是，用户将在这40分钟的非活动时间内将数据输入到用户
浏览 2提问于2017-03-24得票数 1
1回答
递归函数中的基本情况和递归情况
algorithm、sorting
我是递归的新手，我想知道下面的代码是否可以被称为递归函数，尽管该函数本身并不确定它是否满足具有基和递归情况的条件。
下面的函数根据行程的起始点对机票进行排序(假定行程有多个转换，并且机票被打乱，如ABC-> EFG，XYZ-> MNO，EFG -> KLM，KLM->XYZ)。
public List<Ticket> sortTickets(List<Ticket> shuffled, String source, int n) {
if (sortedList.size() != shuffled.size()) {
浏览 0提问于2014-05-25得票数 1
4回答
在VBA中取消Application.OnTime的位置
vba、excel
使用Excel2003中的VBA，我正在尝试使用以下代码取消一个Application.OnTime事件：
Application.OnTime EarliestTime:=varNextRunTime, Procedure:="SomeMethod", Schedule:=False
其中，varNextRunTime是包含下次运行时间的全局变量。此代码在Workbook_BeforeClose事件处理程序中运行，因此总是在工作簿关闭时运行，这正是我的意图。
但是，如果用户尝试关闭工作簿，但在提示保存(是、否、取消)时改变主意并单击cancel按钮，则Application.
浏览 0提问于2009-07-25得票数 0
3回答
腾讯云直播接口问题？
云直播
腾讯云直播的启用，停止，录制等接口总是不稳定，基本上不可用，我们在工单，群里，论坛里多次反应都没有得到有效的解决，月底我们项目就要上线了，实在是不放心啊，特别是直播录制的问题，录不了影响很大啊，能不能帮我们协调一下技术，看看问题到底出在哪，是我们用的不对，还是什么其他的问题，作为腾讯的收费的服务，总得不到有效的处理办法我们感到非常失望，实在不行我们只有投诉了。方法都是按你们接口文档调用的，有时候能成功，多半时候出错，各种内部错误（非鉴权错误），总是简单回复说是时间参数不对，又不给出一个详细说明，怎么不对了，应该怎样传，时间格式有什么要求，这个很难吗？我们要求的不多，只想要接口稳定点。麻烦腾讯云
浏览 1071提问于2016-05-21
1回答
Excel VBA Application.OnTime -两个Subs更简洁的代码
excel、vba、scheduling
我正在尝试使用应用程序OnTime在Excel VBA中安排两个单独的subs运行。我已经设法使用下面的代码让它工作- AA每2秒运行一次，BB每5秒运行一次。虽然它的工作，它感觉有点笨拙，我有6个不同的潜艇。有谁能建议让它更简洁的方法吗？
谢谢。
Dim TimeToRun
Dim TimeToRunBB
Sub Start()
Call Schedule
Call ScheduleBB
End Sub
Sub Schedule()
TimeToRun = Now + TimeValue("00:00:02")
Application.On
浏览 0提问于2018-11-30得票数 1
5回答
在vba函数中绕过最大字符串大小？
ontime、excel、vba
在vba函数的字符串中可以使用的最大字符数是255。我正在尝试运行此函数
Var1= 1
Var2= 2
.
.
.
Var256 =256
RunMacros= "'Tims_pet_Robot """ & Var1 & """ , """ & Var2 & """ , """ ... """ & Var256 """ '"
Runat=TimeVa
浏览 8提问于2010-03-25得票数 17
回答已采纳
3回答
如何在用户窗体中显示实时时钟？
vba、excel
因此，我需要在窗体上显示实时时钟，但我不确定如何显示。我只知道代码：
TimeValue(Now)
将为我提供当前时间，但我不确定如何在我的窗体上继续显示该时间。
我有一个想法，就是把这段代码放在一个循环中，如下所示：
Dim bool As Boolean
bool = True
Do While bool = True
Label1.Caption = TimeValue(Now)
Loop
然而，我不确定将此代码放在哪里。如有任何建议，我们将不胜感激！
浏览 0提问于2012-11-19得票数 3
回答已采纳
1回答
我有一个与这个帖子非常相似的问题： -尝试添加一个评论，而不是发布一个新的帖子，但没有50的声誉，所以我在这里
我在Excel表格中的单元格B7中有一个倒计时的计时器，我有启动和停止计时器的按钮，它们工作得很好。当计时器到达零时，我希望单元格B8中的值(当前设置为1)递增1，并且我希望它在每次计时器重置时执行此操作，并随后返回到零。
下面的代码是我为计时器本身准备的代码，并没有尝试在B8中递增该值：
Public interval As Date
Sub timer()
interval = Now + TimeValue("00:00:01")
If
浏览 5提问于2020-09-20得票数 0
3回答
使用VBA在Excel中建立计数式定时器的问题
excel、vba、countdown
我试图使用VBA构建一个倒计时器，结果可以动态地输出到Excel单元格中。我让过程abc和def递归地相互调用(没有为测试设置一个停止点)，而且它起了作用。但是，稍后使用完全相同的代码再次运行，它失败了，错误消息是：
代码执行已被中断。
只是不知道为什么，我什么都没改变，怎么能工作然后失败呢？
我尝试了On Error Resume Next和Application.DisplayAlert = False，它们都不停止出现错误消息和中断代码执行。如果我能通过这些程序，那就好了.
另外，我希望在另一个单元格中添加一个动态文本，比如“从多少秒开始”。它能这样实现吗？
谢谢!
Sub ab
浏览 0提问于2019-03-20得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
