Question

我想创建一个表单控件按钮，单击该按钮时可以使用该按钮显示UserForm。不幸的是，我弹出以下错误消息：＆＃34;编译错误：类型不匹配＆＃34;。有什么想法吗？

ActiveWorkbook.ActiveSheet.Buttons.Add(230.25, 57, 153, 96.75).Select
Selection.OnAction = UserForm1.Show

Answer 1

您可以做的是创建一个单独的Sub来启动UserForm1。

如果不是AddIn，请尝试避免使用ActiveWorkbook / ActiveSheet。

Option Explicit

Sub CreateButton()
    With ActiveWorkbook.ActiveSheet.Buttons.Add(230.25, 57, 153, 96.75)
        .Caption = "Launch UserForm 1"
        .Font.Size = 14
        .OnAction = "ShowUserForm1" ' ## A ##
        .Select
    End With
End Sub

Sub ShowUserForm1() ' Sub Name must match ## A ##
    UserForm1.Show
End Sub

创建表单命令按钮调用UserForm

1 个答案: