Question

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

如果启用了下一个按钮，用户可以点击它然后它应该移动到下一个隐藏页面，我总是收到错误“需要对象”它会让我发疯。

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

该代码似乎对我不起作用，任何帮助都会受到赞赏。

由于

Answer 1

当您步入时，哪一行导致错误？

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

以下代码测试工作（MultiPage1中的2页，隐藏第2页）：

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

关于userform multipage excel VBA

1 个答案: