excel - 单击 Excel 中 VBA 框架内的按钮的事件

Question

在 Excel 中，我将 ActiveX 框架插入到工作表中。右键单击此框架允许我选择：

框架对象>编辑

现在我可以在这个框架中添加一个按钮。伟大的。

如何向此按钮添加 _Click 事件以使其运行宏？

Answer 1

基本上，您需要做的是创建自己的类，例如“XButton”。在这个“XButton”内部，将有一个用于框架内按钮对象的事件处理程序。

因此，您可以处理“btn”发送的所有事件并进一步转发。然后你必须创建一个自定义接口（空类）IXButtonEventHandler，它看起来像这样：

Option Explicit

Public Sub Click(Sender as XButton)

End Sub

因此，您的自定义类XButton将如下所示：

Private WithEvents btn as MSForms.CommandButton
Private mEventHandler as IXButtonEventHandler

Public Sub CreateObject(EventHandlerOf as MSForms.CommandButton, EventHandler as IXButtonEventHandler)
     Set btn = EventHandlerOf
     Set mEventHandler = EventHandler
End Sub

Private Sub btn_Click()
    If not mEventHandler is Nothing then mEventHandler.Click(Me)
End Sub

假设您的 Workbook 将是事件处理程序，并且需要实现 IXButtonEventHandler 接口，例如：

Implements IXButtonEventHandler

Private Sub IXButtonEventHandler_Click(Sender as XButton)
    'your code
End Sub

在 Workbook_Load 或诸如此类的情况下，您需要创建 XButton 集合并将它们附加到您的框架控件：

Dim xbtn as Collection

Private Sub AttachButtons()
    Set xbtn = New Collection

    Dim i as Long

    For i = 0 to 3
       Dim xb as New XButton
       xb.CreateObject <YourFrame>.Controls("CommandButton" & Cstr(i)), Me

       xbtn.Add xb
    Next i
End Sub