Excel VBA コンボボックスについて VBA初心者です。

画像

Visual Basic64閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

ThanksImg質問者からのお礼コメント

大変勉強になりました。 他の方も同様に解決に導いてくださりましてありがとうございます。 詳しく説明して頂いたのでこちらをベストアンサーに選ばせて頂きました。

お礼日時:1/23 21:33

その他の回答(2件)

0

こんにちは。 Private Sub UserForm_Activate() Me.ComboBox1.DropDown End Sub Private Sub UserForm_Initialize() With ComboBox1 .AddItem "りんご" .AddItem "みかん" .AddItem "ぶどう" End With End Sub こんなかんじ。 dropdownをイニシャルで実行しようと、しないことです。 (表示に関する操作は、イニシャルは早すぎなんですよ)

1

こうなります。(初期設定) ※他にもセルに入力された文字を初期設定することができます(調べてください)。 'Private Sub UserForm_Initialize() Dim mydata As Variant Dim fru As Variant '表示項目 mydata = Array("りんご", "みかん", "ぶどう", _ "すいか", "メロン", "バナナ") For Each fru In mydata '表示項目の各果物を表示項目に追加 ComboBox1.AddItem fru Next ComboBox1.ListIndex = 0 '窓枠に表示される番号(表示項目が0番から始まり6番で終わる) '表示したい任意の番号を設定することができる 'End Sub

1人がナイス!しています