传递参数到OnTime方法和OnAction属性所调用的宏程序中

在VBA帮助系统的OnTime方法介绍中，只对其参数EarliestTime, Procedure, LatestTime, Schedule进行了说明，并列举了定时运行某过程和撤销OnTime设置的三个代码示例。对OnAction属性的介绍中，也只简要介绍了单击某图形或菜单项时运行指定宏的示例。均没有介绍当OnTime方法或OnAction属性中设置的所要运行的宏带有参数时，如何传递参数到这些宏程序中。下面是自已前阶段所学到的一些参数的传递方法，供分享。即：

传递参数到OnTime方法和OnAction属性所调用的宏程序中
因为运用Application.OnTime或Object.OnAction调用宏程序的语法基本相似，因此，下面介绍的OnTime方法所使用的语法同样适用于OnAction属性。
为了便于理解，以下介绍均使用一段相似的代码，只不过传递给所调用宏程序MyProcedure的参数不同而已，以此来讲解传递给宏程序不同参数的方法。例如，下面的代码将使MyProcedure宏程序在从现在起的2秒后运行：
Application.OnTime Now + TimeValue("00:00:02"), "MyProcedure"
问题1：假设MyProcedure宏程序接受参数，如何传递参数到该宏程序中？有下面几种情形：
(1)所调用的宏程序接受一个参数
如果是在正常代码过程中传递参数给宏程序，可以使用" MyProcedure (42)"，其中“42”为传递给MyProcedure程序的参数。但如果这样的传递参数方法用在OnTime方法中，该程序将不会运行。
正确的语法是外层为双引号，内层再加上一组单引号，里面是程序名和程序所接受的参数。如下所示：
’MyProcedure宏程序接受一个数值参数
Application.OnTime Now + TimeValue("00:00:02"), "’ MyProcedure 42’"
(2)所调用的宏程序接受多个参数
如果所调用的宏程序接受几个参数，那么在这些参数之间应该用逗号分隔。如下所示：
’MyProcedure宏程序接受两个数值参数
Application.OnTime Now + TimeValue("00:00:02"), "’MyProcedure 42, 13’"
(3)所调用的宏程序接受字符串参数
如果所调用的宏程序所接受的参数是字符串，因为字符串已经带有一对双引号，因此应该将字符串包含在双层双引号中，即字符串参数周围有两对双引号。如下所示：
’MyProcedure宏程序接受一个字符串Hello!作为其参数
Application.OnTime Now + TimeValue("00:00:02"), "’MyProcedure ""Hello!""’"
问题2：当MyProcedure宏程序所接受的参数是变量，如何传递参数到该宏程序中？  
(1)该变量为局部变量，用如下所示的方式。
’MyProcedure宏程序接受一个字符串变量strText参数，该变量为局部变量
strText = "Hello!"
Application.OnTime Now + TimeValue("00:00:02"), "’MyProcedure """ & strText & """’"
(2)该变量为全局变量，用如下所示的方式，即不必加双层双引号。
’MyProcedure宏程序接受一个字符串变量g_strText参数，该变量必须声明为公有的
g_strText = "Hello!"
Application.OnTime Now + TimeValue("00:00:02"), "’MyProcedure g_strText’"
注意，在这种情况下变量必须声明为公共变量，否则MyProcedure宏程序将不能找到该变量参数。

转载请注明:本文来自:Excel吧 (www.excelba.com) 详细出处参考：http://www.excelba.com/Art/Html/158.html