Excel VBA 无法使用 onaction 调用函数。

37 浏览
0 Comments

Excel VBA 无法使用 onaction 调用函数。

我为用户窗体上的确定按钮编写了一个脚本，用于在工作表上创建一个删除按钮来删除整行。问题是，当我点击删除按钮时，它无法调用我通过OnAction参数分配的函数。

Private Sub OKButton_Click()
    Dim emptyRow As Long
    '激活Feuil1（工作表）
    Feuil1.Activate
    '确定emptyRow（空行）
    emptyRow = WorksheetFunction.CountA(Range("C:C")) + 1
    Dim deleteButton As Button
    Dim t As Range
    Set t = ActiveSheet.Range(Cells(emptyRow, 2), Cells(emptyRow, 2))
    Set deleteButton = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)
    With deleteButton
        .OnAction = "DeleteLine"
        .Caption = "删除" & emptyRow
        .Name = "DeleteButton" & emptyRow
    End With
    '关闭用户窗体
    Unload Me
End Sub
Sub DeleteLine()
    MsgBox "你点击了我"
End Sub

0