リストボックスからユーザーフォームへのリンク方法

質問

ユーザーフォーム０に貼り付けてあるリストボックスに表示された項目からその項目ごとに見合った別のユーザーフォームにとびたいのですが、うまくいきません。
例えば
リストボックスに
『算数
国語』
とあったとしたら算数をクリックすると算数の問題が表示されたユーザーフォームにとび、国語をクリックしたら国語の問題が表示されたユーザーフォームにとぶようにしたいです。
リストボックスの項目からユーザーフォームにとべる方法を教えてください。

回答No.1

Wendy02

こんにちは。

例えば、以下のようにすればよいです。
ただ、全体的に、こういうのは、はたで考えるより、作るのは難しいと思います。ワークシートを利用したほうがよいかもしれません。

'-----------------------------------------------

Private Sub ListBox1_Click()
Dim i As Integer
　i = ListBox1.ListIndex + 1
　UserForm0.Hide
　Select Case i
　　Case 1: UserForm1.Show
　　Case 2: UserForm2.Show
　　Case 3: UserForm3.Show
　　Case 4: UserForm4.Show
　　Case 5: UserForm5.Show
　End Select
End Sub

Private Sub UserForm_Initialize()
　Dim myList As Variant
　myList = Array("国語", "算数", "理科", "社会", "英語")
　'ListBox1.Add で、Item を一つずつ足しても良い
　ListBox1.List = myList
End Sub

お礼

ありがとうございました！
早速試してみましたが、成功しました♪本当に困っていたので助かりました。思っていたより難しい記述でしたので私一人では無理だったと思います。回答どうもありがとうございます。