ユーザーフォーム上でのドロップダウンリストについて

質問

思い立った回答を探す事ができなかったので、質問させていただきます。

Excel2003を使用しております。
なるべく入力を簡単にしようとして、ユーザーフォームを勉強中です。

１件につき、多くの選択肢を必要とする場合、
ドロップダウンリストが有効かと思われますが、
sheet1で使用するユーザフォームに、
sheet2に作っておいたリストを使用する場合、
どのようにすればいいのでしょうか？

また、そのsheet2にあるリスト項目が、その後も増えるとして、
ユーザーフォームで使用するたびに、そのリストにない項目を、
入力時に増やして昇順する事はできるのでしょうか？

もしできるならば、そのやり方を教えていただきたいのですが。

よろしくお願い致します。

回答No.1

myCat · ベストアンサー

こんにちは。

Sheet2のA列がリストで、A1は見出し、リストはA2以降とした場合。

UserFormのActivateイベントに以下のコード。

-----------------------------------------------------------
Private Sub UserForm_Activate()
　Dim myRange As Range

　With Sheets("Sheet2")
　　Set myRange = .Range("A2", .Range("A65536").End(xlUp))
　　myRange.Sort Key1:=.Range("A2"), Order1:=xlAscending, _
　　　　　　　　Header:=xlGuess, OrderCustom:=1, _
　　　　　　　　MatchCase:=False, Orientation:=xlTopToBottom, _
　　　　　　　　SortMethod:=xlPinYin
　End With

　ComboBox1.RowSource = "Sheet2!" & myRange.Address

End Sub
---------------------------------------------------------

見てもらえば分かると思いますが、
UserFormがアクティブになった時、Sheet2のリストをソートして
それをComboBoxにセット

UserFormが常にHideでなくUnloadされるのであれば
コードをUserFormのInitializeイベントに置くと
Sortの回数などが減るのでこちらがベター。

以上です。

お礼

お返事が遅くなりまして、申し訳ありません。

大変参考になりました。

いろいろと本と格闘しているんですが、
なかなかこういう細部まで書いているのがなくて…

本当にありがとうございました。