vba中OnAction属性指定宏名时如何传递参数?

在vba中可以设置图形对象,菜单命令按钮的OnAction属性为指定的过程名,当单击图形对象或者菜单命令按钮时运行具体的代码。

如下所示的代码将在单元格鼠标右键快捷菜单中新建一个名为“计算两数之和”的命令按钮,通过设置它的onAction属性,单击后可以运行名为“test”的sub过程。

Sub QQ1722187970()
    '在单元格鼠标右键快捷菜单中新建一个名为“计算两数之和”的命令按钮
    With Application.CommandBars("Cell").Controls.Add(before:=1)
    .Caption = "计算两数之和"
    .OnAction = "test"
    End With
End Sub
Sub test()
    MsgBox 1 + 2
End Sub

(1)所调用的过程只接受一个参数时
如果是在正常代码过程中传递参数给sub过程,可以使用” test (42),其中“42”为传递给test程序的参数。但如果这样的传递参数方法用在onAction方法中,该程序将不会运行。
正确的语法是外层为双引号,内层再加上一组单引号,里面是程序名和程序所接受的参数。如下所示:
.OnAction = “’ test 42’”

(2)所调用的sub过程接受多个参数时
如果所调用的sub过程接受多个参数,那么在这些参数之间应该用逗号分隔。如下所示:
.OnAction = “’test 42, 13’”
(3)    所调用的sub过程接受字符串参数时
如果所调用的sub过程所接受的参数是字符串,因为字符串已经带有一对双引号,因此应该将字符串包含在双层双引号中,即字符串参数周围有两对双引号。如下所示:
.OnAction = “’test “”abc””’”

       

发表评论