多页用户窗体Excel - 添加下一个按钮

Question

是否可以在Userform上的第一页上添加一个带有多个按钮的按钮，以便它将您带到其他页面？ sopmeone可以发布一个简单的代码吗？

Answer 1

多页控件的

Value属性，设置/获取活动页面。

 Private Sub cmdNext_Click()
        Dim lCurrentPage As Long

        lCurrentPage = Me.MultiPage1.Value + 1

        If lCurrentPage = Me.MultiPage1.Pages.Count Then
            MsgBox "You are on the last page."
        Else
            Me.MultiPage1.Value = lCurrentPage
        End If

    End Sub