我需要在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
我该怎么做?