使用Excel VBA-使用Application.ontime同时运行不同的条件

使用Excel VBA-使用Application.ontime同时运行不同的条件,vba,excel,Vba,Excel,我想为一个浏览器运行一些条件,并对浏览器执行相同的操作。当我尝试Application.OnTime TimeToRun时,“Chrome”工作正常,但当我想同时为3个浏览器执行相同的操作时,它只接受最后的条件。 请找到下面的代码,让我知道如何同时运行所有3个条件 a = ThisWorkbook.Sheets("Sheet1").TextBox1.Value TimeToRun = Now + TimeValue(a) Application.OnTime TimeToRun, "Callfu

我想为一个浏览器运行一些条件,并对浏览器执行相同的操作。当我尝试
Application.OnTime TimeToRun时,“Chrome”
工作正常,但当我想同时为3个浏览器执行相同的操作时,它只接受最后的条件。 请找到下面的代码,让我知道如何同时运行所有3个条件

a = ThisWorkbook.Sheets("Sheet1").TextBox1.Value
TimeToRun = Now + TimeValue(a)
Application.OnTime TimeToRun, "Callfunction"
Application.OnTime TimeToRun, "Chrome"
Application.OnTime TimeToRun, "FF"`

您的项目中是否有全部三个子例程?如果是这样,在我看来,所有子系统都将运行,但第一个调用的子系统将是
FF
,接下来是
Chrome
,最后是
Callfunction
。耐心点(?)检查你的潜水艇(?)。。。等