如何在用户表单的多页

时间:2015-10-07 10:39:30

标签: excel-vba controls userform vba excel

我需要在userform的多页面的每个页面都有一个退出按钮。问题是,当页面在运行时创建时,命令按钮会有不同的名称。我可以在第一页中创建一个退出按钮:

Private Sub CommandButton1_Click()
   Unload Me
End Sub

在将控件从上一页复制到新页面后,我尝试将其他命令按钮的名称设置为第一个,但它不起作用:

If i > 1 Then
    MultiPage1.Pages.Add
    MultiPage1.Pages(k - 1).Controls.Copy
    MultiPage1.Pages(k).Paste

    With Controls("CommandButton" & k + 1)
        .Name = "CommandButton1"
    End With
End If

我该怎么做?

0 个答案:

没有答案