n77********

2022/1/17 20:41

33回答

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

Excel VBA コンボボックスについて VBA初心者です。 コンボボックスに検索文字を入力する際、ドロップダウンリスト部を常に表示させるようにするには「ComboBox1.DropDown」を入力すればいいと思いますが、 下記のようにコードを入力すると画像のように離れた位置にリストが表示されてしまいます。 一度立ち上がったフォームやコンボボックスをクリックすると正常な動きになりますが、調べても分からず困っています。 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "りんご" .AddItem "みかん" .AddItem "ぶどう" End With ComboBox1.DropDown End Sub どうか教えて下さい。

画像

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

ベストアンサー

0
urr********

2022/1/18 11:33

ComboBox1.DropDown を UserForm_Initialize から UserForm_Activate に移動してください。 ComboBox1.DropDown を Initialize の時点で実行すると コンボボックスが画面の左上の位置にあるものとして実行される。 その後 Activate の時点でフォームだけを現在の位置へ表示するようです。 また、ユーザーフォームを表示する際に UserForm1.Show Unload UserForm1 と UserForm1 を Unload しないと、メモリ上にユーザーフォームの情報が残り続けるため 表示の度に Userform_Initialize が実行されなくなるので要注意です! 一度フォームを表示した後なら正常に表示できているのもしっかりとユーザーフォームの Unload がされていないのが原因だと思います。

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

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

お礼日時：1/23 21:33

その他の回答（2件）

0
porihiko3

2022/1/18 21:40

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

1
qgl********

2022/1/17 21:13

こうなります。(初期設定) ※他にもセルに入力された文字を初期設定することができます(調べてください)。 '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人がナイス！しています