|
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
|
|