我们如何知道 VBA 中按钮的发送者？答案

【问题标题】：How do we know the sender of the buttons in VBA?我们如何知道 VBA 中按钮的发送者？
【发布时间】：2012-04-12 19:19:47
【问题描述】：

我想找出许多按钮的发送者。

C# 中的类似内容：

Button b = new Button();
b.Text = "Click 1";
b.Location = new Point(20, 20);
b.Size = new Size(100, 20);
// Our Handler
b.Click += new EventHandler(myClick);

// Implementation of next button...

// Add to form
this.Controls.Add(b);
this.Controls.Add(nextButton);
...

// And our event
private void myClick(object sender, System.EventArgs e)
{
   var mysender = ((Button)sender).Name;
   doAnything(mysender);
}

在 VBA 中是可能的（Visual Basic for Applications）？我正在使用 Excel。我试过 Application.Caller。

【问题讨论】：

它是什么类型的按钮（表单？activex？）它在哪里（在表单上，在工作表上？）您尝试了哪些 VBA 代码？这可以工作，但您需要提供更多关于您想要做什么的详细信息......

标签： excel vba events

【解决方案1】：

您必须连接按钮事件。您可以在 Worksheet Activate 事件处理程序中执行此操作：

Dim arrEvents As Collection

Private Sub Worksheet_Activate()

Dim objButtonEvents As ButtonEvents
Dim shp As Shape

Set arrEvents = New Collection

For Each shpCursor In Me.Shapes
    If shpCursor.Type = msoOLEControlObject Then
        If TypeOf shpCursor.OLEFormat.Object.Object Is MSForms.CommandButton Then
            Set objButtonEvents = New ButtonEvents
            Set objButtonEvents.cmdButton = shpCursor.OLEFormat.Object.Object
            arrEvents.Add objButtonEvents
        End If
    End If
 Next

End Sub

然后使用以下代码创建一个名为 ButtonEvents 的类模块：

Public WithEvents cmdButton As MSForms.CommandButton

Private Sub cmdButton_Click()
 MsgBox cmdButton.Caption & " was pressed!"
End Sub

【讨论】：

我只是不明白这实际上是如何连接的？第一段代码 sn -p 'output' 是收集某个集合中的按钮。秒告诉我要创建一个 classModule，引用一个 CommandButton 并为其分配一个 onClick 方法。但是实际的按钮引用将如何显示在 classModule 中？

【解决方案2】：

将您的 Shapes.Name 值重命名为您可以根据需要使用的名称。

当您在 Excel 中创建一组形状时，比如说矩形，右键单击第一个对象，然后转到“公式”选项卡并单击“定义名称”。在弹出窗口的底部会有一行：指 [ ="Rectangle 73" ] 这是您的 VBA Shapes.Name 值。（在这里做任何事情都不会改变 VBA Shapes.Name 的值）

您可以将单个对象名称与IF Application.Caller.Name = "Rectangle 73" 一起使用，或者您可以在 VBA 中将您的形状重命名为更有用的名称。

如果您手动创建每个形状，它们将是“矩形 73”、“矩形 74”、“矩形 75”...如果您复制并粘贴，它们将是“矩形 73”、“矩形 102”、“矩形 103"... 现在我们有了 Shapes.Name 值，我们可以根据需要在 VBA 中重新定义它们。

Sub nameShapes()
    Dim shp As String
    Dim shpType As String
    Dim myName As String

'original root name of group shapes *do not include trailing space*
    shpType = "Rectangle"

'new name of group shapes
    myName = "newName"

'first number value of new shape names
    n = 1

'number values of first, second, and last shapes
    n1 = 73
    n2 = 103
    nx = 124

'active code --------------------------------------
'--------------------------------------------------
    shp = shpType & " " & n1
    ActiveSheet.Shapes(shp).Name = myName & " " & n

    For x = n2 To nx
        n = n + 1
        shp = shpType & " " & x
        ActiveSheet.Shapes(shp).Name = myName & " " & n
    Next n
'--------------------------------------------------
'active code --------------------------------------
End Sub

将此代码放在它自己的单独模块中，然后只需输入值并单击 RunSub 的 VBA 窗口工具栏中的播放按钮。

现在，您可以使用n = Right(Application.Caller, 2) 来获取点击按钮的数值。请务必定义Dim n As Integer。

如果不同的按钮组调用相同的函数，您可以使用 Select Case Left(Application.Caller, 7) 获取 shape.name 的前 7 个字母，并使用 Case "newName" 获取特定于该按钮组的操作。

【讨论】：