vba传值调用_vba中OnAction属性指定宏名时如何传递参数？

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

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

Visual Basic

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

2

3

4

5

6

7

8

9

10

SubQQ1722187970()

'在单元格鼠标右键快捷菜单中新建一个名为“计算两数之和”的命令按钮

WithApplication.CommandBars("Cell").Controls.Add(before:=1)

.Caption="计算两数之和"

.OnAction="test"

EndWith

EndSub

Subtest()

MsgBox1+2

EndSub

(1)所调用的过程只接受一个参数时

如果是在正常代码过程中传递参数给sub过程，可以使用” test (42)，其中“42”为传递给test程序的参数。但如果这样的传递参数方法用在onAction方法中，该程序将不会运行。

正确的语法是外层为双引号，内层再加上一组单引号，里面是程序名和程序所接受的参数。如下所示：

.OnAction = “’ test 42’”

(2)所调用的sub过程接受多个参数时

如果所调用的sub过程接受多个参数，那么在这些参数之间应该用逗号分隔。如下所示：

.OnAction = “’test 42, 13’”

(3)    所调用的sub过程接受字符串参数时

如果所调用的sub过程所接受的参数是字符串，因为字符串已经带有一对双引号，因此应该将字符串包含在双层双引号中，即字符串参数周围有两对双引号。如下所示：

.OnAction = “’test “”abc””’”