移动到下一个页面上的用户窗体多页Excel的VBA

Question

我曾在多页用户窗体5页。

如果启用了一个按钮，它可以通过用户点击，那么它应该移动到下一个隐藏的页面，我总是得到一个错误“必选对象”它让我发疯。

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

该代码似乎不适用于我，任何帮助将不胜感激。

谢谢

Answer 1

哪一行导致错误，当你一步一步？

确保有足够的现有页面。此外，已在多页对象的名称改变了吗？下面

该代码测试工作（2页在MultiPage1，第二页集合隐藏）：

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