在 VBA for Excel 中，如何将模块中的现有函数或子函数（例如 myFun()）直接分配给新添加的 ActiveX 单击按钮？
我知道我可以在 ActiveX 命令（单击）按钮所在的工作表代码页上执行以下操作。
Private Sub myFun_Click()
myFun()
End Sub
“直接”是指将按钮命名为“myFun”并将按钮直接指向函数 myFun()，而必须将 myFun() 放在另一个子程序中，如上所示。
【问题讨论】：
Sub 是一个过程，而不是一个函数。 Function 有返回值，Sub 没有。标准代码模块 (.bas) 中的 Function 可以公开以在工作表公式中作为 UDF 使用，标准代码模块 (.bas) 中的 Sub 可以公开用作宏。
您可以在工作表上放置两种类型的控件：
ActiveX 控件
您可以在代码隐藏中处理他们的Click 事件，方法是双击控件并为其生成处理程序。
表单控件
您为这些控件分配一个宏，就像您将一个宏分配给任何其他形状一样。宏可以是现有宏（非私有标准模块中的任何无参数Public Sub 过程）。
如果你想给MyFun分配一个按钮，假设签名是这样的：
Public Sub MyFun()
然后您可以尝试使用 表单控件 而不是 ActiveX 控件。
注意：MyFun() 必须是 Sub 才能作为宏公开。 'Sub' 是一个过程，而不是一个函数。 “函数”有返回值，“子”没有。标准代码模块 (.bas) 中的“函数”可以公开以在工作表公式中用作 UDF，标准代码模块 (.bas) 中的“子”可以公开以用作宏.
【讨论】：
Public，有参数，要么不是用标准代码模块（.bas）编写的，或者该模块设置了Option Private Module。
根据定义，绑定到控件的 VBA 事件对于工作表来说是“本地的”，因此如果您将按钮“A”放在工作表“w1”上，则生成的单击事件处理函数将被命名为：
Private Sub A_Click()
但是，如果您将按钮“A”放在工作表“w2”上，则单击事件处理程序签名将相同，但实际上会触发放置在“w2”上的按钮的单击事件。
如果您想在用户单击不同工作表中的按钮“A”时实现相同的行为，那么您需要通过在 VBA Module 上添加一个 Sub/Function 来实现这一点，即在工作簿对象的所有工作表之间共享。
Private Sub A_Click() {
CommonFunction()
}
【讨论】：