VBA ユーザーフォームのコンボボックスにリストが表示されない。

Question

只今、VBAを習得しようと励んでいますが、またまた躓いてしまいました。。。

【やりたいこと】
・ユーザーフォームのコンボボックスを使う。
・コンボボックスにリストを表示(←されない)。
・コンボボックスで選んだ文字列を使用し、検索をかける。

一応、本を読んだりネットで拾った除法は以下のとおりで、コンボボックスにリストが捧持されると思ったのですが、リストは空欄のまま表示されません。
どうすれば表示されるようになるでしょうか。

Option Explicit

Sub ユーザーフォームの表示()
  UserForm1.Show vbModeless
End Sub
Private Sub Search_Click()

End Sub

Private Sub ComboBox1_Change()
 .AddItem "みかん"
End Sub

Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

Answer 1

ユーザーフォーム上で右クリックの「コードの表示」をクリックして、下記のように記述します。

Option Explicit

'Searchボタン
Private Sub CommandButton1_Click()
 
End Sub

'Closeボタン
Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.AddItem "みかん"
    ComboBox1.AddItem "りんご"
    ComboBox1.AddItem "バナナ"
End Sub

これで、ユーザーフォームを表示させると、ドロップダウンリストに、みかん、りんご、バナナ が表示されます。

コンボボックスの使い方の詳細は下記を参照。

コンボボックス(ComboBox)の追加｜Excelユーザーフォーム入門

下記のコードは標準モジュールに記述します。

Sub ユーザーフォームの表示()
  ' UserForm1がモードレスで呼び出される。
  UserForm1.Show vbModeless
End Sub

シート上で[開発]-[挿入] からフォームコントロールの[ボタン]を選択して、シートをクリックします。
「マクロの登録」が開きますので、そこで「ユーザーフォームの表示」を選択します。
これで、このボタンをクリックするとユーザーフォームが表示されます。

Answer 2

これはブックの中のコードでしょうか？

解決するには、UserForm1のinitializeで.AddItem "みかん"をすると、たぶん問題解決です。

以下参考までにコメントを追記します。

' 明示的に定義
Option Explicit

Sub ユーザーフォームの表示()
  ' UserForm1がモードレスで呼び出される。
  UserForm1.Show vbModeless
End Sub

Private Sub ComboBox1_Change()
  ' ComboBox1が変わるときに、"みかん"が追加される
  ' が、恐らくブックにはComboBox1がないので、変えようがなく追加もされない、ということが起きてます。
  ' UserForm1の中のInitializeで.AddItem "みかん"で解決できます。

 .AddItem "みかん"
End Sub

Private Sub CommandButton2_Click()
  ' CommandButton2がクリックされたときにUserForm1がアンロードされる
    Unload UserForm1
End Sub