マルチページ上のページが選択されたときにユーザーフォームのキャプションを変更する

Question

私は簡単にできるエクセルにデータを入力するためにユーザーフォームを作成しています。私はvba thoには新しくないが、問題がある

私は、userformのページを選択して複数ページを使用しているときに、userformのキャプションを変更するコードを記述しようとしていました。

これは

Private Sub MultiPage1_Change() 

ComboBox1.SetFocus 
If Page2.Enabled = True Then 
    UserForm2.Caption = "weekly report format for new service and separate meter installation" 
End If 

End Sub 

以下の私のコードは私が間違って何をやっているのですか？

Answer 1

一般に、ユーザーフォームは楽しく、探しているものを見つけるためにあなたのものをちょっと遊んでください。たとえば、ActiveSheetの名前に基づいて、フォームのキャプションを変更する小さな例があります。モジュールの書き込みで

この：

Option Explicit  
Public Sub ShowForm() 

    UserForm1.Show vbModeless 

End Sub 

その後UserForm1という名前のユーザーフォームを作成し、次のコードを記述します。

Option Explicit 

Private Sub UserForm_Click() 
    Me.Caption = ActiveSheet.Name 
End Sub 

実行ShowForm。フォームをクリックします。キャプションが変更されます。次に、アクティブシートを変更し、フォームを再度クリックします。キャプションが再び変更されます。がんばろう！

Answer 2

あなたは例えば、その上でアクティブにし、行動しているタブマルチページを依頼する必要があります。

Private Sub MultiPage_Change() 
    Dim title As String 

    Select Case MultiPage1.SelectedItem.Index '// or select on .Name 
     Case 0: title = "First page selected" 
     Case 1: title = "Second page selected" 
     Case 2: title = "Third page selected" 
    End Select 

    Me.Caption = title 
End Sub