Excel ユーザーフォームのコンボボックスについて

質問

始めまして、マクロに関してはまだまだ勉強中なのですが、ユーザーフォームのコンボボックスについてつまづいてしまい、皆さんにご教授頂ければと思います。
一つユーザーフォームを作成後、そのフォーム内にコンボボックスを配置し、リストから項目を選択できるようにしたいと考え下記のように記述したのですが、ユーザーフォームを実行してもフォームは表示されてきますが、ボックスを選択してもリストに項目が表示されてきません。

Private Sub cmd入力_Click()
End Sub

Private Sub 選択グループCombo_Change()
With 選択グループCombo
.AddItem "初級"
.AddItem "中級"
.AddItem "上級"

Private Sub cmd閉じる_Click()
Unload Me
End Sub

この記述自体が間違っているのでしょうか。
宜しくお願いします。

回答No.1

kmetu

Private Sub UserForm_Initialize()

With 選択グループCombo
.AddItem "初級"
.AddItem "中級"
.AddItem "上級"

End With

End Sub

でいかがでしょう

お礼

kmetuさん。早速の返信ありがとうございました。
出来ました。ちゃんと表示されました。最初の記述がいけなかったのですね。コンボボックスを選択してからコードを表示させて記述したのですが、それが間違いだったのですね。ありがとうございました。