如何检测Excel工作表上非VBA生成的MultiPage表单按钮点击事件

嘿，这个问题我之前也碰到过！工作表上直接插入的MultiPage控件，它里面的按钮事件确实不能像用户窗体里那样用层级命名来写，我来给你说两种可行的解决办法：

方法一：直接利用按钮的唯一名称（简单但有局限） #

如果你的每个按钮都有独一无二的名称（比如把第一个Page里的按钮命名为cmdPage1Btn1，第二个Page里的叫cmdPage2Btn1），那直接在该工作表的模块里写对应按钮的Click事件就行：

Private Sub cmdPage1Btn1_Click()
    ' 这里写你的处理逻辑
    MsgBox "你点击了MultiPage第一页的按钮！"
End Sub

不过这种方法的局限是：如果多个Page里有同名按钮，事件会冲突，而且如果控件嵌套层级复杂，有时候直接写的事件可能不会触发，所以更可靠的是用下面的类模块方法。

方法二：用类模块捕获所有MultiPage内的按钮事件（推荐） #

这种方法可以批量处理MultiPage里的所有按钮，不管有多少个Page都适用：

1. 新建类模块：在VBA编辑器里右键插入类模块，把它命名为clsMultiPageBtnEvents（名字随便起，只要自己记得住）
2. 在类模块里声明带事件的按钮变量：

Public WithEvents TargetBtn As MSForms.CommandButton

3. 在类模块里写按钮的Click事件：

Private Sub TargetBtn_Click()
    ' 这里可以根据按钮的属性做不同处理，比如判断它属于哪个Page
    Dim parentPage As MSForms.Page
    Set parentPage = TargetBtn.Parent
    
    MsgBox "点击了【" & parentPage.Caption & "】页里的按钮：" & TargetBtn.Caption
    ' 这里写你的具体业务逻辑
End Sub

4. 在工作表模块里绑定控件与类：
   首先声明一个集合来保存类的实例（必须是模块级变量，不然会被垃圾回收）：

Dim btnEventCollection As New Collection

然后写一个初始化过程，放在工作表激活事件里，确保每次打开工作表都绑定好：

Private Sub Worksheet_Activate()
    Dim singlePage As MSForms.Page
    Dim ctl As MSForms.Control
    Dim btnEventObj As clsMultiPageBtnEvents
    
    ' 先清空集合，避免重复绑定
    Set btnEventCollection = New Collection
    
    ' 遍历MultiPage的每一个Page
    For Each singlePage In Me.MultiPage1.Pages
        ' 遍历当前Page里的所有控件
        For Each ctl In singlePage.Controls
            ' 判断是不是CommandButton
            If TypeName(ctl) = "CommandButton" Then
                Set btnEventObj = New clsMultiPageBtnEvents
                Set btnEventObj.TargetBtn = ctl
                btnEventCollection.Add btnEventObj
            End If
        Next ctl
    Next singlePage
End Sub

为什么你原来的写法不行？ #

你之前用的MultiPage1_Frame1_CommandButton1_Click()这种命名规则，是用户窗体里嵌套控件的事件命名方式，但工作表上的ActiveX控件嵌套结构不一样，VBA识别不了这种层级命名的事件过程，所以必须用上面的方法来捕获事件。

内容的提问来源于stack exchange，提问作者MichaelA