前提・実現したいこと
ユーザーフォームのコンボボックスのリスト用の一覧があります。
A列が市町村、B列がそのグループです。
シート名は「一覧」です。
グループは、市町村がそのままの場合もあります。
現状ではarray関数を使い、グループ名をそのまま入力していますが
増えた場合に、一覧に追記していくだけで対応できるコードを教えてください。
追記の方法は、できれば、最終行の下に入力するのではなく、
例えば東京グループが増えた場合、「町田」の下に挿入する形をとりたいです。
ご教授宜しくお願い致します。
(動的配列でなければすみません。良く分かっておりません。)
該当のソースコード
Private Sub myComboBox_Change() Call 作成(myForm.myComboBox.Text) End Sub Private Sub UserForm_Initialize() Dim myDic As Object myForm.myComboBox.List = _ Array("東京", "横浜", "川崎", "相模原", "千葉") End Sub 標準モジュールに、リストから選んだグループをもとに マクロを組んでいます。
補足情報(FW/ツールのバージョンなど)
http://www.saka-en.com/office/vba-find-cells-excel/
こちらを参考に、FINDメソッドを使いB列とA列を連携させています。
コードはほぼこちらと同じです。
回答3件
あなたの回答
tips
プレビュー