ExcelのVBAのユーザーフォームのComboBoxでAddItemしてもドロップダウンに選択肢が表示されない。

実現したいこと

ExcelのVBAのユーザーフォームのComboBoxで選択肢が表示されるようにしたい。

発生している問題・エラーメッセージ

ドロップダウンメニューに選択肢が表示されません。

ComboBox1のプロパティは以下のようになります。

該当のソースコード

vba
1Private Sub UserForm2_Initialize()
2    ComboBox1.AddItem "あ"
3    ComboBox1.AddItem "い"
4    ComboBox1.AddItem "う"
5End Sub

補足情報（FW/ツールのバージョンなど）

Excel2019、Windows

追加の疑問

tatsu99さん、回答ありがとうございます。
UserForm2をUserFormに変えたところ、選択肢が表示されるようになり、解決しました。
そこで追加の疑問なのですが、なぜUserFormに変更すると選択肢が表示されるようになるのでしょうか？

行動規範の内容に同意します

回答1件

Private Sub UserForm2_Initialize()を
Private Sub UserForm_Initialize()にしてください。

投稿2023/05/26 07:31

tatsu99

総合スコア5533

noveemotto

2023/05/26 08:03

ありがとうございます。UserFormにしたら選択肢が表示されるようになり、解決しました。追加で質問なのですが、なぜUserFormにすると選択肢が表示されるようになるのでしょうか？

tatsu99

2023/05/26 09:06

UserForm2で最初に実行されるプロシージャは Private Sub UserForm2_Initialize()ではなく Private Sub UserForm_Initialize()です。 UserForm2_Initializeは、実行されないので、コンボボックスになにも表示されません。

noveemotto

2023/05/26 10:58

ありがとうございます

行動規範の内容に同意します