| 
    
     |  | jakaさん ありがとうございました。 以下のadditemでなんどもやってるんですが
 なぜか表示されません。
 additemで間違いないことはわかりました
 ただ、一つ気になることがあります。
 実行中に、コンボを開くと、わずかに棒のようなものが
 下につららのように出てきます。
 アイテムに加えた数が多いほど、つららが長くなります。
 何かがおかしくて表示されないと思われるのですが
 明らかに現在の私では解決不能です。
 (あせってるので特に。。。)
 
 大変おそれいりますが、なにかアドバイスが頂戴できれば幸いです。
 
 
 ▼Jaka さん:
 >Private Sub UserForm_Initialize()
 >ComboBox1.List = Sheets("Sheet1").Range("A1:A5").Value
 >End Sub
 >
 >Private Sub CommandButton1_Click()
 >ComboBox1.AddItem Range("A6").Value
 >End Sub
 >
 >Private Sub CommandButton2_Click()
 >ComboBox1.AddItem "あああ"
 >End Sub
 
 
 |  |