複数ページのユーザーフォームExcel - 次のボタンを追加

Question

複数ページのユーザーフォームに1ページ目のボタンを追加して、複数のページに移動することは可能ですか？簡単なコードを投稿することはできますか？

Answer 1

Value MultiPage Controlのプロパティは、アクティブなページを設定または取得します。

---

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