将具有多个参数的宏分配给按钮 VBA

Question

我正在开发一个 VBA 宏，我想为每一行添加按钮。我想为每个按钮分配相同的宏，每行具有不同的参数。按钮运行的宏是一个简单的宏，它根据按钮所在行的信息生成一封电子邮件，并将其保存到用户的 Outlook 草稿文件夹中。

我遇到的问题是，当我将电子邮件代码归类为函数时，它会立即运行，而不是将其分配给按钮。当我将它归类为子时，我收到一个编译错误，指出“编译错误：预期的函数或变量”

主宏代码如下：

Sub addButtons()
    Dim lastCol As Integer
    Dim lastRow As Integer
    Dim r As Range
    Dim btn As Button
    Dim uid As String
    Dim rDate As String
    Dim i As Integer

    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    rDate = Str(Date)
    rDate = Replace(rDate, "/", "D")

    For i = 2 To lastRow
        Set r = ActiveSheet.Range(Cells(i, lastCol), Cells(i, lastCol))
        Set btn = ActiveSheet.Buttons.Add(r.Left, r.Top, r.Width, r.Height)
        uid = ActiveSheet.Cells(i, 1).Text
        With btn
            .OnAction = newhireEmail(i, rDate)
            .Caption = "Email " & uid & "?"
            .name = "btn" & (i - 1)
        End With
    Next i

    r.EntireColumn.ColumnWidth = 15
End Sub

我也可以发布电子邮件的代码，但我不认为它应该是相关的，因为我希望除非单击按钮，否则根本不运行该代码。

感谢您的宝贵时间！

Answer 1

这可能不是您提出的问题的答案，但我确实想介绍几种不同的方法来解决此任务。

其中一种更轻量级的方法是订阅工作表扩展的事件（并且您不需要）。例如，当我有一个惊人的相似过程时，我订阅了工作表双击事件。当我双击一个单元格时，它会从该行编译信息，并将其传递给电子邮件子程序。

如果您想要更直观的线索，但又不想要按钮的顶部，请考虑使用超链接。这是一个两步过程，但是当我完成此操作时，它比大量按钮工作得更快、更有效。 （注意：每个工作表的超链接限制为 65,530 个。如果您需要更多，这将不起作用）。

首先，生成超链接：

Sub AddHyperlinks()
    Dim lastCol As Long
    Dim lastRow As Long
    Dim s As Worksheet

    Set s = ActiveSheet


    lastCol = s.Cells(1, Columns.Count).End(xlToLeft).Column + 1
    lastRow = s.Cells(s.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
        s.Hyperlinks.Add Anchor:=s.Cells(i, lastCol), _
        Address:="", _
        SubAddress:=s.Cells(i, lastCol).Address, _
        TextToDisplay:="Send Email"
    Next i
End Sub

接下来，订阅相应工作表中的FollowHyperlinks 事件，并在那里生成您的代码。超链接目标将引用超链接的单元格地址，您可以从中获取任何需要的数据：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    'Submit whatever code you want here
    MsgBox Target.SubAddress
End Sub