Excel 添加一个按钮并按指定功能

在vba上，我想添加一个按钮并为其指定一个带有参数的函数

这是创建按钮的代码（在模块1中）：

而要调用的函数在另一个模块中定义为：

Function Send_click(sheetName As String)

但是，按钮显示为不可单击，宏LOADxxx\u click显示为已分配（其中xxx是ActiveSheet.name的名称），但它显然不存在

我还尝试了我找到的建议，并指定了模块：

.OnAction = Module4.Send_click(ActiveSheet.Name)

---

没有不同的结果。

我将编写另一个宏：

Sub ExecuteSendClick()

    Send_Click ActiveSheet.Name

End Sub

---

并将该宏指定给按钮。

我认为应该为按钮对象的

.OnAction

属性指定一个字符串值

如果要调用的函数（

Send\u在本例中单击

）设置为public，则只需构造一个

OnAction

字符串，如下所示：

With testBtn
  .OnAction = "'" & "Send_click" & " " & """" & ActiveSheet.Name & """" & "'"
End With

字符串连接部分应返回如下内容：

'Send_click "whatever_the_sheet_name"'

---

嗯，它不是很干净。但作为一种变通办法，它的作用是。

'Send_click "whatever_the_sheet_name"'