【ユーザーフォーム】マルチページで現在開いているページ確認する

ユーザーフォームで、マルチページで現在アクティブなページを取得するマクロコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

ユーザーフォームにマクロコードを入力

「UserForm1」 にマクロコードを入力します。

Sub main()

Dim PageIndex As Long
    
    PageIndex = UserForm1.MultiPage1.Value
 
    MsgBox "ページインデックス：" & PageIndex & vbCrLf & _
      "ページ名：" & MultiPage1.Pages.Item(PageIndex).Caption

End Sub

Private Sub CommandButton1_Click()
    Call main
End Sub

Private Sub CommandButton2_Click()
    Call main
End Sub

Private Sub CommandButton3_Click()
    Call main
End Sub

マクロコードを入力する場所「UserForm1」

動作

マルチページに設置したコマンドボタンをクリックすると、

現在開いているマルチページのインデックス番号とページ名（Caption）を表示します。

 
 
この記事がお役に立ちますと幸いです。
 
・【ExcelVBA】ユーザーフォーム作成の事例まとめ
 

【VBAユーザーフォーム】何ができるの？：使用例34選

エクセルのユーザーフォームで、処理を自動化するVBAコードをご紹介します。ぜひお試しください😉

kirinote.com

2023.03.13