移至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