将 ActiveX 控件的命令按钮链接到模块

Question

好的，这是我的问题。是否可以从 Excel 工作表上的 ActiveX 控件命令按钮调用模块？

场景如下：我有一个名为“菜单”的工作表。菜单上有 10 个 activeX Control 命令按钮。我需要命令按钮来调用或将其链接到模块。我对如何实现这一目标一无所知。有可能吗？如果是这样，我该怎么做？如果没有，还有其他选择吗？

非常感谢。

Answer 1

1. 打开 VB 编辑器 ( Alt+ F11)
2. 在“项目资源管理器”窗口中的“Microsoft Excel 对象”下，右键单击显示按钮的工作表，然后选择“查看代码”

3. 在左上角的下拉列表中，选择适当的命令按钮

4. 这会将以下代码添加到适当的工作表模块中

   Private Sub CommandButton21_Click()
   'Your on click actions go here
   End Sub
   

这意味着现在我们可以执行操作（例如调用我们的子例程）

    Private Sub CommandButton21_Click()
        Call MyMacro
    End Sub

现在，MyMacro可以出现在事件Click所在的工作表级别代码中，也可以作为Public Sub模块中的某个位置存在。

更新

要显示用户窗体，请使用用户窗体的名称和Show方法。默认名称是UserForm1（或UserForm2或UserForm3等等，取决于您添加的数量）。

如果您想在点击时显示此用户表单，您可以使用以下代码：

Private Sub CommandButton21_Click()
        UserForm1.Show
End Sub