移至userform多页excel VBA的下一页

Question

我在多页用户表单中有5页。

如果启用了下一个按钮，那么用户可以单击它，那么它应该移到下一个隐藏页面，我总是收到错误消息“ Object Required”，这使我发疯。

Private Sub btnGenerate_Click()
iPageNo = MultiPage1.Value + 1
MultiPage1.Pages(iPageNo).Visible = True
MultiPage1.Value = iPageNo
End Sub

该代码似乎对我不起作用，任何帮助将不胜感激。

谢谢

Answer 1

当您通过时，哪条线会导致错误？

确保有足够的现有页面。 另外，MultiPage对象的名称是否已更改？

下面的代码测试了工作情况（MultiPage1中的2 Pages，Page2设置为隐藏）：

Option Explicit

Private Sub CommandButton1_Click()
    Dim iNextPage As Long
    With Me.MultiPage1
        iNextPage = .Value + 1
        If iNextPage < .Pages.Count Then
            .Pages(iNextPage).Visible = True
            .Value = iNextPage
        End If
    End With
End Sub